Hallo!
mit dem folgenden Quellcode(ausschnitt) versuche ich in die Kopfzeile<BR>
eines Word_Documents zu schreiben, was mir bis auf die kleinigkeit das<br>
das insertAfter tatsächlich nach dem Bookmark einfügt auch gelingt.<br>
Da ich in die Kopfzeile eine Tabelle eingefügt habe in der versch. <br> Bookmarks stehen schreibt InsertAfter immer in die nächste Zeile<br>
bzw. in das nächste Bookmark. Wie kann ich den Code so modfizieren,<br>
das nicht InsertAfter sondern direkt geschrieben wird.<br>
Ich hatte auch versucht die Tabelle in der Kopfzeile direkt an-<br>
zusprechen mit Cells(1,1) usw. das geht aber auch nicht!
vNewDoc:= False;<br>
DM_Haupt.WordApp.Documents.AddOld(vDot, vNewDoc);<br>
DM_Haupt.Doc.ConnectTo(DM_Haupt.WordApp.ActiveDocu ment);<br>
except<br>
ShowMessage('FEHLER!! Word 2000 Vorlage wurde nicht gefunden');<br>
exit<br>
end;<br>
DM_Haupt.WordApp.Visible:= True; <br>
DM_Haupt.WordApp.WindowState := wdwindowstatemaximize;<br>
<br>
//in die Kopfzeile wechseln!!<br>
DM_Haupt.WordApp.ActiveDocument.ActiveWindow.Activ ePane.View.<br>
SeekView := wdSeekCurrentPageHeader;<br>
<br>
aRange := SelectBookmarkRange('DUMMY')<BR>
aRange.InsertAfter('D20');<br>
<br>
wäre toll wenn ich ne Antwort bekommen könnte!
jürgen
mit dem folgenden Quellcode(ausschnitt) versuche ich in die Kopfzeile<BR>
eines Word_Documents zu schreiben, was mir bis auf die kleinigkeit das<br>
das insertAfter tatsächlich nach dem Bookmark einfügt auch gelingt.<br>
Da ich in die Kopfzeile eine Tabelle eingefügt habe in der versch. <br> Bookmarks stehen schreibt InsertAfter immer in die nächste Zeile<br>
bzw. in das nächste Bookmark. Wie kann ich den Code so modfizieren,<br>
das nicht InsertAfter sondern direkt geschrieben wird.<br>
Ich hatte auch versucht die Tabelle in der Kopfzeile direkt an-<br>
zusprechen mit Cells(1,1) usw. das geht aber auch nicht!
vNewDoc:= False;<br>
DM_Haupt.WordApp.Documents.AddOld(vDot, vNewDoc);<br>
DM_Haupt.Doc.ConnectTo(DM_Haupt.WordApp.ActiveDocu ment);<br>
except<br>
ShowMessage('FEHLER!! Word 2000 Vorlage wurde nicht gefunden');<br>
exit<br>
end;<br>
DM_Haupt.WordApp.Visible:= True; <br>
DM_Haupt.WordApp.WindowState := wdwindowstatemaximize;<br>
<br>
//in die Kopfzeile wechseln!!<br>
DM_Haupt.WordApp.ActiveDocument.ActiveWindow.Activ ePane.View.<br>
SeekView := wdSeekCurrentPageHeader;<br>
<br>
aRange := SelectBookmarkRange('DUMMY')<BR>
aRange.InsertAfter('D20');<br>
<br>
wäre toll wenn ich ne Antwort bekommen könnte!
jürgen
Comment