2021-03-12

使用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