Isao는 문서의 모든 고유 단어 목록을 쉽게 구성 할 수있는 방법이 있는지 궁금합니다. 그는 각 단어가 몇 번 나타나는지 알 필요가 없습니다. 그는 독특한 단어 목록 만 있으면됩니다. 또한 동일한 단어에 대한 대문자 및 소문자 변형은 동일한 단어로 간주되어야합니다.

이 작업을 수행하는 기본 제공 Word 함수 나 도구는 없습니다. 그러나 VBA에서는 문서의 모든 단어를 포함하는 Words 컬렉션에 액세스 할 수 있습니다. 이를 염두에두고 문서에서 고유 한 단어의 정렬 된 목록을 작성한 다음 해당 단어를 문서 끝에 추가하는 매크로를 만들 수 있습니다.

Sub UniqueWordList()

Dim wList As New Collection     Dim wrd     Dim chkwrd     Dim sTemp As String     Dim k As Long

For Each wrd In ActiveDocument.Range.Words         sTemp = Trim(LCase(wrd))

If sTemp >= "a" And sTemp <= "z" Then             k = 0             For Each chkwrd In wList                 k = k + 1                 If chkwrd = sTemp Then GoTo nw                 If chkwrd > sTemp Then                     wList.Add Item:=sTemp, Before:=k                     GoTo nw                 End If             Next chkwrd             wList.Add Item:=sTemp         End If nw:

Next wrd

sTemp = "There are " & ActiveDocument.Range.Words.Count & " words "

sTemp = sTemp & "in the document, before this summary, but there "

sTemp = sTemp & "are only " & wList.Count & " unique words."



ActiveDocument.Range.Select     Selection.Collapse Direction:=wdCollapseEnd     Selection.TypeText vbCrLf & sTemp & vbCrLf     For Each chkwrd In wList         Selection.TypeText chkwrd & vbCrLf     Next chkwrd End Sub

문서의 각 단어가 추출되고 소문자로 변환 된 다음 정렬 된 순서로 wList 컬렉션에 추가됩니다.

단어는 알파벳 인 경우에만 추가되며 (따라서 구두점과 마찬가지로 숫자는 제외됨) 매크로는 단어의 대소 문자에 신경 쓰지 않습니다. 또한 매크로는 문서의 본문에있는 단어 만 본다는 것을 알고 있어야합니다. 머리글, 바닥 글, 텍스트 상자 또는 도형과 같은 위치에는 단어가 포함되지 않습니다.

다양한 요구 사항을 허용하도록 매크로를 쉽게 변경할 수 있습니다. 예를 들어, 매크로가 현재 문서의 끝이 아닌 별도의 문서에 단어 목록을 고정하도록 할 수 있습니다. 여러분이해야 할 일은 여기에 두 번째로 표시된 종료 줄 앞에이 줄을 삽입하는 것입니다.

sTemp = "There are " & ActiveDocument.Range.Words.Count & " words "

sTemp = sTemp & "in " & ActiveDocument.Name & ", but there "

sTemp = sTemp & "are only " & wList.Count & " unique words."



Documents.Add     ActiveDocument.Range.Select     Selection.Collapse Direction:=wdCollapseEnd     Selection.TypeText vbCrLf & sTemp & vbCrLf     For Each chkwrd In wList         Selection.TypeText chkwrd & vbCrLf     Next chkwrd End Sub

매크로에는 단 하나의 실질적인 변경이있었습니다. 요약을위한 새 문서를 만들기위한 “Documents.Add”메서드 추가.

단어 빈도를 계산하는 매크로를 포함하여 문서에서 단어를 가져 오는 방법에 대한 몇 가지 다른 아이디어는 다음 팁을 참조 할 수 있습니다.

link : / wordribbon-Generating_a_Count_of_Word_Occurrences [Generating a Count of Word Occurrences].

_ 참고 : _

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

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

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

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