문서에는 의도적으로 서로 매우 유사한 많은 단어가 포함되는 경우가 많습니다. 예를 들어 일련의 부품 번호를 참조하는 문서가있을 수 있으며 부품 번호는 모두 서로 매우 유사합니다. 또는 이름의 기본 부분이 동일한 단어이지만 각 파일 이름에 다음과 같이 숫자로 된 접미사가있는 파일 이름 그룹을 참조 할 수 있습니다.

Widget01 Widget02 Widget03 Widget04 Widget05

문서 내에서 숫자를 늘려야하는 경우 프로세스가 매우 지루하고 오류가 발생하기 쉽습니다.

(물론 변경해야하는 이름의 수에 따라 다릅니다.) 이는 작업이 매크로로 수행하기에 완벽한 후보라는 것을 의미합니다.

예를 들어, 다음 VBA 매크로 인 BumpNumbers는 두 자리 숫자가 바로 뒤 따르는 Widget 단어의 모든 인스턴스를 검색합니다.

그러면 번호가 증가합니다.

Sub BumpNumbers()

Dim J As Integer     Dim sFindText As String     Dim sReplaceText As String

Selection.Find.ClearFormatting     Selection.Find.Replacement.ClearFormatting     With Selection.Find         .Forward = True         .Wrap = wdFindContinue         .Format = False         .MatchCase = False         .MatchWholeWord = False         .MatchWildcards = False         .MatchSoundsLike = False         .MatchAllWordForms = False     End With

For J = 98 To 1 Step -1         sFindText = "Widget" & Right("00" & Trim(CStr(J)), 2)

sReplaceText = "Widget" & Right("00" & Trim(CStr(J + 1)), 2)

Selection.Find.Text = sFindText         Selection.Find.Replacement.Text = sReplaceText         Selection.Find.Execute Replace:=wdReplaceAll     Next J End Sub

분명히이 매크로는 특정 요구에 맞게 조정되었습니다. 단어 위젯 뒤에 두 자리 숫자가 나옵니다. 번호 매기기 요구 사항에 맞게 매크로를 수정해야하는 경우 For …​ Next 루프를 변경하거나 (98에서 1로 변경되지 않음) 검색 할 텍스트를 변경 (할당 된 sFindText 변수).

_ 참고 : _

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

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

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

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

link : / wordribbon-Bumping_Numbers_in_a_Document [문서의 범핑 번호].