通过 vba 在 excel 中调用 word

Sub call_word()

    Dim doc As New Word.Application  '前期绑定。使用这种方法，会有自动提示
    'Set doc = CreateObject("word.application")  '后期绑定。创建 word 对象
    
    doc.Visible = True
        
    Set wd = doc.Documents.Add '新建一个 word 空白文档
    
    wd.Paragraphs(1).Range.Text = ThisWorkbook.Worksheets(1).Range("a1").Value  '将 excel 第一个单元格的内容填充到 word 的第一行
    
    wd.SaveAs "例子.docx"  '保存文件

End Sub

注意： 使用第一种方法定义 word 对象时，必须引用“Microsoft Word 16.0 Object Library”