Документы часто содержат много слов, которые намеренно очень похожи друг на друга. Например, у вас может быть документ, который ссылается на серию номеров деталей, и все номера деталей очень похожи друг на друга. Или вы можете сослаться на группу имен файлов, в которой основная часть имени представляет собой одно и то же слово, но каждое имя файла имеет суффикс, представляющий собой число, например следующее:

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

Очевидно, что этот макрос приспособлен к конкретной потребности — за словом Widget следует двузначное число. Если вам нужно изменить макрос, чтобы он соответствовал вашим потребностям нумерации, вы можете сделать это, изменив цикл 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 [Увеличение числа номеров в документе].