Word에서 표제를 삭제하는 매크로

Question

여러 개의 H1 표제가있는 WORD 문서가 있습니다. 특정 H1 제목에서 다음 H1 제목까지 모든 내용을 삭제할 수있는 매크로가 필요합니다. 본질적으로 H1 섹션을 삭제하는 것입니다. 유사하게 나는 다음 H1 또는 H2 제목까지 H2 제목에서 삭제하려고 할 수 있습니다.

Answer 1

oParagraph.Style (oParagraph는 Paragraph 개체 임)을 사용하여 단락의 스타일을 결정할 수 있습니다. 따라서 다음과 같이 할 수 있습니다.

Dim oStartHeadingParagraph As Paragraph 
Set oStartHeadingParagraph = Selection.Paragraphs(1) 

If oStartHeadingParagraph.Style <> "Heading 1" Then 
    MsgBox "Please select the Heading 1 paragraph for the section you want to delete." 
Else 

    Dim oParagraph As Paragraph 
    Set oParagraph = oStartHeadingParagraph 

    Do While Not oStartHeadingParagraph.Next Is Nothing 
     If oStartHeadingParagraph.Next.Style = "Heading 1" Then 
      Exit Do 
     Else 
      oStartHeadingParagraph.Next.Range.Delete 
     End If 
    Loop 

    oStartHeadingParagraph.Range.Delete 

End If 

Answer 2

아웃 라인보기에서 문서를 편집하십시오. 다음과 같이이 이동하고 선택한 경우에만 제목 1, 레벨 :

View > Outline 

다음, 레벨을 선택

Show Level > Level 1. 

가 더 이상 유지하려는에만 H1 제목을 삭제합니다. & 드롭 제목을 드래그 할 수 있으며 종속 컨텐츠가 따라옵니다.

필요한 경우 대규모 편집을 수행 할 수있는 훌륭한 방법입니다.