Génération d'un Tag avec valeur incrementée, en VBA
Bonjour,
Je souhaiterais créer une macro en VBA dans un document Word, me permettant d’insérer un Tag dans mon fichier.
Ce Tag serait de la forme : [MonTAG_reqNum]. « reqNum » étant incrémenté à chaque création d’un nouveau tag.
« reqNum » doit pouvoir être initialisé à une valeur quelconque.
La dernière valeur de « reqNum » peut être afficher dans un tableau de ma page de garde, par exemple.
Pour insérer un nouveau Tag :
- Récupèrer reqNum de ma page de garde
- Créer le Tag
- Faire reqNum +1 pour mon nouveau Tag, puis modifier la valeur du « reqNum » de la page de garde, pour une prochaine utilisation.
Est-ce possible en VBA ? (désolé mais je ne connais pas grand-chose de ce langage)
Dois-je utiliser une variable ou stocker cette valeur dans les propriétés du document ou juste dans un endroit précis de mon fichier (style un tableau. Ca, ce n’est pas gênant)… ???
Voici mon code, mais il manque encore quelques commandes :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| Sub addReq()
Static reqNum As Long 'Déclarer reqNum comme une variable de type Entier Long
Aller chercher la valeur de reqNum sur la page de garde du document (dans un tableau ??)
et laffecter à reqNum
Inserer le Tag : [MonTag_reqNum]
???
Incrementer reqNum de 1
reqNum = reqNum + 1
Si utilisation dun variable, traiter les erreurs (Add, si déjà existante)
On Error Resume Next
ActiveDocument.Variables.Add Name:="reqNum"
Select Case Err.Number
Case "5903"
ActiveDocument.Variables("reqNum").Value = reqNum
Case Else
Exit Sub
End Select
Mettre à jour la valeur de reqNum sur la page de garde
??? Selection.Fields.Update
End Sub |
Merci de votre aide...