Word는 문서의 단어 수를 계산할 수있는 기본 제공 도구를 제공합니다. 그러나 일부 사람들은 문서에서 지속적으로 업데이트되는 단어 수를 선호합니다. 이렇게하면 단어 카운터를 주시하고 문서에서 원하는 단어 수에 도달하면 쓰기를 중단 할 수 있습니다.

안타깝게도 Word는 설정하거나 해제 할 수있는 기본 제공 실행 단어 수를 제공하지 않습니다. 그러나 필요한 정보를 제공하는 매크로를 만들 수 있습니다. 다음과 같은 멋진 매크로는 서식 도구 모음 끝에 지속적으로 업데이트되는 단어 수를 표시합니다.

Sub WordCounter()

Set myBar = CommandBars("Formatting")

Set myControls = myBar.Controls     NumButtons = myControls.Count

ButtonLoc = 0     For J = 1 To NumButtons         If myControls(J).Type = msoControlButton Then             ButtonName$ = myControls(J).OnAction             If ButtonName$ = "WordCounter" Then ButtonLoc = J         End If     Next J

If ButtonLoc = 0 Then         ButtonLoc = NumButtons + 1         Set newControl = myControls.Add(Type:=msoControlButton)

newControl.OnAction = "WordCounter"

newControl.Style = msoButtonCaption     End If

Set myRange = ActiveDocument.Content     WdCount = myRange.ReadabilityStatistics(1).Value     With myControls(ButtonLoc)

.Caption = WdCount     End With

Application.OnTime When:=Now + TimeSerial(0, 0, 5), _       Name:="WordCounter"

End Sub

이 매크로는 처음 실행될 때 서식 도구 모음 끝에 단어 개수를 추가합니다. 툴바 버튼은 그때부터 그대로 유지됩니다.

나중에 단추가 도구 모음 끝에 있지 않도록 도구 모음을 수정하면 매크로가이를 찾아 그에 따라 작동합니다.

Word를 처음 시작할 때 (이 매크로를 실행 한 후) 매크로를 시작하려면 도구 모음 단추를 클릭해야합니다. 물론 Word를 처음 시작할 때 WordCounter를 실행하는 별도의 AutoStart 매크로를 만들 수 있습니다.

매크로에 대해주의해야 할 한 가지는 5 초마다 다시 실행된다는 것입니다.

너무 자주 발생하는 경우 매크로 끝 부분에있는 TimeSerial 함수의 값 (5)을 변경할 수 있습니다. 시스템 속도에 따라 매크로가 실행될 때마다 약간의 방해가되는 화면 깜박임이 표시 될 수 있지만 확실히 업데이트 된 단어 수를 갖게됩니다. 도구 모음의 단추를 클릭 할 때만 단어 수를 원하는 경우 매크로 끝 부분에있는 Application.OnTime 줄을 제거하면됩니다.

더 이상 실행되지 않도록 매크로를 제거하려면 다음 세 가지 간단한 단계를 따라야합니다.

  1. Word를 종료하십시오.

  2. Word를 다시 시작하십시오. 이제 매크로가 실행되고 있지 않습니다.

  3. 서식 도구 모음을 편집하여 WordCounter 단추를 제거하십시오.

_ 참고 : _

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

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

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

(Microsoft Word는 세계에서 가장 인기있는 워드 프로세싱 소프트웨어입니다.)이 팁 (1745)은 Microsoft Word 97, 2000, 2002 및 2003에 적용됩니다.