在EXCEL使用VBA对word进行选择黏贴操作的疑问

ywzx703

从excel复制区域后，黏贴（带链接格式）到WORD上时，表格上方会增加一行。想删除这一行要怎么实现？
代码：

1. Sub 导出表格(control As IRibbonControl)
   
2.     Dim WordApp As Object, DOC, mTable, Fn$, Str$
   
3.     On Error Resume Next    '设置容错代码
   
4.     arr = Application.GetOpenFilename("所有文件 (*.doc;*.docx;),*.doc;*.docx,Word97-2003 文件 (*.doc),*.doc,Word2007 文件 (*.Docx),*.Docx", , "选择文件", , False)
   
5.    
   
6.     Set WordApp = CreateObject("word.application")  '创建word程序项目（用于操作word文档）
   
7.     WordApp.Visible = True  '设定word程序项目可见
   
8.     Set DOC = WordApp.Documents.Open(Trim(arr))
   
9.     K = 0
   
10.     T = DOC.Tables.Count
    
11.     For i = 1 To T '循环文档中的各个表格
    
12.         WordApp.Activate    '激活word程序，使之窗体前置
    
13.         DOC.Tables(i).Select
    
14.         'Selection.InsertAfter Text:=""
    
15.         DOC.Tables(i).Delete   '删除表格
    
16.         
    
17.         With Windows(1)     '激活excel程序窗体，使之前置
    
18.             .Activate
    
19.             With ActiveWorkbook.ActiveSheet   '选中当前使用区A列下面的第一个单元格，并粘贴复制的word中的表格数据
    
20.                 Set rng = Range(.Cells(i, 1)) '选择一个表格范围赋值给变量
    
21.                 With WordApp '应用类操作
    
22.                    With .Selection '选择对象操作
    
23.                       rng.Copy '复制Range
    
24.                       .PasteExcelTable True, False, False '粘贴到Word中
    
25.                    End With
    
26.                 End With
    
27.             End With
    
28.         End With
    
29.         If i > 5 Then Exit Sub
    
30.     Next i
    
31.     'DOC.Close False   '关闭word文档
    
32. 
    
33.     Application.ScreenUpdating = True
    
34.     'WordApp.Quit    'word程序项目关闭
    
35.     'Set DOC = Nothing   '清空对应项目变量
    
36.     Set WordApp = Nothing
    
37. End Sub

复制代码