Nếu bạn có nhu cầu tạo số sê-ri trong tài liệu của mình và chúng rất đơn giản về bản chất, bạn có thể làm như vậy bằng cách sử dụng macro. Phương pháp tiếp cận số sê-ri này rất tốt nếu các số sê-ri của bạn là tuần tự (1, 2, 3, v.v.) hoặc đều đặn theo tỷ lệ (3, 5, 7, v.v.).

Để bắt đầu, bạn nên nhập macro sẽ kiểm soát việc thay đổi số sê-ri và việc in tài liệu của bạn. Bạn có thể sử dụng macro sau:

Sub MySerial()

Dim rngSerialLocation As Range     Dim intSerialNum As Integer     Dim strSerialNum As String     Dim docCurrent As Document     Dim intNumCopies As Integer     Dim intCount As Integer

' set ref to current active doc     Set docCurrent = Application.ActiveDocument     ' set ref to the bookmarked serial number     Set rngSerialLocation = docCurrent.Bookmarks("Serial").Range

' get the starting number     intSerialNum = Val(rngSerialLocation.Text)

' get the number of copies required     intNumCopies = Val(InputBox$("How many Copies?", _       "Print Serialized", "1"))



For intCount = 1 To intNumCopies         ' print the document         docCurrent.PrintOut Range:=wdPrintAllDocument         ' increment the serial number         intSerialNum = intSerialNum + 1         ' put into formatted version         strSerialNum = Format(intSerialNum, "00000")

' stuff into proper place         rngSerialLocation.Text = strSerialNum     Next intCount

' reset the bookmark, since the updating procedure     ' wipes out the old one     docCurrent.Bookmarks.Add Name:="Serial", _       Range:=rngSerialLocation End Sub

Chỉ có một điều kiện tiên quyết để sử dụng macro: bạn cần đảm bảo rằng tài liệu của mình chứa một dấu trang có tên là Serial. Dấu trang này phải tham chiếu đến số sê-ri trong tài liệu của bạn, vì bạn muốn nó xuất hiện trong tài liệu được in đầu tiên. (Khi bạn đang chạy macro, bạn có thể lưu tài liệu và số sê-ri sẽ sẵn sàng cho lần tiếp theo bạn muốn sử dụng nó.)

Macro cũng giả định rằng số sê-ri của bạn chủ yếu bao gồm một số giá trị số thay đổi theo mỗi lần lặp. Bạn có thể sửa đổi sự gia tăng của số sê-ri, cũng như định dạng của nó, trong vòng lặp For …​ Next trong macro.

_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 (9540) áp dụng cho Microsoft Word 2007, 2010, 2013, 2016, 2019 và Word trong Office 365. 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: