F�rum Word com Delphi 10.1 #586263

26/09/2017

Ol�. Estou experimentando o Delphi 10.1 e gostaria de preencher um arquivo Word (tipo mala direta) usando o Delphi. J� havia montado um arquivo assim usando o Delphi 6, por�m n�o estou conseguindo achar uma forma de fazer no Delphi 10.1 (Berlin). Algu�m teria essa informa��o? Obrigado.

Ludgero Senhorine

Curtir t�pico

+ 0

Responder

Post mais votado

25/01/2018

Ol� Ludgero, vou te explicar a forma que uso em minhas aplica��es e tem me atendido bem na integra��o Delphi Seattle e Word, acredito que n�o ter� problemas no Berlin.

No Word, o local a ser preenchido eu costumo utilizar com os Indicadores do Word, voc� ir� encontra-lo na guia Inserir / Indicador.

Voc� seleciona a palavra ou a tag criada, no exemplo que usei criei uma tag no word <NomeUsuario> selecionei ela, cliquei em Inserir/Indicador e dei o nome de NomeUsuario, que usarei no c�digo abaixo:

Uses ShellAPI, ComObj, WordXP;

procedure TfrmCalcDVD.PreencherDoc;
var
  Word, Doc, Docs : Variant;
begin
  Word := CreateOleObject('Word.Application');
  Word.Visible := False;
  Docs := Word.Documents;
  Doc := Docs.Open(ExtractFilePath(Application.ExeName) + 'ModeloDocumento.dotx', EmptyParam, True);

  Doc.Bookmarks.Item('NomeUsuario').Select;
  Doc.ActiveWindow.Selection.Text := 'Nome Teste';

  Doc.SaveAs(ExtractFilePath(Application.ExeName) + 'ArquivoTeste.doc', 0);
  Doc.Close(False, wdFormatDocument, False);
  Word.quit;
end;

Jerson Boer

Responder

Gostei + 1

Mais Posts

25/01/2018

Ludgero

Ol� Jerson,
Obrigado por sua aten��o e resposta � minha quest�o. Vou fazer os testes para ver se consigo fazer funcionar.
Abra�o.

Responder

Gostei + 0