Comment ajouter une propriété à un document Word en VBA

Chaque document Microsoft Word contient plus d'informations que ce que l'utilisateur explicitement types ou des pâtes en elle. L'information supplémentaire apparaît dans les propriétés du document, qui sont un ensemble de champs indiquant création et de modification des dates du document, le titre, les commentaires des utilisateurs et des données administratives. les utilisateurs de Word peuvent ajouter de nouvelles propriétés du document avec les menus standards de Word. Ou alors, ils peuvent utiliser le langage de script de Word, Visual Basic pour Applications (VBA). Utilisation de VBA pour ajouter une propriété permet d'ajouter automatiquement les données relatives au contenu de ce document. Par exemple, le code VBA pouvait distiller le contenu du document dans une liste de mots tag, pour faire trouver le document plus tard, plus facile.

Ajoutez une nouvelle propriété

  1. Ouvrez Word et appuyez sur "Alt-F11" à pénétrer dans l'environnement Visual Basic intégré de développement (IDE).

  2. Cliquez sur le "Insérer" tête de menu, puis cliquez sur "Module" pour ajouter un nouveau module dans lequel vous entrez le code de programme pour créer une nouvelle propriété.

  3. Tapez le code suivant dans la fenêtre du nouveau module:

    Public Sub AddProperty ()

    ActiveDocument.CustomDocumentProperties.Add _

    Nom: ="newproperty", LinkToContent: = False, Valeur: ="SomeValue", _

    Type: = msoPropertyTypeString

    End Sub




    Ce code de programme appelle la "Ajouter" méthode de la collection de propriétés de documents existants pour ajouter une nouvelle propriété, "newproperty," à cette collection.

  4. Cliquez n'importe où à l'intérieur du sous-programme AddProperty, puis appuyez sur "F5" pour exécuter le programme.

  5. Presse "Alt-F11" pour revenir à Word. Cliquez sur le bouton Microsoft Office en haut à gauche de l'écran, puis positionnez votre souris sur "Préparer."

  6. Cliquez "Propriétés," puis cliquez sur le "Coutume" onglet pour afficher la liste des propriétés personnalisées pour le document. Le "Propriétés" volet affiche les "newproperty" propriété et sa valeur associée, "SomeValue," auquel vous avez ajouté dans les étapes 3 et 4.

Demander à l'utilisateur un nom de la propriété

  1. Presse "Alt-F8" pour afficher une liste des macros (à savoir, les programmes VBA). Cliquez sur le "AddProperty" élément, puis cliquez sur le "Éditer" bouton. Cette action vous renvoie à la sous-routine qui ajoute la propriété personnalisée.

  2. Sélectionnez les comptes entre le "Public Sub" et "End Sub" déclarations, puis appuyez sur "Effacer" pour les supprimer.

  3. Tapez les nouvelles déclarations suivantes entre le "Public Sub" et "End Sub" déclarations:

    dim PropertyName, ValeurPropriété sous forme de chaîne




    PropertyName = InputBox ("S'il vous plaît entrez le nom d'une nouvelle propriété.")

    PropertyValue = InputBox ("S'il vous plaît entrer une valeur pour la nouvelle propriété.")

    ActiveDocument.CustomDocumentProperties.Add _

    Nom: = PropertyName, LinkToContent: = False, _

    Valeur: = ValeurPropriété, Type: = msoPropertyTypeString

    Ces déclarations invitent l'utilisateur à une nouvelle propriété et sa valeur, puis créer la nouvelle propriété de la saisie de l'utilisateur.

  4. Presse "Alt-F8" pour revenir au document Word, puis appuyez sur "Alt-F8" pour afficher la liste des sous-routines VBA.

  5. Double-cliquez sur le "AddProperty" article pour exécuter votre routine révisé, qui vous demandera le nom et la valeur d'une nouvelle propriété de document. Tapez le texte pour les deux articles.

  6. Vérifiez la création de la nouvelle propriété en recherchant dans la fenêtre des propriétés de documents, comme vous l'avez fait à l'article 1, étape 6.

» » » » Comment ajouter une propriété à un document Word en VBA