Formularkopf in Word exportieren

[p80286]

Hallo future01,

nicht gleich die Flinte ins Korn werfen!

Ich hab's zwar nur überflogen, aber der Aufruf von word (und das Beenden) sollte wohl funktioniern.

Wenn du Textmarken füllen willst/anspringen willst, versuch's mal hiermit:

Delphi-Quellcode:

bkmkcnt:=msword.ActiveDocument.Bookmarks.count;
  if bkmkcnt>0 then begin
    try
      msword.activedocument.bookmarks.item(bookmark).select;
      msword.activedocument.selection.text:=inhalt;
    except
    end;

Wobei bookmark den Namen des bookmarks enthält (bookmark=Textmarke).

hiermit kannst du die namen der bookmarks auslesen:

Delphi-Quellcode:

type
  ll     : tstringlist;
  bkmkcnt: integer;

.....
  i:=1;
  bkmkcnt:=msword.ActiveDocument.Bookmarks.count;
  ll.add(' Word-Dokument:'+msword.activedocument.name+' '+wfile);
  ll.add('  Anzahl Bookmarks:'+inttostr(bkmkcnt));
  if bkmkcnt>0 then
    repeat
      ll.add(inttostr(i)+') '+msword.activedocument.bookmarks.item(i).name);
      inc(i,1);
    until i>bkmkcnt;

Ich hoffe es hilft Dir.
Grüße
K-H