Si vous utilisez beaucoup des propriétés de document personnalisées dans vos documents, vous souhaiterez peut-être un moyen d’imprimer leurs valeurs. (Les propriétés de document personnalisées sont comme des variables pour un document. Elles ont de nombreuses utilisations dans la programmation VBA.)

Malheureusement, il n’y a aucune commande ou fonction pour les imprimer directement.

Vous pouvez toutefois copier les propriétés dans un nouveau document, puis imprimer ce document.

Fondamentalement, tout ce que vous avez à faire est de créer un nouveau document, puis de parcourir toutes les propriétés personnalisées de l’ancien document, en copiant leurs noms et leurs valeurs dans le nouveau document. Vous pouvez le faire en utilisant la propriété Count de la collection CustomDocumentProperties, comme illustré ci-dessous:

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

Bien que ce code fonctionne très bien, il n’est pas très robuste. Par exemple, il ne vérifie pas s’il existe réellement des propriétés personnalisées dans le document source; il suppose simplement qu’il y en a. Un tel codage pourrait cependant être facilement ajouté.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites WordTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / wordribbon-WordTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

WordTips est votre source pour une formation Microsoft Word rentable.

(Microsoft Word est le logiciel de traitement de texte le plus populaire au monde.) Cette astuce (11392) s’applique à Microsoft Word 2007, 2010, 2013, 2016 et Word dans Office 365. Vous pouvez trouver une version de cette astuce pour l’ancien menu interface de Word ici:

link: / word-Printing_Custom_Properties [Propriétés personnalisées d’impression].