Discussion :

[Lucos94]

Salut

Je veux remplacer toutes les chaines de caractères d'un document word par une autre et sauver dans un nouveau document en VB script

En m'inspirant de MSDN et de google j'ai écrit ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
option explicit
 
dim objWord, objDoc
 
 
set objWord = CreateObject("Word.Application")
objWord.Visible = True
 
set objDoc=objWord.Documents.Open("c:\DAISY\EACB_reference.doc")
 
 
objWord.Selection.Find.ClearFormatting()
objWord.Selection.Find.Replacement.ClearFormatting()
 
With objWord.Selection.Find
	.Replacement.Text = "Mon Projet"
	.Text = "Reseau consoles"
	.Forward = True
	.Wrap = wdFindContinue
	.Format = False
	.MatchCase = True
	.MatchWholeWord = False
	.MatchWildcards = False
	.MatchSoundsLike = False
	.MatchAllWordForms = False
End With
 
objWord.Selection.Find.Execute Replace:=wdReplaceAll
 
 
 
objDoc.SaveAs("c:\DAISY\testdoc.doc")
objWord.Quit

Mais j'ai une erreur sur l'execute et je n'arrive pas à trouver

Line: 28
Char: 40
Error: Expected Statement
Code: 800A0400
Source: Microsoft VBScript compilation error

QQ1 a une idée ?

[Invité]

Bonjour

Je pense que cela vient de la constante wdReplaceAll, en effet VBS ne reconnait pas ce mot, il faut que tu mettes sa valeur (en général une donnée numérique) que tu trouveras dans l'explorateur d'objets (F2) de Word.

Philippe

[Lucos94]

Effectivement il faut mettre 2 merci bien
Ca ne plante plus mais ca ne fait pas le boulot, faut que je refasse des tests pour voir