批次把DOCX轉成各種格式的步驟:
1.打開空白word
2.按alt+F11
3.插入模組
4.貼上下面內容,然後F5執行,選取資料夾
Sub ConvertDocToHtml()
'Updated by ExtendOffice 20181128
Dim xDlg As FileDialog
Dim xFolder As Variant
Dim xFileName As String
Application.ScreenUpdating = False
Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
If xDlg.Show <> -1 Then Exit Sub
xFolder = xDlg.SelectedItems(1) + "\"
xFileName = Dir(xFolder & "*.docx", vbNormal)
While xFileName <> ""
Documents.Open FileName:=xFolder & xFileName, _
ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
wdOpenFormatAuto, XMLTransform:=""
ActiveDocument.SaveAs xFolder & Replace(xFileName, "docx", "html"), wdFormatFilteredHTML
ActiveDocument.Close
xFileName = Dir()
Wend
Application.ScreenUpdating = True
End Sub
6.各種格式
把wdFormatFilteredHTML換掉就可以轉成各種格式,格式列表如下
https://learn.microsoft.com/zh-tw/office/vba/api/word.wdsaveformat
留言
張貼留言