Nếu bạn sử dụng nhiều thuộc tính tài liệu tùy chỉnh trong tài liệu của mình, bạn có thể muốn có cách in các giá trị của chúng. (Thuộc tính tài liệu tùy chỉnh giống như các biến cho tài liệu. Chúng có nhiều công dụng trong lập trình VBA.)

Thật không may, không có lệnh hoặc tính năng để in chúng trực tiếp.

Tuy nhiên, bạn có thể sao chép các thuộc tính vào một tài liệu mới, rồi in tài liệu đó.

Về cơ bản, tất cả những gì bạn cần làm là tạo một tài liệu mới và sau đó chuyển qua tất cả các thuộc tính tùy chỉnh trong tài liệu cũ, sao chép tên và giá trị của chúng sang tài liệu mới. Bạn có thể thực hiện việc này bằng cách sử dụng thuộc tính Count của bộ sưu tập CustomDocumentProperties, như thể hiện trong hình sau:

Sub PrintDocProps()

Dim iPropCount As Integer     Dim i As Integer     Dim docSource As Document     Dim docTarget As Document

Set docSource = ActiveDocument     Set docTarget = Documents.Add

docTarget.Activate

iPropCount = docSource.CustomDocumentProperties.Count

Selection.TypeText Text:="There are "

If iPropCount > 0 Then         Selection.TypeText Text:=iPropCount     Else         Selection.TypeText Text:="no"

End If     Selection.TypeText Text:=" custom properties in the document."

Selection.InsertParagraph     Selection.InsertParagraph

For i = 1 to iPropCount         Selection.TypeText _           Text:=docSource.CustomDocumentProperties(i).Name         Selection.TypeText Text:="Value: "

Selection.TypeText _           Text:=docSource.CustomDocumentProperties(i).Value         Selection.InsertParagraph         Selection.InsertParagraph         Selection.InsertParagraph     Next i End Sub

Mặc dù mã này sẽ hoạt động tốt, nhưng nó không quá mạnh. 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.

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