以编程方式从Word 2007文档中提取宏(VBA)代码

Sub ExtractVBA()
    Dim objWord As Word.Application
    Dim objDoc As Word.Document
    Dim objVBProject As VBIDE.VBProject
    Dim objVBComponent As VBIDE.VBComponent
    Dim strCode As String

    '打开Word文档
    Set objWord = New Word.Application
    Set objDoc = objWord.Documents.Open("C:\test.docx")

    '获取VBA项目
    Set objVBProject = objDoc.VBProject

    '遍历所有的VBA组件
    For Each objVBComponent In objVBProject.VBComponents
        '提取VBA代码
        strCode = objVBComponent.CodeModule.Lines(1, objVBComponent.CodeModule.CountOfLines)

        '输出VBA代码
        Debug.Print strCode
    Next

    '关闭Word文档
    objDoc.Close
    objWord.Quit

    '释放对象
    Set objVBComponent = Nothing
    Set objVBProject = Nothing
    Set objDoc = Nothing
    Set objWord = Nothing
End Sub