Fórum Exportando Dados para Word - Como alinhar data à direita? #253506

procedure TFrmCadOficios.BtnExportarClick(Sender: TObject); var MSWord: Variant; begin MSWord:= CreateOleObject(´Word.Basic´); MSWord.AppShow;//mostra o word //MSWord.FileNew;//inicia um novo documento MSWord.FileOpen(´C:\Ofícios\Ofício_Circular.doc´); //Alinhar a data à direita MSWord.FontSize(12);//muda o tamanho da fonte MSWord.Font(´Arial´);//muda a fonte usada [color=red:7014521bac][b:7014521bac]//MSWord.RightAlgin(True);[/b:7014521bac][/color:7014521bac] MSWord.insert(´Fortaleza, ´ + FormatDateTime(´dd´, DMDados.TBOficiosDataDoOficio.AsDateTime) + ´ de ´ + FormatDateTime(´mmmm´, DMDados.TBOficiosDataDoOficio.AsDateTime) + ´ de ´ + FormatDateTime(´yyyy´, DMDados.TBOficiosDataDoOficio.AsDateTime));//Pula uma linha e escreve MSWord.bold(True); MSWord.Font(´Arial´);//muda a fonte usada MSWord.FontSize(12);//muda o tamanho da fonte MSWord.insert(#13 + 13 + 13 + 13 +´OF. CIRC. CENTEC ´ + DMDados.TBOficiosAssunto.Text + ´ - ´ + FormatFloat(´,,000´, DMDados.TBOficiosCodigoDoOficio.Value) + ´/´ + FormatDateTime(´yyyy´, DMDados.TBOficiosDataDoOficio.AsDateTime)); //Escreve algo MSWord.bold; MSWord.FontSize(12);//muda o tamanho da fonte MSWord.insert(13 + 13 + DMDados.TBOficiosTratamento.Text + ´,´);//pula a linha e escreve novamente MSWord.FontSize(12);//muda o tamanho da fonte MSWord.Font(´Arial´);//muda a fonte usada MSWord.insert(13 + 13 + DMDados.TBOficiosRedacao.AsString); MSWord.bold(True); MSWord.insert(13 + 13 + 13 + 13 + 13 + DMDados.TBOficiosRemetente.Text);//nova linha e um TAB MSWord.bold(True); MSWord.insert(13+ DMDados.TBOficiosCargo.Text);//insere algo de uma tabela MSWord.bold(True); MSWord.insert(13 + 13 + 13 + 13 + DMDados.TBOficiosPronome.Text); MSWord.bold(True); MSWord.insert(#13+ DMDados.TBOficiosDestinatario.Text); MSWord.bold(True); MSWord.insert(13+ DMDados.TBOficiosComplemento.Text); end;