Remplacement d'un texte dans word par une macro sur excel
Bonjour
J'ai fait un peu le tour des discussions sur le sujet et je n'arrive pas à savoir pourquoi le texte ne se remplace pas comme prévu.
Voici la macro que j'utilise sous 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
| Sub Text_Replace_Word()
Dim Word_App As Object
Dim Word_Doc As Object
Set Word_App = CreateObject("Word.Application")
Word_App.Visible = True
Set Word_Doc = Word_App.Documents.Open("C:\Users\\New.txt")
Text_Replace = "Replace_text"
Text_Find = "Original_text"
Word_App.Selection.Find.ClearFormatting
Word_App.Selection.Find.Replacement.ClearFormatting
With Word_App.Selection.Find
.Text = Texte_Find
.Replacement.Text = Texte_Replace
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Word_App.Selection.Find.Execute Replace:=wdReplaceAll
End Sub |
Il ouvre bien le fichier New.txt, trouve bien "Original_text", mais reste bloqué dessus sans le remplacer ... :(
La macro ne bug pas.
Pouvez-vous m'aider svp ?
Tchuss
Benoit L
