vba操作福昕PDF编辑器把PDF转换成word文档

chenjy267

1. <blockquote>Sub test()

复制代码

点击另存为按钮后出现的界面

1. SendKeys "{RIGHT}{RIGHT}{ENTER}", True

复制代码

发送以上按键实现选择当前桌面文件夹（即你打开的PDF文档所在的文件夹），然后出现一下界面

1. SendKeys "{TAB}", True

复制代码

发送以上按键实现选择保存类型选框，然后发送下面按键实现下拉选框

1. SendKeys "%{DOWN}", True

复制代码

出现这个界面，然后上下按键选择类型

1. SendKeys "{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}", True

复制代码

选到想要的类型后，发送以下按键实现保存

1. SendKeys "{ENTER}{ENTER}", True

复制代码

总而言之，vba操作其他程序，最重要的是保证当前程序处于激活状态，因为是通过模拟键盘按键操作，所以需要自己先手动模拟一遍，还有其他的一些细节需要自己调试，控制其他程序同理

chenjy267

这代码违规吗，发不出来？
Sub test()
    Dim thispath, myfile, a$, Savetime As Single, mydoc As Document
    thispath = ActiveDocument.path & "\"
    myfile = Dir(thispath & "*.pdf")
  Do While myfile <> ""
    If myfile <> ActiveDocument.Name Then
        'Shell "C:\Program Files (x86)\Foxit Software\Foxit PhantomPDF\FoxitPhantomPDF.exe " & thispath & myfile
   
    ReturnValue = Shell("C:\Program Files (x86)\Foxit Software\Foxit PhantomPDF\FoxitPhantomPDF.exe " & thispath & myfile, 1)
    Savetime = Timer
        While Timer < Savetime + 20'等待福昕软件完全加载，不然捕捉不到
            DoEvents
        Wend
    AppActivate ReturnValue
    'SendKeys "+{TAB}{RIGHT}{RIGHT}{ENTER}{TAB}%{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{ENTER}{ENTER}", True
    SendKeys "%", True
    SendKeys "%", True'两次Alt按键是为了激活当前打开的PDF文档，不添加整个程序没反应
    'SendKeys "%F", True
    'SendKeys "%A", True
    'SendKeys "+{TAB}", True
    SendKeys "%", True
    SendKeys "7", True'Alt+7是另存为的快捷键
    SendKeys "{RIGHT}{RIGHT}{ENTER}", True
    SendKeys "{TAB}", True
    SendKeys "%{DOWN}", True
    SendKeys "{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}", True
    SendKeys "{ENTER}{ENTER}", True
    End If
    Savetime = Timer
        While Timer < Savetime + 40'PDF转换word文档过程等待
            DoEvents
        Wend
    Set mydoc = ActiveDocument
    mydoc.Close
    Shell "cmd.exe /c taskkill /im FoxitPhantomPDF.exe /f"'关闭福昕软件，不然下一个循环会出错
    Savetime = Timer
        While Timer < Savetime + 3
            DoEvents
        Wend
    myfile = Dir
  Loop
End Sub

19820713chen

不用搞得哪么复杂，office2016直接打开PDF，就转换为word格式了。