Hallo liebe VBA-Experten,
ich habe folgendes Thema:
In MS Word werden Querverweise z.B. mit dem Style ‚Normal‘ in den Text eingefügt.
Das nachfolgend beschriebene Macro erkennt eingefügte Querverweise und wendet dann einen definierten Style auf den entsprechenden Bereich im Text (ActiveDocument.fields.result) an.
Es funktioniert soweit, dass im Dokument an allen relevanten Stellen die Querverweise mit dem geänderten Style angezeigt werden. Was ich ja auch erreichen wollte.
Aber mit dem nächsten ‚Update Field‘ wird der Querverweis wieder auf den ursprünglichen Style zurückgesetzt.
Wo liegt das Problem, dass der Style nicht festgeschrieben ist?
Macro:
For Each fieldLoop In ActiveDocument.Fields
If fieldLoop.Type = wdFieldRef Or fieldLoop.Type = wdFieldNoteRef Or fieldLoop.Type = wdFieldPageRef Then
If InStr(1, fieldLoop.Code.Text, "_Toc", 1) = 0 Then
fieldLoop.Result.Style = ActiveDocument.Styles("Hypertext")
fieldLoop.Result.Font.Bold = True
fieldLoop.UpdateSource
End If
End If
Next fieldLoop
Viele Grüße
Frank Eser
|