MS Word 매크로에서 Do 루프를 끝내는 방법

Question

문서의 머리글 색을 변경하는 매크로를 만들었지 만 문서의 끝에 도달 할 때 또는 남아있는 머리글이없는 경우 - 오류.

내가 원하는 것은 문서 끝의 마지막 헤더 다음에 Do 루프를 종료하는 것입니다.

여기 내 코드입니다 :

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

이 헤더 주소/바닥 글이 최적으로 기록 된 매크로를 잘 작동하지 않습니다, 그래서 당신이 우리에게주는 것보다 약간 다른 접근 방법을 보여 드리겠습니다. 아래 코드는 기본 개체 인과 직접 작동하며 선택 항목이 아닌 Range에 서식을 적용합니다. 이것은 더 빠르며 화면이 "깜박이지 않습니다".

머리글과 같은 그룹으로 작업 할 때 For-Each 루프를 사용하여 그룹을 순환하는 것이 더 일반적입니다. 이 경우 머리글은 섹션에만 해당되므로 섹션을 반복합니다. 이 라인을 따라 뭔가 : 당신이 보면

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 

또한 수행에 대한 도움말 항목은 그들이 루프를 종료하기 위해 테스트을 요구 것을 볼 수 있습니다 루프 : Do While 또는 Do Until 또는 Loop While 또는 Loop Until 일정 기준이 충족됩니다. 나는 당신이 우리에게 보여주는 코드가 당신에게 오류를 줄 것임을 확신한다 - 질문을 할 때 항상 을 포함해야한다. 모든 오류 메시지를 포함하여 관련 정보 ...