Conversion VBA word vers VBS - VB/VBA/VBS - Programmation
MarshPosté 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
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