Word VBA 부록의 페이지 번호 제거

Question

부록 섹션에있는 경우에만 내 문서에서 페이지 번호를 제거하고 싶습니다. 섹션이 부록 스타일인지 확인한 다음 IF 문을 사용하여 아래 코드를 수정 한 다음 실행하는 방법이 있습니까?

Sub DeletePageNumbers() 

Dim objSect As Section 
Dim objHF As HeaderFooter 
Dim objPNum As PageNumber 

For Each objSect In ActiveDocument.Sections 

    For Each objHF In objSect.Headers 
     For Each objPNum In objHF.PageNumbers 
      objPNum.Delete 

     Next 
    Next 

    For Each objHF In objSect.Footers 
     For Each objPNum In objHF.PageNumbers 
     objPNum.Delete 

     Next 
    Next 

Next 

End Sub 

Answer 1

알아 냈습니다. 아래 코드 참조

For Each objSect In ActiveDocument.Sections 

    If objSect.Range.Paragraphs(1).Style = "Appendix 1" Then 

     For Each objHF In objSect.Footers 
      For Each objPNum In objHF.PageNumbers 
        objPNum.Delete 

      Next 
     Next 
    End If 

    Next