Office: mit Excel Makro aus Word Datei Textfeld auslesen

NicoBe · 9. Juni 2007

Hallo Mitforisten *wink.gif*,

ich habe ein kleines Problem und zwar möchte ich gerne in Excel ein Makro schreiben, dass mir aus einem Worddokument die Textfelder ausliest und dann in der Tabelle untereinander auflistet. Als Beispiel hat man zum Beispiel in Word eine Headline Kosten und darunter ein Textfeld und dann steht in Excel in A1 Kosten und ich möchte über das Makro den Inhalt aus dem Textfeld in A2 schreiben. Hilfe wäre super,

mfg

Nico

:)

IngGi · 11. Juni 2007

Hallo Nico,

hier mal ein Beispielmakro. Das Makro listet die Inhalte aller Textfelder des Dokumentes "C:\Dokument1.doc" in Spalte A des aktiven Tabellenblattes. Vorher wird geprüft, ob bereits eine Wordinstanz läuft und wenn ja, ob das Dokument "C:\Dokument1.doc" bereits geöffnet ist. Gegebenenfalls wird die Datei noch geöffnet, bzw. Word überhaupt gestartet.
Code:

Sub test()

Dim wdApp As Object
Dim wdDoc As Object
Dim wdTxtFeld As Object
Dim offen As Boolean

On Error Resume Next
Set wdApp = GetObject(, "Word.Application")
On Error GoTo 0

If xlApp Is Nothing Then
Set wdApp = CreateObject("Word.Application")
wdApp.Documents.Open "C:\Dokument1.doc"
Else
offen = True
For Each wdDoc In wdApp.Documents
If wdDoc.FullName = "C:\Dokument1.doc" Then
wdDoc.Activate
Exit For
End If
Next 'xlWb
If wdApp.Activedocument.FullName <> "C:\Dokument1.doc" Then
wdApp.Documents.Open "C:\Dokument1.doc"
End If
End If

For Each wdTxtFeld In wdDoc.FormFields
ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = wdTxtFeld
Next 'wdTxtFeld

If Not offen Then
For Each wdDoc In wdApp.Documents
wdDoc.Close False
Next 'xlwb
wdApp.Quit
End If

Set wdTxtFeld = Nothing
Set wdDoc = Nothing
Set wdApp = Nothing

End Sub

Code eingefügt mit
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

NicoBe · 14. Juni 2007

Hey, besten Dank *Smilie

puertodelacruze · 21. März 2013

Hallo,
ich bin lediglich User und kein VBA-Freak, deshalb auch meine Frage hierzu.

Ich habe das gleiche oben geschilderte Problem und bei der Eingabe des obigen Codes, erhalte ich eine Meldung :"Fehler beim Kompilieren: Variable nicht definiert"
Dabei ist xlApp Markiert

Evtl. gibt es ja noch jemanden, der selbst nach dieser langen Zeit darauf antworten kann.

Danke

Hasso · 22. März 2013

Schreib mal wdApp statt xlApp...

puertodelacruze · 24. März 2013

Hallo,
Danke für deine Antwort.

Da der Post hier von 2007 war, dachte ich es meldet sich keiner mehr darauf.
Also habe ich hier: http://www.ms-office-forum.net/forum....php?p=1504490 - neu angefragt.

Gleiche Antwort erhielt ich bereits mit negativem Erfolg.

Danke

Office: mit Excel Makro aus Word Datei Textfeld auslesen

mit Excel Makro aus Word Datei Textfeld auslesen

mit Excel Makro aus Word Datei Textfeld auslesen

mit Excel Makro aus Word Datei Textfeld auslesen

mit Excel Makro aus Word Datei Textfeld auslesen - Similar Threads - Excel Makro Word

Word-Dateien über Excel in eine ausgewählte Word-Datei übertragen per Makro

Word, Excel Serienbrief Makro in einzelne Datein

Word-Makro von Excel aus starten

Aus Word, Makro in Excel Sheet aufrufen

Word Makro aus Excel starten

Aus Excel Makro Word Datei ändern

Automatische Formatierung und Einbinden von Bildern