Derek은 다음에 서체 (글꼴 이름)가 변경 될 때 문서에서 찾을 수있는 방법이 필요합니다. 예를 들어 삽입 지점이 문서의 중간에있는 경우 Word에서 해당 지점에서 시작하여 다음 변경이 발생하는 위치를 알려주기를 원합니다. Derek은 그러한 작업을 수행 할 방법이 있는지 궁금합니다.

이 작업을 수행하는 기본 제공 방법은 없지만 서체가 변경된시기를 시각적으로 알 수는 있습니다. 문서의 확대 / 축소 비율 (예 : 200 % 또는 250 %)을 늘린 다음 시각적으로 문서를 스캔하여 모양의 변화를 확인하면 종종 알 수 있습니다. 물론 이것은 인접한 두 글꼴 간의 시각적 차이에 따라 달라집니다.

매크로 기반 솔루션을 선호하는 경우 현재 삽입 지점 위치에 서체 이름을 저장 한 다음 문서의 나머지 각 문자를 단계별로 실행하는 솔루션을 만들 수 있습니다. 서체가 원래 서체와 다른 경우 사용자에게 알릴 수 있습니다. 다음은 이러한 매크로의 예입니다.

Sub ChangeOfFont()

Dim fntName As String     Dim aRange As Range

Set aRange = Selection.Range     aRange.Collapse Direction:=wdCollapseStart     aRange.MoveEnd Unit:=wdCharacter     fntName = aRange.Font.Name     Do         aRange.MoveEnd Unit:=wdCharacter         aRange.MoveStart Unit:=wdCharacter     Loop Until aRange.Font.Name <> fntName Or _       aRange.Bookmarks.Exists("\EndOfDoc")

aRange.Select     If aRange.Bookmarks.Exists("\EndOfDoc") Then         MsgBox "End of document"

Else         MsgBox "Font change from " & fntName & " to " & aRange.Font.Name     End If End Sub

대부분의 작업은 각 문자의 글꼴이 변경되었는지 확인하는 Do 루프에서 수행됩니다. 루프는 또한 문서의 끝에 도달했는지 확인하고 매크로를 중지하려는 지점을 확인합니다.

_ 참고 : _

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

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

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

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