Bon j'ai passé pas mal de temps à chercher, je pense avoir trouvé les bonnes classes, mais ça ne marche pas (le remplacement n'est pas effectué...) :
Dim oW As Word.Application = New Word.Application
Dim oWDoc As Word.Documents = oW.Documents
Dim path = Application.StartupPath & "\" & "TmpThesau.rtf"
frm5.TopMost = False
oWDoc.Open(path)
oWDoc.Application.ActiveDocument.Content.Find.Replacement.Text.Replace("truc", "machin" )
oWDoc.Application.ActiveDocument.Content.Find.Text.Replace("truc", "machin" )
oW.Quit()
oW = Nothing |
Y'a aussi une propriété highlight, mais je vois pas comment m'en servir 
EDIT : Allez je continue mon monologue ! J'ai trouvé comment remplacer, reste à savoir comment surligner ce qui a été remplacé et comment pouvoir modifier la couleur de surlignage 
Dim oW As Word.Application = New Word.Application
Dim oWDoc As Word.Documents = oW.Documents
Dim path = Application.StartupPath & "\" & "TmpThesau.rtf"
Dim truc As String
frm5.TopMost = False
oWDoc.Open(path)
oWDoc.Application.ActiveDocument.Content.Find.Execute(FindText:="jazz", ReplaceWith:="VB.NET", Replace:=Word.WdReplace.wdReplaceAll)
oWDoc.Save()
oW.Quit()
oW = Nothing |
Message édité par Corbier le 17-11-2003 à 16:51:50
---------------
Sans ma barbe, quelle barbe !
FORUM HardWare.fr
