如何使用PowerPoint VBA执行错误检查以跟踪超链接？

Question

我正在使用PowerPoint VBA脚本按照超链接打开pdf文件，使用以下代码：

ActivePresentation.FollowHyperlink Address:=sFile

变量sFile只是一个包含本地文件路径的字符串，以前的代码生成该字符串。我想制定某种错误校对，在尝试跟踪超链接之前检查以确保地址中有文件。如果文件路径不正确，我收到一条错误，上面写着“运行时错误'-2147467259（80004005）'：演示文稿（未知成员）：无法打开指定的文件。”

基本上它告诉我文件不存在（我发现这个错误是因为在正确生成整个文件路径字符串之前，它意外地让代码运行到打开超链接的行）。

无论如何，如果有人干涉并更改文件名，我希望提供一条信息性错误消息，而不是让脚本出错。

Answer 1

If Len(Dir$(sFile)) > 0 Then
  '' The file's there, follow the link
Else
  ' The file's missing
End if