Recherche

Il faut plusieurs choses :

  • un bloc de construction contenant le texte à insérer,
  • un signet à l'endroit où devra être inséré le texte,
  • la macro qui suit (à personnaliser),

le tout dans un modèle (Template). Cela signifie que le ou les blocs de construction doivent bien être enregistrés dans le modèle.

Pour tout savoir sur les blocs de construction, c'est ici.

Vous allez ensuite copier coller la macro suivante dans votre modèle, dans ThisDocument, et la personnaliser en fonction de l'endroit où se trouve vos modèles, et en fonction de l'ID de la case à cocher :

  • Remplacez le nom du signet "monsignet" par le vôtre.
  • Remplacez le chemin du Template par le vôtre (("C:\Users\utilisateur\Documents\Modèles Office personnalisés\exemple.dotm")
  • Remplacez le nom du bloc de construction "montexte" par le vôtre.

Il suffira de cocher la case et d'en sortir pour que le texte s'insère à l'endroit prévu. 

La macro suivante fonctionnera avec une case à cocher dont la balise est nommée "macase". 

Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
Templates.LoadBuildingBlocks
If ContentControl.Tag = "macase" Then
    If ContentControl.Checked = True Then
        With Selection
            .GoTo What:=wdGoToBookmark, Name:="monsignet"
            .MoveRight Unit:=wdCharacter, Count:=1
        End With
        'mettre le chemin du template ci-dessous
        Application.Templates("C:\Users\...\exemple.dotm").BuildingBlockEntries("montexte").Insert Where:=Selection.Range, RichText:=True
    End If
End If
End Sub

Statistiques

France 72,1% France
Canada 7,7% Canada
Belgique 3,8% Belgique

Total:

117

Pays
018308632
Aujourd'hui: 33
Hier: 386
Cette semaine: 1.362
Semaine dernière: 2.467
Ce mois: 4.024