EXCEL指定单元格数据写到WORD相应批注对应的位置

cxd1001

说明：
将sheet1工作表单元格名称为“单位名称”的数据，写入WORD批注为“单位名称”的地方

cxd1001

也可以
在WORD写代码，根据批注内容取EXCEL对应单元格名称的值

cxd1001

最好是在WORD写代码，因为数据会涉及到二个工作簿

cxd1001

论坛上都找了，没有类似的

cxd1001

利用书签，可以做到了，但是会换行，怎么处理？代码如下：
Sub PasteExcelTableIntoWord3()
'声明变量
Dim MyRange As Excel.Range
Dim wd As Word.Application
Dim wdDoc As Word.Document
Dim WdRange As Word.Range
Dim i As Long

'打开Word文档
Set wd = New Word.Application
Set wdDoc = wd.Documents.Open(ThisWorkbook.Path & "\鉴证报告.doc")
wd.Visible = True

On Error Resume Next

For i = 1 To 4
Set MyRange = Sheets("data").Range("数据" & i).Copy
Set WdRange = wdDoc.Bookmarks("A" & i).Range
WdRange.Tables(1).Delete
WdRange.PasteSpecial
wdDoc.Bookmarks.Add "A" & i, WdRange
Next i

'清空内存
Set wd = Nothing
Set wdDoc = Nothing
Set WdRange = Nothing

End Sub

tsh134

不用书签，用替换形式

cxd1001

tsh134 发表于 2012-6-29 10:31
不用书签，用替换形式

直接写入“鉴证报告模板.doc”，不是新生成文件，代码怎么改？

cxd1001

tsh134 发表于 2012-6-29 10:31
不用书签，用替换形式

谢谢！{:soso_e179:}

cxd1001

tsh134 发表于 2012-6-29 10:31
不用书签，用替换形式

能不能不引用工程，直接在代码里写
或后期绑定呢

因为我发给别人，也要引用，重发还要引用，或者能不能设置默认引用呢

ty1014

cxd1001 发表于 2012-7-24 16:03
能不能不引用工程，直接在代码里写
或后期绑定呢

同样的问题呢