Set Datum = Application.ActiveDocument.Fields(Date)
So geht man nicht nicht mit einer Collection um! Was ist dieses Date bei dir? Das ist üblicherweise eine VBA-Funktion, welche dir das aktuelle Datum liefert. Das ist völlig an dem vorbei, was du vorhast.
Umgang mit einer Collection, so:
Dim objField As Word.Field
For Each objField In ThisDocument.Fields
Debug.Print objField.Code, objField.Result
Next
oder
Dim i As Long
For i = 1 To ThisDocument.Fields.Count
Debug.Print ThisDocument.Fields(i).Code, ThisDocument.Fields(i).Result
Next
Schnellbausteine haben keine Namen, also kann man sie nur über deren Index ansprechen.
Grüße
|