Word VB code voor bijwerken verwijzingen

[evdsl]

Goede middag,

Ik heb in mijn voettekst van een rapportsjabloon paginanummering staan en ook verwijzingen naar bookmarks op de eerste pagina (auteur en versie).

De code: ActiveDocument.Fields.Update werkt niet voor de REF velden. Kan iemand mij helpen aan de code om de ref velden bij te werken?

Alvast dank voor het meedenken.

 

[evdsl]

Code voor bijwerken velden

Ik heb het gevonden.

Zie: http://word.mvps.org/FAQs/MacrosVBA/UnlinkFldsFromHeaders.htm


De code:

Dim oField As Field 
Dim oSection As Section 
Dim oHeader As HeaderFooter 
Dim oFooter As HeaderFooter 

For Each oSection In ActiveDocument.Sections 

    For Each oHeader In oSection.Headers 
        If oHeader.Exists Then 
            For Each oField In oHeader.Range.Fields 
                oField.Unlink 
            Next oField 
        End If 
    Next oHeader 

    For Each oFooter In oSection.Footers 
        If oFooter.Exists Then 
             For Each oField In oFooter.Range.Fields 
                 oField.Unlink 
            Next oField 
        End If 
    Next oFooter 

Next oSection