Voir le flux RSS

Messages des blogs récents

  1. VBA Word : Insérer une puce automatiquement à chaque saut de ligne dans un contrôle de contenu texte enrichi.

    par , 15/03/2019 à 05h03
    /
    Il s'agit d'obtenir le résultat suivant :

    Nom : Capture.JPG
Affichages : 1130
Taille : 15,3 Ko

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    Sub TestMettreUnePuceApresRetourChariot()
     
    Dim I As Integer
    Dim DocEnCours As Document
     
        Set DocEnCours = ActiveDocument
        With DocEnCours
     
             If .ContentControls.Count = 0 Then Exit Sub
     
             For I = 1 To .ContentControls.Count
                 If .ContentControls(I).Type = wdContentControlRichText
    ...