[VB. NET] Effectuer un rechercher / remplacer ds un doc. Word

Effectuer un rechercher / remplacer ds un doc. Word [VB. NET] - C#/.NET managed - Programmation

Marsh Posté le 17-11-2003 à 13:57:57    

Bonjour tout le monde
 
N'étant pas vraiment familiarisé à l'interraction .NET et MS Office, je me demande si qqun pourrait m'aider dans ce cas :
 
Mon but est d'effectuer par le biais de VB. NET (en ouvrant le doc en interne, word n'est pas ouvert de manière "visible" ) des rechercher/remplacer dans un document word tout en étant capable d'influer sur les différentes options de cet outil de word -> principalement le surlignage des fichiers remplacés.
 
Si vous savez comment procéder, merci d'avance !
 :hello:
 
EDIT : j'viens de voir qu'il existe une fonction de ce genre, mais pour Excel -> Cells.replace()   Ce serait exactement ça qu'il me faudrait, mais ds word :/


Message édité par Corbier le 17-11-2003 à 14:17:00

---------------
Sans ma barbe, quelle barbe !
Reply

Marsh Posté le 17-11-2003 à 13:57:57   

Reply

Marsh Posté le 17-11-2003 à 16:32:00    

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 !
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed