Remplacement d'un mot par un autre dans un document WordRésolu

Question

Bonjour, 

A chaque jour suffit sa peine...
Aujourd'hui, je me suis lancé dans la recherche et le remplacement de chaînes de caractères dans un document Word.

J'ai fait des recherches et suis tombé sur la portion de code :

oword.ActiveDocument.Content.Find.Execute(FindText:="{nom}" ReplaceWith:="martin", Replace:=Word.WdReplace.wdReplaceAll)

J'ai alors écrit ce code :

Option Strict On
Option Explicit On
Imports Microsoft.Office.Interop
Imports Microsoft.Office.Interop.Word

Module Module1

Sub Main()
Dim oWord As New Word.Application

oWord.Documents.Open(C:\Users\greg\Desktop\DocumentProjetSimplifieAccolade.docx)
oWord.Visible = True

oWord.ActiveDocument.Content.Find.Execute(FindText:={nom}, Replace:="martin", Replace:=Word.WdReplace.wdReplaceAll)

Console.ReadLine()
oWord.ActiveDocument.Close()
oWord.Visible = False
oWord.Quit()
End Sub
End Module

Jusqu'ici... tout va bien. Dans mon document Word, {nom} a été remplacé par 
martin... Super.


Par contre, lorsque j'ai essayé de :

1) remplacer martin par une variable de type String, en faisant :

Dim Mot As String
Mot = martin
...
oword.ActiveDocument.Content.Find.Execute(FindText:="{nom}" ReplaceWith:=Mot, Replace:=Word.WdReplace.wdReplaceAll)

...là, ça n'a plus fonctionné. J'ai tenté la conversion avec CChar(Mot), mais rien n'y fait... Quelqu'un aurait-il une idée s'il vous plaît?

2)  "systématiser" cette opération en créant une procédure  du genre
Private Sub Remplacer (ByVal motancien As String, Byval motnouveau As String)
oWord.ActiveDocument.Content.Find.Execute(FindText:=motancien, ReplaceWith:=motnouveau, Replace:=Word.WdReplace.wdReplaceAll)
End Sub

...ça n'a pas marché : dans cette procédure, le oWord du début génère une erreur :
'oWord' n'est pas déclaré...

Je reproduis le code que j'ai tenté vainement d'exécuter :

Option Strict On
Option Explicit On
Imports Microsoft.Office.Interop
Imports Microsoft.Office.Interop.Word

Module Module1
Dim motnouveau As String = "Martin"

Sub Main()
Dim oWord As New Word.Application

oWord.Documents.Open(C:\Users\greg\Desktop\DocumentProjetSimplifieAccolade.docx)
oWord.Visible = True

Remplacer("{nom}","martin")

Console.ReadLine()
oWord.ActiveDocument.Close()
oWord.Visible = False
oWord.Quit()

Sub Remplacer (ByVal motancien As String, Byval motnouveau As String)
oWord.ActiveDocument.Content.Find.Execute(FindText:=motancien, ReplaceWith:=motnouveau, Replace:=Word.WdReplace.wdReplaceAll)
End Sub

End Sub
End Module
       
Quelqu'un aurait-il la solution à ce désagrément ?

Merci d'avance, Grég

gregml · Answer

Ahhh, je viens de m'apercevoir que je me suis "planté" de forum... cela concerne VB.net et non VBA...

Désolé, Grég

jordane45 · Answer

Il ne te manquerait pas des apostrophes dans ton code ?

Mot = martin

==>

Mot = "martin"

jordane45 · Answer

Tu n'aurais pas des indications d'erreurs dans ton visual studio ???

Remplace string par object sur la ligne :

Dim motnouveau As Object
        motnouveau = "Martin"

Remplacement d'un mot par un autre dans un document Word

3 réponses

Votre réponse