Marc는 문서 내에서 특정 텍스트 문자열이 발생하는 횟수를 결정하기 위해 매크로 내에서 가장 빠르고 효율적인 방법을 찾고 있습니다. 안타깝게도 간단한 명령 한두 개로는이를 수행 할 수 없습니다. 대신 Word의 찾기 및 바꾸기 기능을 사용하여 문서를 “단계별”해야합니다.

먼저 원본 문서를 엉망으로 만들 위험이 없도록 문서의 임시 사본을 만드십시오. 그런 다음 매크로에서 변수를 사용하여 원하는 텍스트가 교체되는 횟수를 계산하고 교체가 발생할 때마다 변수를 증가시킵니다. 다음 예에서 횟수는 변수 Replacements로 끝납니다.

그런 다음 값을 사용하거나 값을 문자열로 변환하여 표시 할 수 있습니다.

Sub CountReplacements     Dim Replacements As Integer

Replacements = 0     Selection.Find.ClearFormatting     Selection.Find.Replacement.ClearFormatting     With Selection.Find         .Text = InputBox("Enter the text you want to find:")

.Replacement.Text = InputBox("Enter the replacement text:")

.Forward = True         .Wrap = wdFindContinue         .Format = False         .Execute Replace:=wdReplaceOne

Do Until Not .Found             .Execute Replace:=wdReplaceOne             Replacements = Replacements + 1             Selection.MoveRight Unit:=wdCharacter, Count:=1         Loop

If Replacements <> 0 Then             MsgBox _               "" & .Text & " has been replaced " & _               CStr(Replacements) & " times with " & _               .Replacement.Text         Else             MsgBox .Text & " was not found in the document/selection."

End If     End With End Sub

_ 참고 : _

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

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

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

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

link : / wordribbon-Occurrences_of_a_Text_String_within_a_Document [문서 내 텍스트 문자열의 발생].