office批量格式转换VBA

Shaka 2月前 ⋅ 53 阅读
 
'pdf、doc、rtf、txt转docx
Option Explicit
Sub other2docx()
On Error Resume Next
Dim sEveryFile As String, sSourcePath As String, sNewSavePath As String
Dim CurDoc As Object
sSourcePath = "D:\1-原稿\Listings\"
'假定待转换的rtf文件全部在"D:\1-原稿\Listings"下,你需要按实际情况修改。
sEveryFile = Dir(sSourcePath & "*.rtf")
Do While sEveryFile <> ""
   Set CurDoc = Documents.Open(sSourcePath & sEveryFile, , , , , , , , , , , msoFalse)
   CurDoc.Convert
   sNewSavePath = VBA.Strings.Replace(sSourcePath & "DOCX文件\" & sEveryFile, ".rtf", ".docx")
   '要把doc/pdf/txt转为docx,则把上面第9行和第13行两处".rtf"改为".doc"/".pdf"/".txt"
   '转化后的文件也在"E:\PDF文件\"下,当然你可以按需修改。
   CurDoc.SaveAs2 sNewSavePath, wdFormatDocumentDefault
   CurDoc.Close SaveChanges:=False
   sEveryFile = Dir
Loop
Set CurDoc = Nothing
End Sub

 

注意点.

sSourcePath = "D:\1-原稿\Listings"这个是错误的,路径一定要以\结尾,(修改目标文件夹也许可行,没试过)


注意:本文归作者所有,未经作者允许,不得转载

全部评论: 0

    我有话说: