如何在 MS Word 宏中结束 Do 循环

Question

I've made a macro to change the header color of a document, but when hitting the end of the document - or if there's no remaining header - I'm getting an error.

What I want is after the last header, at the end of the document, to exit my Do Loop.

Here's my code:

 Sub Changecolortest5()
'
' Changecolortest5 Macro
'
'
    If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
        ActiveWindow.Panes(2).Close
    End If
    If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
        ActivePane.View.Type = wdOutlineView Then
        ActiveWindow.ActivePane.View.Type = wdPrintView
    End If
    Do
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend
    Selection.Font.Color = 8527984
    ActiveWindow.ActivePane.View.NextHeaderFooter
    Loop
'Exit Header and Footer
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub

Answer 1

Addressing Headers/Footers optimally doesn't work well with recorded macros, so I'm going to show you a slightly different approach than what you give us. The code below works directly with the underlying objects and applies formatting to the Range rather than a selection. This is faster and the screen doesn't "flicker".

When working with a group of things, such as Headers, it's more usual to use a For-Each loop to cycle through the group. In this case, Headers are specific to Sections, so you loop the Sections. Something along these lines:

Dim doc as Word.Document
Dim sec as Word.Section

Set doc = ActiveDocument
For Each sec in doc.Sections
  sec.Headers(wdHeaderFooterPrimary).Range.Paragraphs(1).Range.Font.Color = 8527984
  sec.Headers(wdHeaderFooterFirstPage).Range.Paragraphs(1).Range.Font.Color = 8527984
Next

In addition, if you look up the Help topic for Do loops you'll see that they require a test to end the loop: Do While or Do Until or Loop While or Loop Until a certain criterium is met. I'm pretty sure the code you show us must be giving you an error - when asking questions you should always include all relevant information, including any error messages...