Word-Formularfeld in Excel übertragen
21.07.2006 12:14:18
Wolfgang
ich habe mehrere identische Word-Formulare und möchte aus diesen die Einträge in den Formularfeldern in ein Excel (zu Auswertungszwecken) zusammenfassen.
so weit fonktionierts schonmal:
Sub einlesen()
Dim Wordapp As Object
Dim Worddoc As Object
pfad = Worksheets("Wertevorrat").Cells(3, 3).Value
i = 0
Do
i = i + 1
Datei = Worksheets("Dateinamen").Cells(i + 2, 1).Value
Dateipfad = pfad & Datei
If Datei <> "" Then
Set Wordapp = CreateObject("Word.Application")
Set Worddoc = Wordapp.Documents.Open(Dateipfad)
Wordapp.Visible = True
Worksheets("Auswertung").Cells(i, 1) = Worddoc.Name
Worksheets("Auswertung").Cells(i, 2) = ?
Worddoc.Close
End If
Loop Until Datei = ""
Wordapp.Quit
End Sub
Wie spreche ich nun die Formularfelder an?
Es sind Textfelder, Auswahlfelder und Checkboxen.
Danke!
Wolfgang