请帮忙看看 这段代码错在哪里了
代码如下:
<script language="VBScript">
<!--
Set wrdApp = CreateObject("Word.APPLICATION")
Set wrdDoc = wrdApp.Documents.Open("http://127.0.0.1:8080/templet/listing.doc")
wrdApp.Visible = True
Set myRange = wrdDoc.Range
myRange.Copy
myRange.Find.Execute FindText :="xpf1980", ReplaceWith :="test",Replace :=wdReplaceAll
Set wrdApp = Nothing
-->
</script>
发现 没有这行代码
myRange.Find.Execute FindText :="xpf1980", ReplaceWith :="test",Replace :=wdReplaceAll
WORD就可以正常出现 有了就不行了
请大家看看 我的替换语句哪里错了