Justine
18.05.2004, 10:45
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
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