VB 打开损坏 word 文档
boy98 2006-12-12 09:40:48 用flashget 下载了N多word 资料,都是01.doc ,11.doc 等名字
准备将文件名改成文档内的标题名。
我用vb打开文档
Dim oWord As Word.Application ' Object
Dim oDoc As Word.Document
Dim oRange As Word.Range
Set oWord = CreateObject("Word.Application")
On Error GoTo 1 '
'On Error Resume Next
For Each f1 In fc
oWord.Documents.Open (f1) '此处若打开损坏的word文档,则出错
^^^^^^^^^^^^^
Documents.Close
goto2
1 '错误处理代码,先关后开
oWord.quit
Set oWord = CreateObject("Word.Application")
Set oWord = nothing
2
Next
由于下载的word文档并不可靠,有些是坏的文件。弹出错误如下(用程序和word打开都一样):
“文档的名称或者路径无效,请试用如下建议:
* 检查文档或驱动器的文件权限
* ^^^^^^^^^^^^^^^^^^^^^^^
可是用 'On Error GoTo 1 ' 语句 ,
第一次能跳转到1
第二次就跳转不出,还是弹出出错的对话框。
用'On Error Resume Next 就能过去
本人也搞了好几年的vb了 ,这里就难住了 ,
请提建议。
本人分数不多,解决此问题者,给源码 谢谢