Rachel a plusieurs centaines de documents dans lesquels elle doit changer la propriété du titre. (Il s’agit de la propriété title conservée avec les autres propriétés du document.) Elle se demande s’il existe un moyen d’effectuer facilement cette modification dans un si grand nombre de documents.

Word n’a pas de méthode intégrée pour affecter un grand nombre de documents en même temps, mais vous pouvez créer une macro pour faire le travail à votre place. La chose importante à retenir est que vous voulez pouvoir accéder à la propriété Title du document intégré, et vous le faites dans VBA en jouant avec la collection BuiltInDocumentProperties. Par exemple, vous pouvez modifier la propriété Title dans VBA de cette manière:

ActiveDocument.BuiltInDocumentProperties("Title") = "xyz"

Pour rendre votre macro efficace pour un grand nombre de documents, tout ce que vous avez à faire est de déterminer les noms des documents que vous souhaitez affecter, de charger chaque document à son tour, de modifier la propriété Title, puis d’enregistrer le document. La macro suivante accomplit cet ensemble de tâches:

Sub ChangeTitles()

Dim Directory As String     Dim FType As String     Dim FName As String     Dim sTitle As String     Dim sFiles(250) As String     Dim iFiles As Integer     Dim J As Integer

Directory = Environ("USERPROFILE") & "\Desktop\temp\"

FType = "*.docx"

sTitle = "My New Doc Title"



' Get names of documents     iFiles = 0     FName = Dir(Directory & FType)

While FName <> ""

iFiles = iFiles + 1         sFiles(iFiles) = FName         FName = Dir     Wend

' Process files     For J = 1 To iFiles         Documents.Open FileName:=Directory & sFiles(J)

ActiveDocument.BuiltInDocumentProperties("Title") = sTitle         ActiveDocument.Close wdSaveChanges     Next J End Sub

Notez que vers le début de la macro, la variable Directory est définie comme égale au chemin d’accès complet au dossier «temp» sur le bureau. Vous devez vous assurer que Répertoire est défini sur le chemin d’accès complet à l’endroit où vous avez les documents que vous souhaitez modifier. Notez également que le chemin se termine par une barre oblique inverse – c’est très important.

L’autre variable que vous voudrez changer est le nouveau titre que vous stockez dans la variable sTitle. Chaque document du dossier Directory verra sa propriété Title modifiée en ce qui est stocké dans la variable sTitle.

La première partie de la macro parcourt tous les fichiers du répertoire cible et saisit le nom de n’importe quel fichier DOCX. Ceux-ci sont stockés dans le tableau sFiles. Une fois cette opération terminée, le tableau est parcouru et utilisé comme guide pour les fichiers à ouvrir et à modifier.

_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 (13543) s’applique à Microsoft Word 2007, 2010, 2013, 2016, 2019 et Word dans Office 365.