Bonjour à tous,

je me permets de vous donner conseil car je ne trouve pas ce que je cherche.
Je souhaiterai idéalement remplir un contrôle de contenu enrichi d'un document A avec ceux d'un document B, en les copiant intégralement, texte, mise en forme, et image !

Logiquement, le code ci-dessous ne me renvoi que le texte brut sans image ni mise en forme. Ce code pour le moment ne travaille qu'au sein d'un même document word, pour débuter...
Je ne suis pas figé sur le type de contrôle. Enfait, je vais créer x champ, avec texte et image, que je veux pouvoir copier dans un autre word dans un autre champ également.

En vous remerciant de vos coup de pouce !

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
 
Sub ccc()
    Dim doc As Document
    Dim ccs As ContentControls
    Dim cc As ContentControl
 
    Set doc = ActiveDocument
    Set ccs = doc.SelectContentControlsByTag("Tag1")
    Set ccs2 = doc.SelectContentControlsByTag("Tag2")
    Set cc1 = ccs(1)
    Set cc2 = ccs2(1)
    cc1.Range.Text = cc2.Range.Text
 
 
End Sub