WORD: Macro to Cycle Through Headers & Remove Merge Fields / Change Formatting to Black

[jimmycooker]

Hi,

Can anyone help with a macro to Cycle Through Headers & Remove Merge Fields / Change Formatting to Black?

Thanks.

 

[Macropod]

For example:

Sub Demo()
Application.ScreenUpdating = False
Dim Sctn As Section, HdFt As HeaderFooter, f As Long
With ActiveDocument
  For Each Sctn In .Sections
    For Each HdFt In Sctn.Headers
      With HdFt
        If .Exists Then
          If .Index = 1 Or .LinkToPrevious = False Then
            With .Range
              For f = .Fields.Count To 1 Step -1
                With Fields(f)
                  If .Type = wdFieldMergeField Then
                    .Result.Font.ColorIndex = wdBlack
                    .Unlink
                  End If
                End With
              Next
            End With
          End If
        End If
      End With
    Next
  Next
End With
Application.ScreenUpdating = True
End Sub

 

[jimmycooker]

Thank you! I'll test this later....

 

[Macropod]

Cross-posted at: Macro to Remove Merge Fields / Format Black (All Headers)
Please read Rule #13: Message Board Rules