在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