EXCEL-VBA:将EXCEL的表格、图形、文字粘贴到Word中的指定位置
EXCEL-VBA：将EXCEL的表格、图形、⽂字粘贴到Word中
的指定位置
思路：
1、Word建书签，不会的⾃⼰百度；
2、EXCEL中复制；
3、Word中到书签并选中，粘贴或复制。
注意：⼀定要在EXCEL⼯具－引⽤ “Microsoft Word 1?.0 Object Library”，否则⼀些Word中的类⽆法使⽤的。
Sub test()
三级片电影
Dim Sheet As Worksheetword无法复制粘贴
Set Sheet = ThisWorkbook.Sheets(1) '定义EXCEL Sheet变量
无奈的诗句日的成语Dim WordApp As Word.Application 'Word应⽤
升级ios7教程
Dim WordDoc As Word.Document 'Word⽂档
Set WordApp = New Word.Application
WordApp.Visible = True
Set WordDoc = WordApp.Documents.Open(ThisWorkbook.Path & "\Temp.docx") '打开同⽬录下的Temp.docx⽂档
'表格-->Word
Sheet.Range("B2:F5").Copy '.CopyPicture是可以作为图⽚复制的
WordDoc.Bookmarks("BookMark1").Range.Select '选择Word中的书签BookMark1
台风形成
WordApp.Selection.Paste
'图形（柱状图等）-->Word
Sheet.ChartObjects(1).Copy
WordDoc.Bookmarks("BookMark2").Range.Select
WordApp.Selection.Paste
'⽂字-->Word
WordDoc.Bookmarks("BookMark3").Range.Select
WordApp.Selection.TypeText Text:="EXCEL⽂字到Word"
WordDoc.Save '保存
WordDoc.Close '关⽂档
WordApp.Quit '退Word
Set WordDoc = Nothing '清变量
Set WordApp = Nothing
End Sub

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。