Discussion :

[a.faurie]

Bonjour,
je cherche à mettre à jour des contrôles de contenu d'un document word, pour cela j'ai remplis la balise du contrôle j'ai essayé comme ça mais ça ne marche qu'avec une balise de signet :

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
 
Sub remplir_rapport()
 
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim i As Byte
 
    Set WordApp = CreateObject("word.application")    'ouvre une session Word
    Set WordDoc = WordApp.Documents.Open("C:\Users\a.faurie\Desktop\essais.docx")    'ouvre le document Word
    WordApp.Visible = True   'Word est masqué pendant l'opération
 
         'remplir les balises
     WordDoc.Bookmarks("num_affaire").Range.Text = Sheets("Info").Range("C40")
 
    WordApp.Visible = True    'affiche le document Word
 
End Sub

voilà si vous avez une solution, je vous en remercie d'avance...

[Invité]

Bonjour,

Je ne sais pas si la solution suivante est adaptable à votre cas, mais j'ai eu à traiter le même problème que vous.
J'ai utilisé pour cela la méthode de remplacement de mots clés à partir d'une matrice de correspondance Mots clés, valeurs de remplacement avec l'extrait de code ci-dessous :

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
  '---------------
  ' Démarrage Word
  '---------------
    Set ApplicWord = CreateObject("Word.Application")
    Application.StatusBar = "Ouverture de Word"
    ChDir CheminDuModele
 
    With ApplicWord
 
     ApplicWord.Visible = True
 
         '-----------------------------------------------
         ' Création du document à partir du modèle retenu
         '-----------------------------------------------
          Application.StatusBar = "Cration du document à partir du modèle retenu"
         .Documents.Add Template:=CheminDuModele & "\" & NomDuModele
 
         '--------------------------------------------
         ' Remplacement des mots clés dans le document
         '--------------------------------------------
         Application.StatusBar = "Mise à jour du document. Remplacement des mots clés. "
         For I = LBound(NomMatriceCourrier, 2) To UBound(NomMatriceCourrier, 2)
             With .Selection.Find
                    If NomMatriceCourrier(2, I) <> "0" Then
                           .ClearFormatting
                           .Text = NomMatriceCourrier(1, I)
                           .Replacement.ClearFormatting
                           If NomMatriceCourrier(1, I) = "IMPRESSIONDATE" Then
                                .Replacement.Text = Format(NomMatriceCourrier(2, I), "dd mmmm yyyy")
                           Else
                                .Replacement.Text = NomMatriceCourrier(2, I)
 
                           End If
                           .Execute Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue
                    End If
             End With
         Next I
 
'..........
 
 End With

En espérant que cela puisse vous aider.

Cordialement.

[a.faurie]

Bonjour,
sur le code suivant j'ai une erreur d'exécution 462, 1 fois sur 2, si j'ai bien compris il faut réinitialiser quelque chose mais je ne sais pas quoi et pas comment. pouvez-vous m'aider SVP ?

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
21
22
Sub MAJword()
 
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim cc As ContentControl
 
    Set WordApp = CreateObject("word.application")    'ouvre une session Word
    Set WordDoc = WordApp.Documents.Open("C:\Users\a.faurie\Desktop\essais.docx")    'ouvre le document Word
    WordApp.Visible = True   'Word est masqué pendant l'opération
 
    Set docCCs = ActiveDocument.SelectContentControlsByTag("titre_affaire")
     If docCCs.Count <> 0 Then
        For Each cc In docCCs
            cc.Range.Text = "essais"
        Next
    Else
        MsgBox "pas de contrôle de contenu."
    End If
 
    WordApp.Visible = True    'affiche le document Word
 
End Sub

[a.faurie]

2 jours que je cherche et j'ai enfin trouvé !
il suffi de finir par end !