思路:
1、Word建书签,不会的自己百度;
2、EXCEL中复制;
3、Word中找到书签并选中,粘贴或复制。
注意:一定要在EXCEL工具-引用 “Microsoft Word 1?.0 Object Library”,否则一些Word中的类无法使用的。
Set Sheet = ThisWorkbook.Sheets(1) '定义EXCEL Sheet变量 Dim WordApp As Word.Application 'Word应用 Dim WordDoc As Word.Document 'Word文档 Set WordApp = New Word.Application Set WordDoc = WordApp.Documents.Open(ThisWorkbook.Path & "\Temp.docx") '打开同目录下的Temp.docx文档 Sheet.Range("B2:F5").Copy '.CopyPicture是可以作为图片复制的 WordDoc.Bookmarks("BookMark1").Range.Select '选择Word中的书签BookMark1 Sheet.ChartObjects(1).Copy WordDoc.Bookmarks("BookMark2").Range.Select WordDoc.Bookmarks("BookMark3").Range.Select WordApp.Selection.TypeText Text:="EXCEL文字到Word" Set WordDoc = Nothing '清变量
|