다른 사람으로부터받은 문서로 작업하는 경우 일상적으로해야 할 작업 중 하나는 문서의 모든 머리글과 바닥 글을 삭제하는 것입니다. 이를 수행하는 한 가지 방법은 단순히 다양한 머리글과 바닥 글을 선택하고 삭제하는 것입니다. 그러나 문서에 여러 섹션이 포함되어있는 경우에는 시간이 많이 걸릴 수 있습니다. (특히 각 섹션에 최대 3 개의 서로 다른 머리글과 바닥 글이있을 수 있다고 생각하는 경우)

반복적이고 시간이 많이 걸리는 작업은 항상 매크로의 주요 후보입니다. 이것은 예외가 아닙니다. 다음 매크로는 문서의 각 섹션을 바로 압축하여 정의 된 모든 머리글과 바닥 글을 삭제합니다.

Sub RemoveHeadAndFoot()

Dim oSec As Section     Dim oHead As HeaderFooter     Dim oFoot As HeaderFooter

For Each oSec In ActiveDocument.Sections         For Each oHead In oSec.Headers             If oHead.Exists Then oHead.Range.Delete         Next oHead

For Each oFoot In oSec.Footers             If oFoot.Exists Then oFoot.Range.Delete         Next oFoot     Next oSec End Sub

이 매크로는 매우 강력합니다. 계속할 것인지 묻지 않으며 머리글과 바닥 글에 포함될 수있는 내용을 고려하지도 않습니다. 단순히 모두 삭제하고 문서에 아무것도 남기지 않습니다. 정기적으로 많은 문서를 처리하는 경우 도구 모음 단추, 메뉴 항목 또는 바로 가기 키에 매크로를 쉽게 할당 할 수 있습니다.

_ 참고 : _

이 페이지 (또는 WordTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / wordribbon-WordTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_WordTips_는 비용 효율적인 Microsoft Word 교육을위한 소스입니다.

(Microsoft Word는 세계에서 가장 널리 사용되는 워드 프로세싱 소프트웨어입니다.)이 팁 (1777)은 Microsoft Word 97, 2000, 2002 및 2003에 적용됩니다. Word의 리본 인터페이스에 대한이 팁 버전 (Word 2007)을 찾을 수 있습니다. 이후) 여기 :

link : / wordribbon-Deleting_All_Headers_and_Footers [모든 머리글 및 바닥 글 삭제].