Textformularfeld in Word 95 mit Access 97 auslesen - Lösung

[Justine]

Sub GetTheTextFromField()
Dim wo As Object
Dim text As String
' Objekt erstellen
Set wo = CreateObject("Word.Basic")

text = ""
' Den Text aus dem Feld Text1 in nach "text" uebertragen
text = wo.[AbrufenFormularFeldergebnis$]("Text1")
' "text" ausgeben
MsgBox text
Set wo = Nothing
End Sub


Wers braucht :p

Ich selber habe hierfür 14 Tage gesucht. :smashing:

Gruss an alle
:-)
Justine