word: bereits gesetzte bookmarks erneut setzen

**semo**

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

word: bereits gesetzte bookmarks erneut setzen

word: bereits gesetzte bookmarks erneut setzen

Forumregeln