Khi bạn đang làm việc với biểu mẫu, bạn lưu biểu mẫu dưới dạng mẫu được sử dụng làm cơ sở của tài liệu mới trong Word. Có thể đôi khi bạn muốn thêm trường biểu mẫu tăng lên mỗi khi bạn tạo tài liệu mới dựa trên mẫu biểu mẫu của mình. Ví dụ: bạn có thể có một số thứ tự mà bạn cần cho biểu mẫu nhập dữ liệu hoặc bạn có thể muốn sử dụng trường biểu mẫu để chỉ ra một invoice con số.

Word không có bất kỳ trường tăng tự động ưa thích nào. Tuy nhiên, bằng cách kết hợp một số công cụ đã có sẵn trong Word, bạn có thể tạo trường mẫu và biểu mẫu để thực hiện thủ thuật cho mình. Bắt đầu với macro này:

Sub AutoNew()

' Exit macro if no fields in document    If ActiveDocument.FormFields.Count = 0 Then Exit Sub    ' Create variables.

Dim OfficeAppName As String    Dim RegSection As String    Dim RegKey As String    Dim FieldObj As Object    Dim RegValue As Long

OfficeAppName = "Word 2002"

RegSection = "UserData"

RegKey = "Current Counter"

' Generate error if form field doesn't exist    On Error GoTo ErrHandler    Set FieldObj = ActiveDocument.FormFields("IncField")

' Get stored registry value, if any    RegValue = GetSetting(OfficeAppName, RegSection, RegKey, 0)

' If not previously set, set to default    If RegValue = 0 Then RegValue = 1    ' Set form field result to stored value    FieldObj.Result = CStr(RegValue)

' Increment and update invoice number    SaveSetting OfficeAppName, RegSection, RegKey, RegValue + 1 ErrHandler:

If Err <> 0 Then       MsgBox Err.Description    End If End Sub

Macro này chỉ nên được lưu trong mẫu mà bạn sẽ sử dụng để tạo biểu mẫu của mình. Macro phải được đặt tên là AutoNew, vì vậy nó sẽ chạy bất cứ khi nào tài liệu được tạo dựa trên mẫu biểu mẫu. Bạn cũng nên đảm bảo rằng bạn có trường biểu mẫu văn bản trong tài liệu của mình có tên là IncField, trường này sẽ hiển thị số gia tăng. Số được theo dõi trong Sổ đăng ký để nó có thể được truy cập cho các biểu mẫu trong tương lai.

Lưu ý dòng trong macro đặt biến OfficeAppName. Trong phiên bản này của macro, nó được đặt thành cụm từ “Word 2002”. Nếu bạn đang sử dụng một phiên bản Word khác, bạn nên sửa đổi dòng này để nó tham chiếu đến phiên bản của bạn, chẳng hạn như “Word 2000” hoặc “Word 2003”.

_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 (1329) áp dụng cho Microsoft Word 97, 2000, 2002 và 2003. Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện ribbon của Word (Word 2007 và sau này) tại đây: