我有一堆 .htm 文件,我想将它们转换为 .docx 文件。我该如何编写脚本让 Word 打开它们并将它们另存为 .docx 文件?
我可以手动启动该过程。我不需要等待更多文件的东西,只需要按需运行并处理整个文件夹的东西。
答案1
Sub ConvertHTMtoDOCX()
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.InitialView = msoFileDialogViewList
.Show
strPath = .SelectedItems.Item(1) + "\"
End With
strFilename = Dir(strPath & "*.htm")
While Len(strFilename) <> 0
Set myDoc = Documents.Open(strPath & strFilename)
strNewName = strPath & strFilename & ".docx"
myDoc.SaveAs FileName:=strNewName, FileFormat:=wdFormatDocumentDefault
myDoc.Close SaveChanges:=wdDoNotSaveChanges
strFilename = Dir()
Wend
End Sub
在我的桌面、Windows 7 x64 和 Office 2013 上使用 2 个 .HTM 文件进行了测试