IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Voir le flux RSS

Eric KERGRESSE

  1. Contentcontrols : Transfert de données d'Excel vers Word et de Word vers Excel

    par , 19/04/2021 à 15h49
    -
    J'ai répondu récemment à des messages sur les forums Excel et Word pour réaliser des transferts de données depuis ou sur des ContentControls Word.

    De Word vers Excel :

    Le code balaye les fichiers .doc* présents dans le répertoire choisi et récupère les valeurs des ContentControls dans un tableau structuré.


    Nom : Capture.JPG
Affichages : 4597
Taille : 31,6 Ko

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    Option Explicit
    
    'Les déclarations des variables publiques sont
    ...

    Mis à jour 19/04/2021 à 17h08 par Eric KERGRESSE

    Catégories
    Sans catégorie
    Miniatures attachées Fichiers attachés
  2. Word : Changement de couleur de fond de cellules en fonction de la valeur de ContentControls.

    par , 25/01/2020 à 05h36
    '
    Discussion d'origine : Changement-couleur-cellule-fonction-menu-deroulant

    Il s'agit de mettre un fond de cellule de la même couleur que la couleur de fond d'un contrôle ContentControl dont la couleur change en fonction du contenu avec l'événement Document_ContentControlOnExit. Le principe est d'indexer les ContentControls à l'ouverture du document et de charger une matrice pour établir la correspondance entre la cellule et l'index du contrôle.

    Nom : Capture1.JPG
Affichages : 1379
Taille : 17,1 Ko ...
    Miniatures attachées Fichiers attachés
  3. 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 : 1609
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
    ...