Inhalt aus Textfelder von Word(97) nach Access (97) importieren?

[Sven Engel]

Hallo,

ich soll auf die Schnelle eine kleine Datenbank in Access97 erstellen. Um die Datenbank zu füllen, muß ich ein Word-Dokument auslesen. Genauer gesagt <b> nur </b> die Textfelder auslesen. Mit den ausgelesenen Daten, soll meine Access Datenbank gefüllt werden.
Bisher habe ich versucht eine Text-Datei mit Word zu erstellen, in der nur die Textfeldinhalte durch ";" getrennt sind. Das einzige was mir gelungen ist war, dass ich den ganzen Inhalt des Dokumentes in eine Textdatei speichern konnte.

kann mir jemand helfen?

Sven

[Kay Weisgerber]

versuchs damit:

Sub auslesen()
Dim strValue As Variant
Dim counter As Integer
strValue = Array("", "", "", "", "", "", "", "") 'mach das array so gross, dass
'die anzahl der elemente der
'der textfelder entspricht
counter = ActiveDocument.FormFields.Count - 1
For i = 0 To counter
strValue(i) = ActiveDocument.FormFields(i + 1).Result
Next
Documents.Add , False
For i = 0 To counter
Selection.InsertAfter strValue(i)
Selection.InsertAfter ";"
Next
End Sub

speicher das dokument dann als txt..

[Kay Weisgerber]

probier's damit<br><br><br>Sub auslesen()<br>
Dim strValue As Variant<br>
Dim counter As Integer<br>
strValue = Array("", "", "", "", "", "", "", "") 'mach das array so gross, dass<br>
'die anzahl der elemente der<br>
'der textfelder entspricht<br>
counter = ActiveDocument.FormFields.Count - 1<br>
For i = 0 To counter<br>
strValue(i) = ActiveDocument.FormFields(i + 1).Result<br>
Next<br>
Documents.Add , False<br>
For i = 0 To counter<br>
Selection.InsertAfter strValue(i)<br>
Selection.InsertAfter ";"<br>
Next<br>
End Sub<br><br>
auf die schnelle sollte das reichen...<br><br><br>ka