Criar um documento no word

Criar um documento no word

  julho 03, 2015    Ana Paula Novello

---

É bem simples vamos apenas criar um documento e jogar uns campos para o Word.

Particularmente não gosto muito de trabalhar com delphi e Word juntos acredito que vale apena fazer um documento em fr3 ( FestRepost ) que por ele já existe a possibilidade de exportação; 

Vamos utilizar:

1 - TClientDataSet;

1 - TDataSource;

1 - TBitBtn;

No botão colocar o código abaixo

procedure TForm4.BtnWordClick(Sender: TObject);
var
  MSWord: Variant;
begin
   MSWord:= CreateOleObject('Word.Basic');
   MSWord.AppShow;                                                 (*mostra o word*)
   MSWord.FileNew;                                                 (*iniciar um novo documento*)
   MSWord.insert('Era uma vez ');                           //Escrever algo
   MSWord.insert(slineBreaK + 'um belo programinha em word ');                       //Pular uma linha e escreve
   MSWord.FontSize(24);                                            //mudar o tamanho da fonte
   MSWord.italic;                                                  //colocar italico
   MSWord.bold;                                                    //coloca negrito
   MSWord.underline;                                               //sublinhar
   MSWord.insert(slineBreaK + 'Teste em wors');              //pular a linha e escreve novamente #13 ou slineBreaK
   MSWord.FontSize(12);                                            //mudar o tamanho da fonte
   MSWord.Font('Arial');                                           //mudar a fonte usada
   MSWord.underline(false);                                        //retirar o sublinhado
   MSWord.italic(false);                                           //retirar o italico
   MSWord.bold(false);                                             //retirar o bold
   MSWord.insert(slineBreaK + 'Escrever algo aquii');
   MSWord.insert(slineBreaK + #9 + 'Escrever algo ali');   {nova linha e um TAB}
   MSWord.insert(slineBreaK + CDSGenericoDESCRICAO.Value);{insere algo de uma tabela}
   MSWord.LineUp(2, 1);{seleciona uma parte do texto}

   {Incrementa uma tavela}
   MSWord.ActiveDocument.Tables.Add(MSWord.Selection.Range, NumRows := 2, NumColumns := 3);
   MSWord.Selection.TypeText(Text := 'Linha 1, Coluna 1');
   MSWord.Selection.MoveRight(12);
   MSWord.Selection.TypeText(Text := 'Linha 1, Coluna 2');
   MSWord.Selection.MoveRight(12);
   MSWord.Selection.TypeText(Text := 'Linha 1, Coluna 3');
   MSWord.Selection.MoveRight(12);
   MSWord.Selection.TypeText(Text := 'Linha 2, Coluna 1');
   MSWord.Selection.MoveRight(12);
   MSWord.Selection.TypeText(Text := 'Linha 2, Coluna 2');
   MSWord.Selection.MoveRight(12);
   MSWord.Selection.TypeText(Text := 'Linha 2, Coluna 3');
   MSWord.Selection.Tables.Item(1).Select;
   MSWord.Selection.Cells.AutoFit;

   MSWord.FileSaveAs('C:\XML_NOTAS\Test.doc', 0);  {Salvar}
end;

Qualquer duvida pedem posso colocar outros exemplos quem sabe um documento completo

Exemplo:Download do exemplo