Remplir un controle de contenu

adrifo07 Messages postés 41 Date d'inscription   Statut Membre Dernière intervention   -  
adrifo07 Messages postés 41 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
Dans un document Word nommé "C:\Users\a.faurie\Desktop\essais.docx", j'ai un contrôle de contenu en texte enrichi qui à pour titre : "titre_affaire" et pour baliser "titre".

Depuis un classeur Excel je veux pouvoir écrire et mettre à jour le texte contenu dans ce contrôle de contenu mais je ne sais pas comment faire !

Si quelqu'un a une solution... j'ai cherché toute la journée mais pas moyen !
merci d'avance pour votre aide

1 réponse

adrifo07 Messages postés 41 Date d'inscription   Statut Membre Dernière intervention  
 
j'ai fini par trouver :
 ' déclaration diverses
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim cc As ContentControl

' bloqué l'affichage de word
WordApp.Visible = False

' mise à jour du controle de contenu par la balise
Set docCCs = ActiveDocument.SelectContentControlsByTag("phase")
If docCCs.Count <> 0 Then
For Each cc In docCCs
cc.Range.Text = phase
Next
End If

et pensé à finir par End pour réinitialiser si non ça marche une fois sur 2 !
0