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

[Keldorn]

Hallo

dafür sind Bookmarks ungeeignet, finde ich. Nimm besser Textformularfelder (Symbolleiste Formular), das Erstellen und vor allem Ändern ist wesentlich einfacher als mit Textmarken. Doppelklick im Word auf eine Textformualrfeld und du kannst den Namen ändern.
siehe auch hier: http://www.delphi-source.de/tipps/?id=599

Mfg Frank

[semo]

danke für den tip!
werd ich mir gleich mal ansehen und testen. :thumb: