Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
ein Textfeld aus Kopfzeile in .doc und .docx auslesen |
10.01.2017 11:34:04 |
xyyyyyy |
|
|
|
11.01.2017 15:41:17 |
BigBen |
|
|
|
12.01.2017 09:45:39 |
Gast80637 |
|
|
Von:
xyyyyyy |
Datum:
10.01.2017 11:34:04 |
Views:
1206 |
Rating:
|
Antwort:
|
Thema:
ein Textfeld aus Kopfzeile in .doc und .docx auslesen |
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!
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
ein Textfeld aus Kopfzeile in .doc und .docx auslesen |
10.01.2017 11:34:04 |
xyyyyyy |
|
|
|
11.01.2017 15:41:17 |
BigBen |
|
|
|
12.01.2017 09:45:39 |
Gast80637 |
|
|