我正在尝试在Word文档中分配带有命令按钮的宏,当单击该宏时应打开第9页的PDF文档。我尝试使用以下代码,但未能成功解决我的问题。
我要在“模块1”中添加以下代码。
Private Sub CommandButton1_Click()
App_Path = "C:\Program Files\Adobe\Reader 10.0\Reader\AcroRd32.exe"
File_Path = "C:\Users\Desktop\USER MANUAL.pdf"
Page_Num = 4
Shell App_Path & " /A Page=" & Page_Num & "" & File_Path, vbMaximizedFocus
End Sub
答案 0 :(得分:1)
因为您的路径包含空格,所以两个路径都必须用引号引起来""
App_Path = """C:\Program Files\Adobe\Reader 10.0\Reader\AcroRd32.exe"""
File_Path = """C:\Users\Desktop\USER MANUAL.pdf"""
此外,Page_Num
和File_Path
之间必须有一个空格,因此将& "" &
替换为& " " &
。
Shell App_Path & " /A Page=" & Page_Num & " " & File_Path, vbMaximizedFocus