Microsoft Word VBA从excel插入页脚

Sub InsertFooterFromExcel()
    Dim wordApp As Object
    Dim wordDoc As Object
    Dim excelApp As Object
    Dim excelWorkbook As Object
    Dim footerText As String
    
    ' 创建Word应用程序对象
    Set wordApp = CreateObject("Word.Application")
    wordApp.Visible = True ' 可见性设置为True，方便调试
    
    ' 打开Word文档
    Set wordDoc = wordApp.Documents.Open("C:\Path\To\Your\Word\Document.docx")
    
    ' 创建Excel应用程序对象
    Set excelApp = CreateObject("Excel.Application")
    
    ' 打开Excel工作簿
    Set excelWorkbook = excelApp.Workbooks.Open("C:\Path\To\Your\Excel\Workbook.xlsx")
    
    ' 从Excel获取页脚文本
    footerText = excelWorkbook.Sheets("Sheet1").Range("A1").Value
    
    ' 将页脚文本插入到Word文档的页脚中
    wordDoc.Sections(1).Footers(wdHeaderFooterPrimary).Range.Text = footerText
    
    ' 保存并关闭Word文档
    wordDoc.Save
    wordDoc.Close
    
    ' 关闭Word应用程序
    wordApp.Quit
    
    ' 关闭Excel工作簿
    excelWorkbook.Close
    
    ' 关闭Excel应用程序
    excelApp.Quit
    
    ' 释放对象
    Set wordDoc = Nothing
    Set wordApp = Nothing
    Set excelWorkbook = Nothing
    Set excelApp = Nothing
End Sub