如何在用VBA把Excel的数据写入Word一段话中

冰封气流

各位大大，如何在用VBA把Excel的数据写入Word一段话中
已经前期绑定的
Sub aaa()
Dim wd As Word.Application, ex As Worksheet, wd1 As Document
Set wd = New Word.Application
Set ex = ThisWorkbook.Sheets("Sheet1")
Set wd1 = wd.Documents.Add
wd.Visible = True
ActiveDocument.Selection.TypeText ex.Range("a1")    '前面的语句无问题，就这段话，提示错误的
End Sub

求助，这句话应该怎么写？？？
先谢谢各位了

perfect131

不是：ActiveDocument.Selection.TypeText ex.Range("a1")
而是：wd.Selection.TypeText ex.Range("a1")
也可以是：wd.ActiveDocument.Paragraphs(1).Range.InsertBefore (ex.Range("a1"))

冰封气流

perfect131 发表于 2021-5-6 15:35
不是：ActiveDocument.Selection.TypeText ex.Range("a1")
而是：wd.Selection.TypeText ex.Range("a1")
...

谢谢。明白了，十分感谢~~~