Ersetzen Sie Text in Word-Dokument durch ActiveX?

Question

Ich möchte einige Zeichenfolge in Word-Dokument mit ActiveX und JavaScript ersetzen, jetzt habe ich so etwas wie dieses:

var text = Selection.Text; 
Selection.Text = text.replace('somesting','somevalue'); 

Aber danach verliere ich alle formaing. Wenn ich Makros aufzeichnen in WinWord ich diese:

With Selection.Find 
    .Text = "somestring" 
    .Replacement.Text = "somevalue" 
    .Forward = True 
    .Wrap = wdFindContinue 
    .Format = False 
    .MatchCase = False 
    .MatchWholeWord = False 
    .MatchWildcards = False 
    .MatchSoundsLike = False 
    .MatchAllWordForms = False 
End With 
Selection.Find.Execute 
Selection.Find.Execute Replace:=wdReplaceAll 

Also, wie kann ich die letzte Saite mit JS umschreiben?

Answer 1

Selection.Find.Execute('somestring', 
         false, 
         false, 
         false, 
         false, 
         false, 
         wdFindContinue, 
         false, 
         false, 
         'somevalue' 
         wdReplaceAll, 
         false, 
         false, 
         false, 
         false); 

Auch sollten Sie einige Wortkonstanten haben, wie:

var wdReplaceAll = 2; 
var wdFindContinue = 1; 

Answer 2

funktioniert gut, wenn der Text weniger als 256 Zeichen ist. Siehe Artikel-ID: 212543 http://support.microsoft.com/kb/212543 zur Problemumgehung.

Danke, Manju