Code: Select all
Public Function OpenAllPDFDocumentsInFolder(strPath As String)
Dim strFileName As String
strFileName = Dir(strPath)
While Len(strFileName) > 0
If UCase(Right(strFileName, 4)) = ".PDF" Then
On Error GoTo Failed
ShellExecute 0, vbNullString, strPath & strFileName, vbNullString, "C:\", 1
Else
End If
strFileName = Dir
Wend
Exit Function
'''
Failed:
Select Case Err.Number; (snip!); nd Select
End Function
But If I click on the hyperlink to a PDF in my Word2003 document I am awarded a pop-up message.
For each clicked hyperlink.
(there is no “do not show this warning again”)
I cannot find a spot in Control Panel to disable this message, nor can I find anything under (Word2003) Tools, Options that suggests it might disable the warning, let alone cancel it.
Control Panel:
Changes to your computer: set to Never Notify
Windows Defender: I see no suitable options here
Parental Controls: I see no suitable options here
Word2003 Tools, Options
Security: I see no suitable options here
Macro Security: Set to Low; both “Trust” options checked ON
Even stranger, once my macro has opened all twenty-one PDF files in the folder, clicking on any one hyperlink in my Word2003 document now swaps me to the specific PDF file in Foxit Reader with no questions asked. I find this most peculiar, although I suppose from Word’s point of view, it is now not opening a PDF file as much as switching to an already-open PDF file.
Question: Is there a user-friendly interface to disable this warning, globally on my computer, for all future PDF hyperlinks in my Woird documents?
I suspect that there is a RegEdit fix, for sure. But how would an innocent user go about disabling the warning.
Thanks in Advance
Chris