Fußzeile einer Worddatei kopieren mit Excelmakro
12.11.2004 14:22:48
Andreas
Nur funktioniert das Ansprechen der Fußzeile nur aus einem Wordmakro heraus aber nicht aus einem Excelmakro.
Hier mein Code:
Public
Sub read_word()
Dim oWord As Object
Set oWord = CreateObject("Word.application")
oWord.documents.Open Filename:="C:\Datei.doc"
' In einem Word-Makro funktioniert folgendes tadellos
' with ActiveDocument
' .Sections(1).Footers(wdHeaderFooterFirstPage).Range.Copy
' End With
' übersetzt würde das für mich bedeuten ich benutze folgenden Befehl in meinem Excel-Makro
oWord.ActiveDocument.Sections(1).Footers(wdHeaderFooterFirstPage).Range.Copy
' funktioniert nur leider nicht, kann mir dabei jemand helfen
Sheets.Add
ActiveSheet.Paste
End Sub
Kann mir jemand sagen, ob es eine Lösung gibt.
Beste Grüße
Andreas