suppression de ligne word via excel

Version imprimable

09/11/2020, 11h52
lebowsky60

suppression de ligne word via excel
Bonjour,
je cherche a supprimer une ligne entière de mon document Word que je met à jour via un formulaire Excel.
la ligne concerné sur Word contient ceci:
deux tabulations puis un contrôle de contenu de texte brut
j'utilise le code suivant pour supprimer le contrôle de contenu si ma cellule Excel est vide:
Code:

1 2 3 If ws.Cells(10, 2).Value = "" Then WordDoc.selectcontentcontrolsbytitle(ws.Cells(10, 1).Value).Item(1).Delete True End if
j'ai ensuite essayé d'englober mes deux tabulations et le contrôle du contenu de texte brut par un contrôle du contenu du texte enrichi nommé "cache_adresse2" et mis le code suivant:
Code:

1 2 3 If ws.Cells(9, 2) = "" Then WordDoc.selectcontentcontrolsbytitle("cache_adresse2").Item(1).Delete True End If
cela me vide bien la ligne mais elle est toujours présente soit:
avant:

adresse1
adresse2
CP Ville
après lancement macro:

33 rue bidulle

13547 par ici
je voudrais:

33 rue bidulle
13547 par ici

j'espère avoir été assez clair.
Merci pour vos solutions

Citation:

Envoyé par lebowsky60

Bonjour,

Il vous faut travailler par paragraphe. Je n'ai pas testé ce code avec une instance Word depuis Excel.

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
39
 
Sub TestSupprimerParagrapheContentControl()
    SupprimerParagrapheContentControl ActiveDocument, "cache_adresse2"
End Sub
 
Sub SupprimerParagrapheContentControl(ByVal WordDoc2 As Object, ByVal TitreDuControle As String)
 
Dim I As Integer, ParagrapheSelectionne As Integer
Dim MaSelection As Object, MonApplication As Object
 
 
   ParagrapheSelectionne = 0
   With WordDoc2
 
        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

09/11/2020, 16h44
lebowsky60

désolé mais il faut que je remplace quelque chose ou je l'écris tel quel

Citation:

Envoyé par lebowsky60

???

Code:

1
2
3
4
 
If ws.Cells(10, 2).Value = "" Then
   SupprimerParagrapheContentControl WordDoc, "cache_adresse2"
End If

09/11/2020, 18h07
lebowsky60

Merci beaucoup ça fonctionne