Các tài liệu thường chứa nhiều từ có mục đích rất giống nhau. Ví dụ: bạn có thể có một tài liệu tham chiếu đến một loạt các số bộ phận và các số bộ phận đều rất giống nhau. Hoặc bạn có thể tham chiếu đến một nhóm tên tệp trong đó phần cơ sở của tên là cùng một từ, nhưng mỗi tên tệp có hậu tố là một số, chẳng hạn như sau:

Widget01 Widget02 Widget03 Widget04 Widget05

Nếu bạn có nhu cầu tăng các số trong tài liệu của mình, quá trình này có thể rất tẻ nhạt và dễ xảy ra lỗi khi thực hiện bằng tay.

(Tất nhiên, tùy thuộc vào số lượng tên bạn cần thay đổi.) Điều này có nghĩa là nhiệm vụ là một ứng cử viên hoàn hảo để được thực hiện bởi macro.

Ví dụ: macro sau, BumpNumbers, sẽ tìm kiếm tất cả các trường hợp của từ Widget, theo sau là một số có hai chữ số.

Sau đó, số lượng sẽ được tăng dần.

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

Rõ ràng, macro này được điều chỉnh cho phù hợp với một nhu cầu cụ thể — từ Widget theo sau là một số có hai chữ số. Nếu bạn cần sửa đổi macro để phù hợp với nhu cầu đánh số của mình, bạn có thể làm như vậy bằng cách thay đổi vòng lặp For …​ Next (để nó không chuyển từ 98 thành 1) hoặc bằng cách thay đổi văn bản đang được tìm kiếm (được gán vào biến sFindText).

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên các trang WordTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

WordTips là nguồn của bạn để đào tạo Microsoft Word hiệu quả về chi phí.

(Microsoft Word là phần mềm xử lý văn bản phổ biến nhất trên thế giới.) Mẹo này (12121) áp dụng cho Microsoft Word 2007, 2010, 2013 và 2016. Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện menu cũ hơn của Word tại đây: