Se utilizzi molto le proprietà dei documenti personalizzate nei tuoi documenti, potresti voler stampare i loro valori. (Le proprietà personalizzate del documento sono come le variabili di un documento. Hanno molti usi nella programmazione VBA.)

Sfortunatamente, non esiste un comando o una funzione per stamparli direttamente.

È tuttavia possibile copiare le proprietà in un nuovo documento e quindi stampare quel documento.

Fondamentalmente, tutto ciò che devi fare è creare un nuovo documento e quindi scorrere tutte le proprietà personalizzate nel vecchio documento, copiando i loro nomi e valori nel nuovo documento. Puoi farlo utilizzando la proprietà Count della raccolta CustomDocumentProperties, come mostrato di seguito:

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

Anche se questo codice funzionerà perfettamente, non è particolarmente robusto. Ad esempio, non verifica se sono effettivamente presenti proprietà personalizzate nel documento di origine; presume solo che ci siano. Tuttavia, tale codifica potrebbe essere facilmente aggiunta.

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti WordTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

WordTips è la tua fonte di formazione economica su Microsoft Word.

(Microsoft Word è il software di elaborazione testi più popolare al mondo.) Questo suggerimento (11392) si applica a Microsoft Word 2007, 2010, 2013, 2016 e Word in Office 365. Puoi trovare una versione di questo suggerimento per il menu precedente l’interfaccia di Word qui:

Printing Custom Properties.