Opdater alle felter i Word 2013 med en makro - Trin-for-trin guide

Hvordan opdateres alle felter i et Word 2013-dokument, inklusive krydshenvisninger, sidetal, indholdsfortegnelser, indekser, overskrifter osv., ved hjælp af en makro, der kan køres flere gange for at sikre, at alt er opdateret korrekt?

For at opdatere alle felter i et Word 2013-dokument, inklusive krydshenvisninger og indholdsfortegnelser, kan du bruge en makro ved at følge en række trin i VBA-editoren og derefter køre makroen fra Word.

Sådan opdateres alle felter i et Word 2013-dokument ved hjælp af en makro

For at opdatere alle felter i et Word 2013-dokument, inklusive krydshenvisninger, sidetal, indholdsfortegnelser, indekser, overskrifter osv., kan du bruge en makro. Følg nedenstående trin for at oprette og køre makroen:

1. Åbn Word 2013 og det dokument, du vil opdatere.
2. Tryk på Alt + F11 for at åbne VBA-editoren.
3. I VBA-editoren skal du indsætte følgende kode i et nyt modul:

Sub UpdateAllFields()
    Dim doc As Document
    Dim fld As Field

    ' Sæt reference til det aktive dokument
    Set doc = ActiveDocument

    ' Opdater alle felter i dokumentets hovedtekst
    For Each fld In doc.Fields
        fld.Update
    Next fld

    ' Opdater alle felter i dokumentets overskrifter og fodnoter
    For Each sec In doc.Sections
        For Each hdr In sec.Headers
            For Each fld In hdr.Range.Fields
                fld.Update
            Next fld
        Next hdr
        For Each ftr In sec.Footers
            For Each fld In ftr.Range.Fields
                fld.Update
            Next fld
        Next ftr
    Next sec

    ' Opdater indholdsfortegnelser
    For Each toc In doc.TablesOfContents
        toc.Update
    Next toc

    ' Opdater indekser
    For Each idx In doc.Indexes
        idx.Update
    Next idx

    ' Opdater krydshenvisninger
    For Each ref In doc.RefFields
        ref.Update
    Next ref

    ' Opdater sidetal
    doc.Repaginate
End Sub

4. Gem og luk VBA-editoren.
5. Tilbage i Word, tryk på Alt + F8 for at åbne makro-dialogboksen.
6. Vælg UpdateAllFields og klik på Kør.

Du kan køre denne makro flere gange for at sikre, at alle felter i dokumentet er opdateret korrekt.