Sub FillTextfield1()
Dim BookmarkName As String
Dim fld As Field
BookmarkName = "Textfeld1"
Set fld = SearchTextField(BookmarkName)
If Not fld Is Nothing Then
fld.Result.Text = "Neuer Inhalt (" & Now & ")"
Else
MsgBox "Textfeld nicht vorhanden", vbCritical
End If
End Sub
Sub FillTextfield2()
Dim BookmarkName As String
Dim fld As Field
BookmarkName = "Textfeld2"
Set fld = SearchTextField(BookmarkName)
If Not fld Is Nothing Then
fld.Result.Text = "Neuer Inhalt (" & Now & ")"
Else
MsgBox "Textfeld nicht vorhanden", vbCritical
End If
End Sub
Function SearchTextField(sName As String) As Field
Dim fld As Field
Dim bkm As Bookmark
With ActiveDocument
For Each fld In .Fields
Set bkm = fld.Result.Bookmarks.Item(1)
If bkm.Name = sName Then
Set SearchTextField = fld
End If
Next
End With
End Function