admin管理员组

文章数量:1605320

在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

本文标签： 转换为文件PDFword

版权声明：本文标题：将Pdf文件转换为Word 内容由热心网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：https://m.elefans.com/dianzi/1728480872a1160089.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。