实例场景

有些时候,需要将多个Excel表复制到Word文档中指定的位置。一般可以使用通常的复制/粘贴操作,然而如果表很多的话,VBA就派上用场了。

演示数据

我们准备了3个表,如下图1至图3所示。

excel表格复制到docx中 java_word 插入代码

图1

excel表格复制到docx中 java_word插入代码_02

图2

excel表格复制到docx中 java_word插入代码块_03

图3

准备工作

我们需要将这3个表插入到名为“Excel报表.docx”的Word文档中。因为要分别插入到文档中指定位置,所以我们在要插入的位置定义书签。将光标放置到要插入表的位置,单击功能区“插入”选项卡“链接”组中的“书签”,输入书签名,单击“添加”按钮,如下图4所示。

excel表格复制到docx中 java_vba 在光标插入文字_04

图4

由于要插入3个表,因此在要插入的位置添加3个书签。在本例中,我们将3个书签分别命名为“书签1”、“书签2”和“书签3”。

在VBA编辑器中,单击“工具——引用”,找到并选取“Microsoft Word 16.0 Object Library”前的复选框,如下图5所示。

excel表格复制到docx中 java_word插入代码_05

图5

代码

在VBA编辑器中,插入一个新模块,输入下面的代码:

'强制数组下标以1开始Option Base 1'将Excel表复制到一个新的Word文档Sub ExcelTablesToWord()    Dim rngTable As Excel.Range    Dim WordApp As Word.Application    Dim myDoc As Word.Document    Dim WordTable As Word.Table    Dim varTableArray As Variant    Dim varBookmarkArray As Variant    Dim i As Integer        '要复制的Excel表的表名    varTableArray = Array("表1", "表2", "表3")        '要粘贴到Word文档的书签名    varBookmarkArray = Array("书签1", "书签2", "书签3")        '关闭屏幕更新和事件    Application.ScreenUpdating = False    Application.EnableEvents = False        '将变量赋值给目标Word文档    On Error GoTo NotFoundWordDoc    Set WordApp = GetObject(Class:="Word.Application")    WordApp.Visible = True    Set myDoc = WordApp.Documents("Excel报表.docx")    On Error GoTo 0        '遍历并粘贴Excel表    For i = LBound(varTableArray) To UBound(varTableArray)        '从Excel中复制表区域        Set rngTable = ThisWorkbook.Worksheets(i).ListObjects(varTableArray(i)).Range        rngTable.Copy                '将表粘贴到Word        myDoc.Bookmarks(varBookmarkArray(i)).Range.PasteExcelTable _            LinkedToExcel:=False, _            WordFormatting:=False, _            RTF:=False                '自动调整表以适应Word文档        Set WordTable = myDoc.Tables(i)        WordTable.AutoFitBehavior (wdAutoFitWindow)    Next i        '给出消息    MsgBox "复制完成!", vbInformation    GoTo EndRoutine        '错误处理NotFoundWordDoc:    MsgBox "Word文件'Excel报表.docx'未打开,重试.", 16    EndRoutine:    Application.ScreenUpdating = True    Application.EnableEvents = True    Application.CutCopyMode = FalseEnd Sub

运行代码,结果如下图6所示。

excel表格复制到docx中 java_word插入代码_06

图6

应用小结

1.在Word中使用书签功能进行定位,并在代码中利用书签,是一种常用的技巧。

2.使用数组并将表名与书签名相对应,能够极大地方便代码的编写。

3.对Excel数据和Word文档进行合适的设置,能够很好地帮助数据处理。