Bumping số trong một tài liệu (Microsoft Word)
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: