** Edit **
Hallo,
mein Problem hat sich geändert, da ich gemerkt habe das ich auf dem falschen Weg bin.
Ich muss ein Word Dokument öffnen und den gesamten Inhalt der Kopfzeile auslesen und in die Kopfzeile eines anderen Dokumentes einfügen.
In der (auszulesenden) Kopfzeile befindet sich eine Tabelle welche einige dieser "Felder" enthält.
Kopiere ich nun den Inhalt in die andere Kopfzeile, ist erstens die in der Orginalen enthaltene Tabelle verschwunden, sowie die Felder ebenfalls, bzw die Feldbezeichnung bleibt vorhanden, aber es ist eben kein Feld mehr....
Ich hab auch leider keinen Plan wie ich dies Problem lösen kann.
Ich arbeite übrigens mit VB 6.0 und vermute das mein Problem sich mit VBA besser Lösen ließe, will dies allerdings nur als wirklich letze Ausweichmöglichkeit verwenden !
Hier ist mein momentaner Code:
Hallo,
mein Problem hat sich geändert, da ich gemerkt habe das ich auf dem falschen Weg bin.
Ich muss ein Word Dokument öffnen und den gesamten Inhalt der Kopfzeile auslesen und in die Kopfzeile eines anderen Dokumentes einfügen.
In der (auszulesenden) Kopfzeile befindet sich eine Tabelle welche einige dieser "Felder" enthält.
Kopiere ich nun den Inhalt in die andere Kopfzeile, ist erstens die in der Orginalen enthaltene Tabelle verschwunden, sowie die Felder ebenfalls, bzw die Feldbezeichnung bleibt vorhanden, aber es ist eben kein Feld mehr....
Ich hab auch leider keinen Plan wie ich dies Problem lösen kann.
Ich arbeite übrigens mit VB 6.0 und vermute das mein Problem sich mit VBA besser Lösen ließe, will dies allerdings nur als wirklich letze Ausweichmöglichkeit verwenden !
Hier ist mein momentaner Code:
Visual Basic-Quellcode
- 'Hole den Inhalt der Kopfzeile der Vorlage (Orginal Dokument)
- Set objWordVorlage = CreateObject("Word.Application")
- objWordVorlage.Documents.Open "L Gesamt.doc"
- Set KopfzeileVorlage = objWordVorlage.ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range
- ' KopfzeileVorlage.Text Hier hab ich ja jetzt den Inhalt der Kopfzeile
- Set objWord = CreateObject("Word.Application")
- objWord.Documents.Open "C:\Dokumente und Einstellungen\sreule\Desktop\FOB 002-06 Änderungsvorschlag.doc"
- Set Kopfzeile = objWord.ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range
- 'jetzt einfach kopieren...
- Kopfzeile.Text = KopfzeileVorlage.Text
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „WhiteGloves“ ()