Mudar cabeçalho de documento do Word

Delphi

26/08/2005

Pessoal, estou precisando mudar o cabeçalho de um documento do Word pelo Delphi via programação.

Desde já agradeço a atenção.


Andreaskaquino

Andreaskaquino

Curtidas 0

Respostas

Xanatos

Xanatos

26/08/2005

Eu precisei fazer isso e fiz assim...



function Word_StringReplace(WordApp: OleVariant; SearchString, ReplaceString: string; Flags: TWordReplaceFlags): Boolean;
const
  wdFindContinue = 1;
  wdReplaceOne = 1;
  wdReplaceAll = 2;
  wdDoNotSaveChanges = 0;
begin
  Result := False;

  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;
  {  Faz a Substituicao }
  if wrfReplaceAll in Flags then
    WordApp.Selection.Find.Execute(Replace := wdReplaceAll)
  else
    WordApp.Selection.Find.Execute(Replace := wdReplaceOne);

  Result := True;
end;


  try
    MSWord := CreateOleObject(´Word.Application´);
  except
    showmessage(´Erro ao Conectar ao Word...´);
    Exit;
  end;

      // Especificando o nome do Documento Modelo para o Contrato
  FileName := ´C:\CONTRATO.doc´;

  try
    MSWord.Visible:= true;
    MSWord.Documents.Open(FileName);


    // Cabeçalho do Contrato
    Word_StringReplace(MSWord,´´,´001/2005´, [wrfReplaceAll]);
    Word_StringReplace(MSWord,´´,´2004/2005´, [wrfReplaceAll]);
    Word_StringReplace(MSWord,´´,´FULANO´, [wrfReplaceAll]);



GOSTEI 0
POSTAR