Inhalte aus Forumlarfeldern in Word in einen Tabelle auslesen

03/02/2010 - 11:31 von kaIh | Report spam
Hallo Word-Experten,
ich habe eine kleinen Herausforderung, von der ich sicher bin, dass
sie sich relativ leicht lösen lassen müsste, bekomme es aber selber
nicht hin.
Wer hat eine Idee dazu?

Ich habe ein mehrseitiges Worddokument (Word 2003) in dem relativ
viele Formularfelder integriert sind (Name eines Produktes,
verschiedene Beschreibungen, Kommentare zu bestimmten Eigenschaften
des Produktes und vieles mehr).

Ich werde dieses Dokument an ca 100 Personen verteilen und mit
ausgefüllten Formularfeldern zurückbekommen.

Im Anschluss würde ich gerne die Inhalte aller Formularfelder (jede
der 100 Personen hat die gleichen Felder, füllt aber was
unterschiedliches ein) auslesen und in einer Tabelle speichern
(entweder in einer Wordtabelle oder in Excel).

Meine Frage:
Gibt es eine Möglichkeit Formularfelder aus Word in eine Tabelle
auszulesen?
Wie stelle ich das am besten an?

Vielen Dank
kaIH
 

Lesen sie die antworten

#1 Thomas Gahler
04/02/2010 - 07:42 | Warnen spam
Hallo kaIh


Meine Frage:
Gibt es eine Möglichkeit Formularfelder aus Word in eine Tabelle
auszulesen?
Wie stelle ich das am besten an?


Du hast zwei Möglichkeiten.

A.)
Du zeigst den Anwendern auf, dass sie vor dem Speichern die Option
Extras/Optionen/Speichern das Kontrollkàstchen 'Formularen nur Daten
speichern' aktiviern. Dann bekommst du eine .txt-Datei zurück, welche nur
die eingegeben Werte enthàlt. Diese Kannst du anschliessend in Excel via
Datei/Öffnen oder mittels eines Makros importieren.

B.)
Du stellst sicher, dass jedes Formularfeld mit einer Textmarke versehen ist
(Doppelklick auf das Textfeld und das Feld 'Textmarke' ausfüllen). Jetzt
kannst Mittels eines kleines Makros die Werte auslesen und irgendwas damit
machen.


Sub Demo()
Dim doc As Word.Document
Dim fld As Word.FormField

Set doc = ActiveDocument
For Each fld In doc.FormFields
If fld.Type = wdFieldFormTextInput Then
MsgBox "Name" & vbTab & fld.Name & vbCr & _
"Wert" & vbTab & fld.Result
End If
Next fld
End Sub


Anstelle der MsgBox direkt nach Excel schreiben
- How to Control Excel from Word
http://word.mvps.org/faqs/interdev/...omword.htm






Thomas Gahler
Co-Autor von »Microsoft Word-Programmierung.
Das Handbuch« (MS Press)


- Windows XP (SP3), Office XP (SP3)

Ähnliche fragen