用 ActiveX 替换 Word 文档中的文本？

Question

我想使用 ActiveX 和 JavaScript 替换 Word 文档中的一些字符串，现在我有这样的东西：

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

但之后我失去了所有的格式。 如果我在 WinWord 中录制宏，我会得到以下信息：

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

那么，如何用 JS 重写最后一个字符串？

Answer 1

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

另外你应该有一些单词常量，例如：

var wdReplaceAll = 2;
var wdFindContinue = 1;

Answer 2

如果文本少于 256 个字符，效果很好。 请参阅文章 ID：212543 http://support.microsoft.com/kb/212543解决方法。

谢谢，
曼朱