remplissage de plusieurs contenu de texte brut

Version imprimable

10/11/2020, 11h00
lebowsky60

remplissage de plusieurs contenu de texte brut
Bonjour,

j'utilise ces lignes de codes sous excel pour remplir des "contenu du texte brut" dans un doc word:
Code:

1 2 3 4 For I = 2 To derLigne On Error Resume Next WordDoc.selectcontentcontrolsbytitle(ws.Cells(I, 1).Value).Item(1).Range.Text = ws.Cells(I, 2).Value Next I
tous les "contenu du texte brut" portant des titres différent ce remplissent correctement mais pour les "contenu du texte brut" portant le même titre dans mon doc, un seul ce rempli et biensur je voudrais qu'ils se remplissent tous.

Merci pour vos suggestions
10/11/2020, 11h09
Invité

Citation:

Envoyé par lebowsky60

Bonjour,

Et si vous adaptiez la procédure que je vous ai fournie hier pour supprimer vos paragraphes : https://www.developpez.net/forums/d2.../#post11643012
10/11/2020, 11h18
lebowsky60

Citation:

Envoyé par Eric KERGRESSE

Bonjour,

Et si vous adaptiez la procédure que je vous ai fournie hier pour supprimer vos paragraphes : https://www.developpez.net/forums/d2.../#post11643012

Bonjour et encore merci pour votre réponse d'hier,

je voudrais bien l'adapter mais j'ai pas vraiment tout compris.

Citation:

Envoyé par lebowsky60

Code:

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
Sub TestMajContentControl()
 
Dim I As Long, derLigne As Long
 
  '  derLigne=...
  '  For I = 2 To derLigne
        MajContentControl WordDoc, ws.Cells(I, 1).Value, ws.Cells(I, 2).Value
  '  Next I
 
End Sub
 
Sub MajContentControl(ByVal WordDoc2 As Document, ByVal TitreDuControle As String, ByVal ContenuContentControl As Variant)
 
Dim J As Integer
 
   With WordDoc2
        For J = 1 To .ContentControls.Count
            With .ContentControls(J)
                 If .Title = TitreDuControle Then
                    .Range.Text = ContenuContentControl
                 End If
            End With
        Next J
   End With
 
End Sub

10/11/2020, 15h14
lebowsky60

Je suis vraiment nul j'essaie depuis ce matin et c'était pourtant si simple

Un grand merci

Du coup la suppression des lignes ne fonctionne plus
10/11/2020, 15h44
Invité

Citation:

Envoyé par lebowsky60

Du coup la suppression des lignes ne fonctionne plus

Quelle suppression de ligne ?

le code d'hier ne fonctionne plus

Code:

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
 If ws.Cells(9, 2).Value = "" Then
    SupprimerParagrapheContentControl WordDoc, "adresse2"
 End If
 
Sub SupprimerParagrapheContentControl(ByVal WordDoc3 As Object, ByVal TitreDuControle As String)
 
Dim I As Integer, ParagrapheSelectionne As Integer
Dim MaSelection As Object, MonApplication As Object
 
 
   ParagrapheSelectionne = 0
   With WordDoc3
 
        Set MonApplication = .Parent
        Set MaSelection = MonApplication.Selection
 
        For I = 1 To .ContentControls.Count
            With .ContentControls(I)
                 If .Title = TitreDuControle Then
                    .Range.Select
                    MaSelection.HomeKey unit:=wdStory, Extend:=wdExtend
                    ParagrapheSelectionne = MaSelection.Paragraphs.Count
                    Exit For
                 End If
            End With
        Next I
 
        If ParagrapheSelectionne > 0 Then
           ' Debug.Print MaSelection.Text
           .Paragraphs(ParagrapheSelectionne).Range.Delete
        End If
 
        Set MonApplication = Nothing
        Set MaSelection = Nothing
 
   End With
 
End Sub

10/11/2020, 16h29
Invité

Citation:

Envoyé par lebowsky60

Il faut insérer un debug.print dans le code pour voir si le ContentControl existe toujours.
Vérifier le paramétrage des ContentControl pour qu'ils ne disparaissent pas après mis à jour.

Pièce jointe 583570
10/11/2020, 17h06
lebowsky60

en mettant un debug.print sur la boucle de majcontentcontrol j'ai bien tout les titreducontrole qui s'affiche dans la fenetre d'execution
par contre dans la boucle SupprimerParagrapheContentControl plus aucun titreducontrole n'apparaissent

j'ai vérifié les paramètres des controleur du contenu et le controle est bien autorisé après modif