Word vba select alle shapes i header og footer

Hvis det skal virke i diverse dokumenter med en/flere sektioner og med forskellige indstillinger af speciel første side mm., er koden nødt til at løbe igennem alle sektioner og håndtere alle varianterne af sidehoved (3 typer).

Shapes er nogle lidt sære objekter at have med at gøre. Følgende makro vil unlinke felter i Shape-objekter, som indeholder tekst, i alle sektioner og alle 3 typer headers.

Bemærk, at makroen ikke ændrer på selection, hvilket absolut er at foretrække.

Sub UnlinkFieldsInShapesInHeader()
    Dim oField As Field
    Dim oShape As Shape
    Dim oSec As Section
   
    'Treat all sections
    For Each oSec In ActiveDocument.Sections
        'Treat shapes in each header type
        For Each oShape In oSec.Headers(wdHeaderFooterPrimary).Shapes
            If oShape.TextFrame.HasText = True Then
                oShape.TextFrame.TextRange.Fields.Unlink
            End If
        Next oShape
        For Each oShape In oSec.Headers(wdHeaderFooterFirstPage).Shapes
            If oShape.TextFrame.HasText = True Then
                oShape.TextFrame.TextRange.Fields.Unlink
            End If
        Next oShape
        For Each oShape In oSec.Headers(wdHeaderFooterEvenPages).Shapes
            If oShape.TextFrame.HasText = True Then
                oShape.TextFrame.TextRange.Fields.Unlink
            End If
        Next oShape
    Next oSec
End Sub

Works like a charm!

Tusinde tak - vil du lave et svar?

Velbekomme.

Husk at afslutte dine spørgsmål. Gælder også http://www.eksperten.dk/spm/941716