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