Thuộc tính tài liệu tùy chỉnh là một cách tuyệt vời để lưu trữ thông tin duy nhất được liên kết với tài liệu. Ví dụ: bạn có thể có số tài liệu do công ty chỉ định cần được lưu trữ cùng với tài liệu. Một thuộc tính tùy chỉnh phù hợp với hóa đơn khá tốt cho mục đích này.

Khi bạn thêm các thuộc tính tùy chỉnh vào tài liệu, bạn có thể bắt đầu tự hỏi liệu có cách nào dễ dàng để sao chép chúng từ tài liệu này sang tài liệu khác không.

Thật không may, không có cách nào để làm điều này. (Theo ước tính của tôi, khả năng này sẽ bổ sung tốt cho Trình tổ chức.) Tuy nhiên, bạn có thể tạo một macro sẽ thực hiện việc sao chép cho bạn. Macro sau sẽ thực hiện điều đó:

Sub CopyDocProps()

Dim dp() As DocumentProperty     Dim CustomPropCount As Integer     Dim i As Integer     Dim intResponse As Integer

If Windows.Count > 2 Then         MsgBox "There are more than two windows. Please " & _           "close the others and re-run the macro.", , _           "Too many windows"

Exit Sub     End If

On Error GoTo Err_Handler

intResponse = MsgBox("Are you currently in the source document?", _       vbYesNoCancel, "Copy Custom Properties")



If intResponse = vbNo Then Application.Run MacroName:="NextWindow"



CustomPropCount = ActiveDocument.CustomDocumentProperties.Count     ReDim dp(1 To CustomPropCount)



For i = 1 To CustomPropCount         Set dp(i) = ActiveDocument.CustomDocumentProperties(i)

Next i

Application.Run MacroName:="NextWindow"



MsgBox "The properties have been copied."

Exit Sub

Err_Handler:

' if Word raises an error, then allow the user     ' to update the custom document property          intResponse = MsgBox("The custom document property (" & _       dp(i).Name & ") already exists." & vbCrLf & vbCrLf & _       "Do you want to update the value?", vbYesNoCancel, _       "Copy Custom Properties")



Select Case Response         Case vbCancel             End         Case vbYes             ActiveDocument.CustomDocumentProperties(dp(i).Name).Value _               = dp(i).Value             Resume Next         Case vbNo             Resume Next     End Select End Sub

Mã này là một ví dụ về cách sao chép các thuộc tính tùy chỉnh, nhưng nó không chống đạn. Ví dụ, nó không kiểm tra xem thực sự có bất kỳ thuộc tính tùy chỉnh nào trong tài liệu nguồn hay không; nó chỉ giả định rằng có. Tuy nhiên, mã hóa như vậy có thể dễ dàng được thêm vào.

Để sử dụng macro, hãy đảm bảo rằng bạn chỉ mở tài liệu nguồn và tài liệu đích và bạn chỉ nên mở một cửa sổ cho mỗi tài liệu. Khi macro kết thúc, bạn sẽ cần lưu tài liệu đích.

_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 (1340) á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: