Word에는 문서의 단어 수를 계산하는이 멋진 도구가 있습니다. 유일한 문제는 모든 단어를 계산하지 않는다는 것입니다. 예를 들어 문서에 텍스트 상자가 포함 된 경우 단어 개수 도구는 문서의 전체 단어 개수에 단어 상자에있는 텍스트를 포함하지 않습니다. 특히 사이드 바와 같은 특수 문서 요소를 구현하기 위해 텍스트 상자를 사용하는 경우 이는 실제 문제가 될 수 있습니다.

그러나 문제를 해결할 수있는 방법이 있습니다. 일반적으로 하듯이 문서의 주요 부분에있는 모든 단어를 세고 그 숫자를 적어 둘 수 있습니다. 그런 다음 삽입 포인터를 텍스트 상자로 이동합니다.

단어 개수 도구를 실행하면 Word에서 해당 텍스트 상자의 단어 수를 반환합니다. 단어 개수 도구를 실행하기 전에 여러 텍스트 상자를 선택하면 Word는 선택한 모든 텍스트 상자에있는 모든 단어의 개수를 반환합니다. 연결된 텍스트 상자를 사용하는 경우 모두 선택할 필요는 없지만 삽입 지점을 시리즈의 마지막 텍스트 상자로 이동해야합니다. 주 문서의 단어 수와 텍스트 상자의 단어 수를 더하면 전체 문서의 단어 수가 표시됩니다.

텍스트 상자를 많이 사용하면 위의 과정이 다소 번거로울 수 있습니다. 원하는 경우 프로세스를 자동화하는 매크로를 만들 수 있습니다. 다음 매크로는 주 문서의 단어 수를 결정하고 문서의 각 텍스트 상자에 대한 단어 수를 추가합니다. 결과는 위에서 설명한대로 총 단어 수입니다.

Sub TxtBxCount()

Dim i As Integer     Dim TxtWrds As Range     Dim TxtWrdsStats As Long     Dim ToTxtWrds As Long     Dim Lngwords As Long     Dim ToWords As Long

Lngwords = ActiveDocument.BuiltInDocumentProperties(wdPropertyWords)

For s = 1 To ActiveDocument.Shapes.Count         Set TxtWrds = ActiveDocument.Shapes(s).TextFrame.TextRange         TxtWrdsStats = TxtWrds.ComputeStatistics(Statistic:=wdStatisticWords)

ToTxtWrds = ToTxtWrds + TxtWrdsStats     Next     ToWords = Lngwords + ToTxtWrds     MsgBox ("The document has " & Format(ToWords, "##,##0") & " words.")

End Sub

_ 참고 : _

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

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

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

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