Si utiliza muchas propiedades de documento personalizadas en sus documentos, es posible que desee una forma de imprimir sus valores. (Las propiedades de documento personalizadas son como variables para un documento. Tienen muchos usos en la programación de VBA).

Desafortunadamente, no hay ningún comando o función para imprimirlos directamente.

Sin embargo, puede copiar las propiedades en un documento nuevo y luego imprimir ese documento.

Básicamente, todo lo que necesita hacer es crear un nuevo documento y luego recorrer todas las propiedades personalizadas en el documento antiguo, copiando sus nombres y valores al nuevo documento. Puede hacer esto haciendo uso de la propiedad Count de la colección CustomDocumentProperties, como se muestra a continuación:

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

Si bien este código funcionará bien, no es muy robusto. Por ejemplo, no comprueba si realmente hay propiedades personalizadas en el documento de origen; simplemente asume que los hay. Sin embargo, tal codificación podría agregarse fácilmente.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios WordTips), he preparado una página especial que incluye información útil.

link: / wordribbon-WordTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

WordTips es su fuente de formación rentable en Microsoft Word.

(Microsoft Word es el software de procesamiento de texto más popular del mundo). Este consejo (529) se aplica a Microsoft Word 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Word (Word 2007 y más tarde) aquí:

link: / wordribbon-Printing_Custom_Properties [Propiedades personalizadas de impresión].