Macro avec Quickpart

[patpat]

Bonjour,

Je cherche depuis quelques temps à créer une macro afin d'insérer un quickpart personnel. Lors de la création de la macro, il n'est pas possible d'utiliser la souris pour sélectionner celui-ci. Y a-t-il une solution ??

Merci d'avance

[Heureux-oli]

Écrire la totalité du code.

Code :

1
2
3
4
5
6
7
Dim objTemplate As Template
Dim objBB As BuildingBlock
 
Set objTemplate = Templates(1)
Set objBB = objTemplate.BuildingBlockEntries(1)
 
objBB.Insert ActiveDocument.Paragraphs(1).Range