excel中word对象的内容怎么传递给单元格或者另外一个word对象

来源：百度知道 编辑：UC知道 时间：2024/05/31 13:17:39
我的excel文档中有个word对象。我想用vba把其中的内容复制出来 粘贴到另外一个单元格或者另外一个word对象
我查到了怎么复制出来
Private Sub excelcontrolword()
Dim WordObj As Object
Set WordObj = Worksheets("Sheet1").OLEObjects(1)'假定事先在EXCEL中插入了WORD对象，序号就是1
WordObj.Activate
With WordObj.Object.Application.WordBasic
.EditSelectAll
.EditCopy
End With
Worksheets("sheet1").Range("A1").Activate
End Sub
怎么粘贴就找不到了
另外一个word对象也在这个 excel文档另外一个表里

Sub excelcontrolword()
Dim WordObj As Object
Set WordObj = Worksheets("Sheet1").OLEObjects(1) '假定事先在EXCEL中插入了WORD对象，序号就是1
WordObj.Activate
With WordObj.Object.Application.WordBasic
.EditSelectAll
.EditCopy
End With
Worksheets("sheet1").Range("A1").Select
ActiveSheet.Paste
End Sub

子易空间站 - 高效办公指导网站