Hakan에는 워드 문서의 문자 (공백없이)를 세고 1000 번째 문자마다 강조 표시하는 매크로가 필요합니다. 이러한 매크로를 만드는 것은 다소 간단합니다. 문서의 모든 문자를 차례로 검사하고 공백이 아닌 문자 만 계산하면됩니다. 다음은이를 수행하는 간단한 작은 매크로입니다.

Sub CountThousands1()

Dim J As Long     Dim X As Integer

X = 0     With ActiveDocument         For J = 1 To .Characters.Count             If .Characters(J) <> " " Then X = X + 1             If X = 1000 Then                 .Characters(J).Select                 Selection.Range.HighlightColorIndex = wdYellow                 X = 0                 Beep             End If         Next J     End With End Sub

매크로는 충분히 간단합니다. 문서의 모든 개별 문자를 포함하는 Characters 컬렉션을 검사합니다. 매크로의 문제는 속도가 매우 느리다는 것입니다. Word는 이러한 방식으로 개별 문자를 검사하는 데 그다지 효율적이지 않습니다. (Character 컬렉션의 구성원을 참조 할 때마다 Word는 문서 시작 부분부터 모든 문자를 다시 검사해야합니다.)

다른 방법은 단순히 문서를 단계별로 살펴보고 공백이 아닌 문자가 1,000 개가 될 때까지 선택 영역을 확장하는 것입니다.

Sub CountThousands2()

Dim X As Integer     Dim sRaw As String     Dim sProc As String          Selection.MoveRight Unit:=wdCharacter, Count:=1000, Extend:=wdExtend     While Len(Selection) = 1000         sRaw = Selection         sProc = Replace(sRaw, " ", "")

X = 1000 - Len(sProc)

While X > 0             Selection.MoveRight Unit:=wdCharacter, Count:=X, Extend:=wdExtend             sRaw = Selection             sProc = Replace(sRaw, " ", "")

X = 1000 - Len(sProc)

Wend         Selection.Collapse Direction:=wdCollapseEnd         Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend         Selection.Range.HighlightColorIndex = wdYellow         Selection.Collapse Direction:=wdCollapseEnd         Selection.MoveRight Unit:=wdCharacter, Count:=1000, Extend:=wdExtend     Wend End Sub

문서 시작 부분에 삽입 포인터를 사용하여이 매크로를 시작하십시오. 그런 다음 매크로는 1000 개의 문자를 가져 와서 해당 선택 항목을 변수 (sRaw)에 할당하고 모든 공백이 제거 된 변수 (sProc)를 만든 다음 sProc의 길이를 계산합니다. 1,000 개 미만이면 짧은 문자 수만큼 선택이 확장되고 프로세스가 반복됩니다. 선택 항목에 공백이 아닌 문자가 1,000 개 포함되어 있으면 강조 표시가 설정되고 매크로는 다음 문자 블록으로 이동합니다.

_ 참고 : _

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

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

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

(Microsoft Word는 세계에서 가장 널리 사용되는 워드 프로세싱 소프트웨어입니다.)이 팁 (7871)은 Office 365의 Microsoft Word 2007, 2010, 2013, 2016, 2019 및 Word에 적용됩니다. Word의 이전 메뉴 인터페이스 :

link : / word-Highlighting_Every_Thousandth_Character [천 번째 문자마다 강조 표시].