문서로 작업 할 때 추가 단락 표시를 제거해야하는 경우가있을 수 있습니다. ASCII 파일 또는 원래 다른 워드 프로세서로 포맷되었을 수있는 파일로 작업하는 경우 특히 그렇습니다. 추가 단락 기호를 수동으로 제거하는이 프로세스는 시간이 많이 걸릴 수 있습니다.

이러한 상황에 처해 있다면이 매크로에 관심이있을 수 있습니다. 문서에서 추가 단락 기호를 제거합니다. 완료되면 문서의 행에 단락 기호가 두 개도 없어야합니다.

Sub ReplacePara()

Selection.HomeKey Unit:=wdStory     Selection.Find.ClearFormatting     With Selection.Find         .Text = "^p^p"

.Replacement.Text = ""

.Forward = True         .Wrap = wdFindContinue         .Format = False         .MatchCase = False         .MatchWholeWord = False         .MatchWildcards = False         .MatchSoundsLike = False         .MatchAllWordForms = False     End With     Selection.Find.Execute     While Selection.Find.Found         Selection.MoveRight Unit:=wdCharacter, Count:=1         Selection.TypeBackspace         Selection.MoveLeft Unit:=wdCharacter, Count:=2         Selection.Find.Execute     Wend End Sub

이 매크로에는 두 부분이 있습니다. Selection.Find 메서드에 의존하는 첫 번째 부분은 Word의 기본 제공 찾기 및 바꾸기 기능을 사용하여 두 단락 기호의 모든 인스턴스를 순서대로 찾습니다. 매크로는 연속 된 단락 기호를 대체하지 않습니다. 단순히 그들을 찾습니다.

그런 다음 Selection.Find.Found 속성을 사용하여 매크로의 두 번째 부분이 시작되어 두 개의 연속 된 단락 표시 중 두 번째 부분을 삭제합니다.

이 방법을 사용하는 이유는 나머지 단락 기호에서 서식을 올바르게 유지하기 때문입니다. 예를 들어, 두 개의 연속 된 단락 표시가 서로 다른 서식을 사용하는 경우 첫 번째 단락 표시의 서식은 변경되지 않습니다. 연속 된 단락 기호를 단일 단락 기호로 간단히 바꾸면 바꾸기가 끝났을 때 원하는 서식이 정확하게 지정되지 않을 수 있습니다.

Selection.Find.Found는 While 루프의 “플래그”로 사용됩니다.

이 속성은 최신 찾기 작업의 상태를 반영합니다. True이면 검색이 성공한 것입니다. False이면 아무것도 발견되지 않았으므로 변경할 것이 없습니다.

_ 참고 : _

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

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

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

(Microsoft Word는 세계에서 가장 인기있는 워드 프로세싱 소프트웨어입니다.)이 팁 (998)은 Microsoft Word 2007, 2010, 2013 및 2016에 적용됩니다.