如何使用VBA将excel中的数据以文本形式导出到word中

Sub ExportToWord()
    Dim objWord As Object
    Dim objDoc As Object
    Dim rngData As Range
    
    ' 创建一个新的Word应用程序对象
    Set objWord = CreateObject("Word.Application")
    
    ' 打开一个新的Word文档
    Set objDoc = objWord.Documents.Add
    
    ' 设置要导出的Excel数据范围
    Set rngData = ThisWorkbook.Worksheets("Sheet1").Range("A1:B10")
    
    ' 将Excel数据复制到Word文档中
    rngData.Copy
    objDoc.Range.Paste
    
    ' 将数据以文本形式粘贴到Word文档中
    objDoc.Range.PasteSpecial DataType:=2
    
    ' 保存Word文档
    objDoc.SaveAs "C:\Path\To\Your\Word\File.docx"
    
    ' 关闭Word文档
    objDoc.Close
    
    ' 退出Word应用程序
    objWord.Quit
    
    ' 释放对象变量
    Set objDoc = Nothing
    Set objWord = Nothing
End Sub