[求助高手]关于word编程中查找的问题

fywhb94901

本人是一新手，下面程序是关于在asp中查找word文件，提示缺少对象，请各位高手指教！谢谢了

<script  language="vbscript">
<!--
Sub Example()
On Error Resume Next
Dim wApp
Set wApp = CreateObject("Word.Application")
If Err.number > 0 Then
Alert "没法保存为Word文件,请正确安装Word"
end if
wApp.visible = True
fn="文件名"
set wDoc=wApp.Documents.open(fn)

With wDoc.Content.Find
    .ClearFormatting
    .Execute FindText:="文本", Forward:=True
End With

set   wDoc=nothing    
set   wApp=nothing
End Sub
-->
</SCRIPT>

fywhb94901

软件环境：xp+word2003

加入以下

With wDoc.Content.Find
    .ClearFormatting
    .Execute FindText:="文本", Forward:=True
End With

出错（提示缺少对象）

守柔

由于你使用了on error resume next,请在

fn="文件名"
set wDoc=wApp.Documents.open(fn)

后面加上一句msgbox wdoc.activedocument.name试一下，我觉得是你的文件名可能有问题，注意，应还有“文件名.doc”，否则，将会出现wdoc对象错误。