Discussion :

[scoubi77]

Bonsoir à tous,

J'ai besoin de vos lumières car je n'y arrive pas !

J'ouvre depuis Excel un fichier word et je recherche des <BALISE1......40>avec findtext et replacewith, ça marche parfaitement.

Dans ce document word j'ai au maximum 4 fois un mot qui peut se répeter et je dois supprimer la ligne ou il est.
J'ai donc écris :

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
 
   Dim txt As String
    Dim traitementTexte As Word.Application
    Set traitementTexte = New Word.Application
 
    traitementTexte.Visible = True
 
 
    Dim leDoc As Document
    Set leDoc = traitementTexte.Documents.Open(ActiveWorkbook.Path & "/test.doc")
 
For ii = 1 To 4
 
 
With leDoc
leDoc.Content.Find.Execute findtext:="scoubi"
leDoc.Selection.Expand unit:=wdParagraph
If ((leDoc.Selection.Text) = "scoubi") Then
      leDoc.Selection.range.Delete
Else
End If
 
End With
next ii

mais ça ne marche pas ! il quitte la macro sans exécuter le code en entier

Merci par avance à tous pour vos aidses

[scoubi77]

J'ai essayé d'être plus simple mais sans succès hélas !

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
 For ii = 1 To 4
   Dim txt As String
    Dim traitementTexte As Word.Application
    Set traitementTexte = New Word.Application
 
    traitementTexte.Visible = True
 
 
    Dim leDoc As Document
    Set leDoc = traitementTexte.Documents.Open(ActiveWorkbook.Path & "/test.doc")
With leDoc
leDoc.Content.Find.Execute findtext:="scoubi"
 
If findtext = "scoubi" Then
     leDoc.findtext.Select
      leDoc.Selection.Delete
Else
End If
 
End With
 
 
Next ii

[scoubi77]

En pas à pas findtext reste invariablement vide alors que le mot scoubi existe !

si je mets :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

leDoc.Content.Find.Execute findtext:="scoubi", ReplaceWith:="trouvé", Replace:=wdReplaceAll

Là il me remplace bien les 4 scoubi par trouvé !

[clementmarcotte]

Bonjour,

Tu as un énorme problème en partant. Il n'y a rien dans VBA-Word qui permette de sélectionner une ligne à coup sûr et avec constance. Dans Word la ligne est extrêmement variable. Cela dépend, du pilote d'imprimante utilisé, de la taille des caractères, de la police de caractères, des mises en formes, de la justification etc... Il suffit juste de changer d'imprimante, de version du même pilote d'imprimante, ou de remplacer ton papier "A4" par un papier "Lettre" pour tout foutre en l'air

Pour t'en sortir tu as deux solutions:

Un paragraphe d'une seule ligne ou une phrase d'une seule ligne.

[scoubi77]

Bonjour et merci pour la réponse,

c'est bien Un paragraphe d'une seule ligne ou une phrase d'une seule ligne, comment puis-je m'en sortir ?
je sèche !

Merci par avance