Conversion VBA word vers VBS

Conversion VBA word vers VBS - VB/VBA/VBS - Programmation

Marsh Posté le 07-03-2008 à 12:06:40    

Salut a tous,

 

J'aimerais convertir cette macro Word en VBS .... Mais j'y arrive pas DU TOUT !

 


Sub Macro3()
'

 

'
    Documents.Open FileName:="""Nouveau Document Microsoft Word.doc""", _
        ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
        PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
        WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
        wdOpenFormatAuto, XMLTransform:=""
    With Selection.Find
        .Text = "test"
        .Replacement.Text = "test2"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
End Sub

 

Elle ouvre un fichier, et remplace "test" par "test2" ... Simple non ?
Mais super dur en VBS. J'arrive à le faire nickel pour un fichier TXT, mais ca se gate quand ca passe en DOC.

 

Merci!


Message édité par moi_antoine le 07-03-2008 à 12:07:59
Reply

Marsh Posté le 07-03-2008 à 12:06:40   

Reply

Sujets relatifs:

Leave a Replay

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