Otimo exemplo para quem quer usar o Delphi para alimentar um documento escrito em Word com informações dinâmicas. Exemplo: Mala direta, contratos, propostas, etc.

uses   ComObj; type TWordReplaceFlags = set of (wrfReplaceAll, wrfMatchCase, wrfMatchWildcards); function Word_StringReplace(ADocument: TFileName; SearchString, ReplaceString: string; Flags: TWordReplaceFlags): Boolean; const wdFindContinue = 1;       wdReplaceOne = 1;       wdReplaceAll = 2;       wdDoNotSaveChanges = 0; var   WordApp: OLEVariant; begin   Result := False;   if not FileExists(ADocument) then begin     ShowMessage('O Documento '+ADocument+' não foi encontrado!');     Exit;   end;   try     WordApp := CreateOLEObject('Word.Application');   except     on E: Exception do     begin       E.Message := 'Instale o Microsoft Word!';       raise;     end;   end;   try     WordApp.Visible := False;     WordApp.Documents.Open(ADocument);     WordApp.Selection.Find.ClearFormatting;     WordApp.Selection.Find.Text := SearchString;     WordApp.Selection.Find.Replacement.Text := ReplaceString;     WordApp.Selection.Find.Forward := True;     WordApp.Selection.Find.Wrap := wdFindContinue;     WordApp.Selection.Find.Format := False;     WordApp.Selection.Find.MatchCase := wrfMatchCase in Flags;     WordApp.Selection.Find.MatchWholeWord := False;     WordApp.Selection.Find.MatchWildcards := wrfMatchWildcards in Flags;     WordApp.Selection.Find.MatchSoundsLike := False;     WordApp.Selection.Find.MatchAllWordForms := False;     if wrfReplaceAll in Flags then       WordApp.Selection.Find.Execute(Replace := wdReplaceAll)     else       WordApp.Selection.Find.Execute(Replace := wdReplaceOne);     WordApp.ActiveDocument.SaveAs(ADocument);     Result := True;     WordApp.ActiveDocument.Close(wdDoNotSaveChanges);   finally     WordApp.Quit;     WordApp := Unassigned;   end; end; procedure TForm1.Button1Click(Sender: TObject); begin   Word_StringReplace('C:\\temp\\Teste.doc','%nome%','Adenilton',[wrfReplaceAll]); end;

Quebra-Linha

Colaborador..: Adenilton Rodrigues
Categoria(s).: Delphi;
Data.........: 07/07/2002 09:53:32
Visualizado..: 573 vezes
Fonte........: AdeN Knowledge DB