如何使用excel VBA将文本复制到word中

Sub CopyTextToWord()
    Dim wordApp As Object
    Dim wordDoc As Object
    Dim excelRange As Range
    
    ' 创建一个Word应用程序对象
    Set wordApp = CreateObject("Word.Application")
    
    ' 打开一个新的Word文档
    Set wordDoc = wordApp.Documents.Add
    
    ' 设置Word应用程序可见
    wordApp.Visible = True
    
    ' 将Excel中的文本复制到Word中
    Set excelRange = ThisWorkbook.Sheets("Sheet1").Range("A1:A10") ' 将A1:A10范围的文本复制到Word中
    excelRange.Copy
    
    ' 在Word中粘贴文本
    wordDoc.Range.Paste
    
    ' 释放对象
    Set wordDoc = Nothing
    Set wordApp = Nothing
End Sub