hallo zusammen,

ich möchte ein paar Informationen in Kopfzeile aus Word-Datei per VBA auslesen und weiterbearbeiten.Leider funktioniert es nicht so gut. Jetzt schreibe ich dieses Problem:

die kopfzeile von Word-Datei besteht aus zwei Elemente, ein Textfeld und ein Bild. Ich möchte nun den Text aus dem Textfeld auslesen. Es funktioniert gut bei .doc, leider bei .docx funktioniert es nicht und kommt immer eine Fehlermeldung: Die Methode 'ShapeRange' für das Objekt 'Range' ist fehlgeschlagen.

meine Codes sind:

Sub test()
Dim Worddatei As Object
Dim sFileName As String
Dim objShape As Object
Dim text As String

sFileName = Environ("USERPROFILE") & "\Desktop\***.doc"
'hier ist den Dateiname, jetzt funktioniert es gut, aber wenn ich "***.docx" schreibe, funktioniert es nicht mehr
Set Worddatei = GetObject(sFileName)
Set objShape = Worddatei.Sections(1).Headers(wdHeaderFooterPrimary).Range.ShapeRange.Item(1)
text = objShape.TextFrame.TextRange.text
MsgBox text
End Sub

Hoffentlich kann jemand mir helfen. Vielen Dank!