Question

通过VBA用WORD打开PDF时，WORD遇到了错误，如何捕获和跳过该错误，让代码继续运行？

如题，通过VBA代码用word打开正常可转换的PDF时，没有问题。但是一但word打开某PDF文件遇到错误时，VBA就崩溃了。怎么处理？能否捕获该错误并跳过该错误，使程序能继续运行？





Answer 1

比如：Shell "WINWORD.EXE C:\12345.doc", vbNormalFocus
在excel中，横向选中两个单元格，就打开c:\下的12345.doc文件
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > 2 And Target.Rows.Count = 1 And Target.Columns.Count = 2 Then
Shell "WINWORD.EXE C:\12345.doc", vbNormalFocus
End If
End Sub

Answer 2

用on error resume next跳过错误，然后把err.Description写到日志文件。

vb的通用方法。demo代码如下：

Sub aa()

On Error Resume Next

For i = 1 To 3

a = 5 / 0

If Err.Number > 0 Then Debug.Print Err.Description

Next

End Sub

追问

有错误捕获，但是好象捕获不了“WORD转换PDF过程出错的错误”，于是总是在
Set myWord = Me.Application.Documents.Open(sPDFName, , , , , , , , , , , False)

这一句出错。

追答

这个就不懂了。我能力有限。