Discussion :

[Arclight]

Bonjour,

Je galère a identifié des objets sur Word. J'utilise un fichier excel dans le quel je rentre des données dans des champs. Puis j'ai fais une macro qui va me remplir un fichier type word avec ces données.
En gros, suivant ce qu'il y a dans mon tableau excel je vais cocher des cases sur Word et mettre en gras des paragraphes.

If ActiveSheet.Range("P41") = "Classique" Then
. ContentControls(24).checked = True
.Paragraphs(47).Range.Bold = True
End If

Ça aller au départ car les chiffres se suivent, mais à force de modifications sur le fichier word, il m'est désormais quasiment impossible d'identifier le numéro de paragraphe ou le numéro d'une checkbox.

Et je n'arrive pas à trouver leur identifiant sur Word. Je dois mal chercher ou avec les mauvais termes car je ne trouve rien non plus sur les moteurs de recherche...

Savez-vous s'il y a moyen de récupérer ces données sur Word ?

Je vous remercie par avance.

[E KERGRESSE]

Bonjour,

Pour les contrôles, utilisez leur propriété Tag (Balise). Pour les paragraphes, englobez-les dans des signets (le nom serait le contenu du tag), il vous suffira de sélectionner le Bookmark pour le mettre en gras.

Un exemple pour balayer les checkbox :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Sub ListerLesTags()
 
Dim LesControles As ContentControls
Dim I As Integer
 
    With ActiveDocument
         If .ContentControls.Count = 0 Then Exit Sub
        Set LesControles = .ContentControls
    End With
 
    For I = 1 To LesControles.Count
        With LesControles(I)
             If .Type = wdContentControlCheckBox Then Debug.Print "Contrôle : " & I & ", tag : " & .Tag
        End With
    Next I
 
    Set LesControles = Nothing
 
End Sub

[Arclight]

Merci ça répond parfaitement à mes besoins

Pour info si ça intéresse d'autres personnes le code vba qui correspond :

.SelectContentControlsByTag("nomdutag")(1).Checked = True
.Bookmarks("nomBookmarks").Range.Bold = True