Steven은 항상 문서에서 변경 내용 추적을 사용합니다. 그는 문서에서 변경된 단어 (변경 내용 추적의 영향을받는 단어) 만 계산하는 방법이 필요합니다.

이전 버전의 Word (Word 2003 이전)를 사용하는 경우이를 수행 할 수있는 방법이 있습니다. 찾기 상자에서 Ctrl + N을 누르면 Word에서 “새”단어 (예 : 변경 내용 추적) 만 찾습니다. 그런 다음 이러한 “단어”를 자신으로 바꾸고 (바꿀 내용 상자에 ^ & 사용) 대체 횟수를 가져올 수 있습니다.

Word 2003을 사용하는 경우 Word에서 변경 내용을 추적하고 표시하는 방법이 변경 되었기 때문에이 기능이 더 이상 존재하지 않습니다. 이 경우 원하는 정보를 표시하기 위해 매크로를 사용해야합니다. 다음은 사용할 수있는 매크로의 예입니다.

Sub GetTCStats()

Dim lInsertsWords As Long     Dim lInsertsChar As Long     Dim lDeletesWords As Long     Dim lDeletesChar As Long     Dim sTemp As String     Dim oRevision As Revision          lInsertsWords = 0     lInsertsChar = 0     lDeletesWords = 0     lDeletesChar = 0     For Each oRevision In ActiveDocument.Revisions         Select Case oRevision.Type             Case wdRevisionInsert                 lInsertsChar = lInsertsChar + Len(oRevision.Range.Text)

lInsertsWords = lInsertsWords + oRevision.Range.Words.Count             Case wdRevisionDelete                 lDeletesChar = lDeletesChar + Len(oRevision.Range.Text)

lDeletesWords = lDeletesWords + oRevision.Range.Words.Count         End Select     Next oRevision

sTemp = "Insertions" & vbCrLf     sTemp = sTemp & "    Words: " & lInsertsWords & vbCrLf     sTemp = sTemp & "    Characters: " & lInsertsChar & vbCrLf     sTemp = sTemp & "Deletions" & vbCrLf     sTemp = sTemp & "    Words: " & lDeletesWords & vbCrLf     sTemp = sTemp & "    Characters: " & lDeletesChar & vbCrLf     MsgBox sTemp End Sub

이 매크로는 현재 문서의 각 변경 사항을 단계별로 수행하고 삽입 및 삭제 모두에 대한 단어 수와 문자 수를 개별적으로 합산합니다. 그러면 통계가 메시지 상자에 표시됩니다. 매크로는 문서의 각 변경 사항에 대해 Words 컬렉션을 확인합니다.

여기에 제시된 단어 수는 근사치라는 것을 이해해야합니다. 이것은 단어가 계산되는 방식 때문입니다. 예를 들어 덧셈의 각 문장 부호는 별도의 단어로 계산됩니다. 즉, “볼 수 있듯이 이것은 좋은 방법입니다”와 같은 구문은 9 개가 아닌 10 개 단어로 집계됩니다 (쉼표는 별도의 단어로 간주 됨). 또한 추가 한 구문에 삽입시 자주 사용되는 선행 공백이 포함 된 경우 해당 공백으로 인해 11 개의 단어가 삽입 될 수 있습니다.

_ 참고 : _

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

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

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

(Microsoft Word는 세계에서 가장 널리 사용되는 워드 프로세싱 소프트웨어입니다.)이 팁 (1095)은 Microsoft Word 97, 2000, 2002 및 2003에 적용됩니다. Word의 리본 인터페이스에 대한이 팁 버전 (Word 2007)을 찾을 수 있습니다. 이후) 여기 :

link : / wordribbon-Counting_Changed_Words [Counting Changed Words].