user_mobilelogo

Pour tout connaître sur Word
Nouvelle version !

600 pages !

9,80 € 

En savoir plus.

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

Aujourd'hui999
Hier1325
Cette semaine15575
Ce mois15575
Total depuis 200412840139

15
visiteurs actuellement en ligne

7 mars 2021