Word: Felder aktualisieren

Gepostet am: Oct 01, 2013 7:37:28 PM

Wenn man in Word größere Textstellen mit Bildern und Bildbeschriftungen oder dergleichen verschiebt, dann werden die Nummern nicht automatisch aktualisiert. 

Mit folgenden Skript kann man alle Bildbeschriftungen und auch alle anderen Felder aktualisieren.

Public Sub AlleFelderAktualisieren()

Dim rngDoc As Range

Dim oDoc As Document

Set oDoc = ActiveDocument

For Each rngDoc In oDoc.StoryRanges

    rngDoc.Fields.Update

    Debug.Print rngDoc.Text

    While Not (rngDoc.NextStoryRange Is Nothing)

        Set rngDoc = rngDoc.NextStoryRange

        Debug.Print rngDoc.Text

        rngDoc.Fields.Update

    Wend

Next rngDoc

End Sub