Если вы часто используете настраиваемые свойства документа в своих документах, вам может потребоваться способ распечатать их значения. (Пользовательские свойства документа похожи на переменные для документа. У них много применений в программировании VBA.)

К сожалению, нет команды или функции для их прямой печати.

Однако вы можете скопировать свойства в новый документ, а затем распечатать этот документ.

По сути, все, что вам нужно сделать, это создать новый документ, а затем пройти через все настраиваемые свойства в старом документе, скопировав их имена и значения в новый документ. Вы можете сделать это, используя свойство Count коллекции CustomDocumentProperties, как показано ниже:

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

Хотя этот код будет работать нормально, он не очень надежен. Например, он не проверяет, есть ли на самом деле какие-либо настраиваемые свойства в исходном документе; он просто предполагает, что есть. Однако такое кодирование можно легко добавить.

_Примечание: _

Если вы хотите знать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах WordTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (529) применим к Microsoft Word 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Word (Word 2007 и позже) здесь:

link: / wordribbon-Printing_Custom_Properties [Печать дополнительных свойств].