使用word宏批量将docx转换成markdown格式的文件
Sub 转化成MD个数()
'
' 转化成MD个数 宏
Dim fso, folder, file, fileSet
Dim strFileName As String
Dim strMdName As String
Set fso = CreateObject("scripting.FileSystemObject")
' 要转换的路径
Set folder = fso.GetFolder("E:\Projects\Docs\Test")
Set fileSet = folder.Files
For Each file In fileSet
strFileName = file.Path
strMdName = VBA.Replace(strFileName, ".docx", ".md", , , vbTextCompare)
Set myDoc = Word.Documents.Open(fileName:=strFileName, Visible:=True)
Dim myClassName As String
For Each cnvWrdPrf In Application.FileConverters
myClassName = cnvWrdPrf.ClassName
If cnvWrdPrf.ClassName = "Writage" Then
myDoc.SaveAs2 fileName:=strMdName, _
FileFormat:=cnvWrdPrf.SaveFormat
myDoc.Close
End If
Next cnvWrdPrf
Next
End Sub