作者：绿色风
分类：
时间：2022-08-17
浏览：161
楼主
liuguansky |
Q：如何将EXCEL表格指定单元格的内容转进WORD的特定位置？
A：首先在目标文档中设定我们要转进内容的地方。[这里用书签的方式加以标注]
打开目标文档，在上面插入标签：
同理可添加多个标签来进行EXCEL内容的转入：这里分别在两个特定的位置输入书签：
在EXCEL VBE中工具下引用WORD对象
添加模块，插入代码：
- Sub datatowd()
- Dim appwd As Word.Application
- Set appwd = CreateObject("Word.Application")
- With appwd
- .Visible = True
- .documents.Open Filename:=ThisWorkbook.Path & "\mydoc.docx"
- Worksheets("sheet1").Range("a1").Copy
- .Selection.Goto what:=wdgotobookmark, Name:="book1"
- .Selection.Paste
- Worksheets("sheet1").Range("a2:e6").Copy
- .Selection.Goto what:=wdgotobookmark, Name:="book2"
- .Selection.Paste
- .Quit True
- End With
- Set wordappl = Nothing
- End Sub
运行即可完成WORD中添加EXCEL数据了。
示例文件如下：
|
2楼
wjc2090742 |
 厉害，这个还以为无法实现呢。代码排下版会更好。 |
3楼
liuguansky |
用CODE后就成了这样，实际上是有缩进的
可能我设置的TAB值为2所致。 |
4楼
dhblkhd |
看来我需要先补补基础知识再来学习这种高深的内容 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一