将Pdf文件转换为Word

在Word 2013里面，我们可以打开一个PDF文件，并对其进行编辑，重新保存后，实现将PDF文件转换为Word文件

下面由简单的代码VBA代码实现将某个目录下所有的PDF文件转为Word文件

Sub PdftoWord()
    Dim file As Variant
    file = Dir("D:\OfficeDev\Word\201505\Pdf\" & "*.pdf")
    Do While (file <> "")
        ChangeFileOpenDirectory ("D:\OfficeDev\Word\201505\Pdf\")
        Documents.Open FileName:=file, ConfirmConversions:=False, ReadOnly:=False, Format:=wdOpenFormatAuto
    ChangeFileOpenDirectory "D:\OfficeDev\Word\201505\Pdf\Word" 'path for saving word
        ActiveDocument.SaveAs2 (Replace(file, ".pdf", ".docx"))
        ActiveDocument.Close
        file = Dir
    Loop
End Sub