Einzelnen Beitrag anzeigen

Benutzerbild von semo
semo

Registriert seit: 24. Apr 2004
755 Beiträge
 
Delphi 2010 Professional
 
#1

word: bereits gesetzte bookmarks erneut setzen

  Alt 4. Dez 2004, 12:48
Code:
procedure TForm1.Button1Click(Sender: TObject);
var FileName:OleVariant;
    vWhat, vBookmark:OleVariant;
begin
  if OpenDialog1.Execute then
    FileName := OpenDialog1.FileName
  else
    exit;
  WordApplication1.Connect;
  WordApplication1.Documents.OpenOld(FileName, EmptyParam, EmptyParam,
  EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,EmptyParam,
  EmptyParam);
  WordDocument1.ConnectTo(WordApplication1.ActiveDocument);
  WordApplication1.Visible := True;
  vWhat:=wdGoToBookmark;
  vBookmark:='Name';
  WordApplication1.Selection.GoTo_(vWhat,emptyParam,emptyParam,vBookmark);
  WordApplication1.Selection.TypeText('Max Mustermann'#13'Dorfstraße 100');
End;

--> ist ja soweit alles klar.
hat man auch die möglichkeit nachdem bookmarks bereits mit text gefüllt wurden,
das worddoc gespeichert wurde, bei einem zweiten aufruf des worddocs die bookmarks mit neuem Text zu ersetzen ???

also in diesem fall hier einen neuen Straßennamen zum Beispiel zu vergeben
  Mit Zitat antworten Zitat