excel-VBA 复制word表格数据代码求助

mybadboy

在word-vba中用Selection.SelectRow是可以的。但是在EXCEL-VBA中调用word时出错。
我想实现的功能是将文件夹中word的标题行复制粘贴到excel活动工作表中去。
标题行图示:

EXCEL-模块中的现有代码如下

1. Sub 复制粘贴word标题行()
   
2. Dim rng As Range
   
3. Set rng = ActiveCell
   
4. With CreateObject("word.application")
   
5.     With .Documents.Open(ThisWorkbook.Path & "\求助.doc")
   
6.         If .Tables.Count > 0 Then  '如果有表格,则
   
7.                 With .Tables(1) 'with结构操作表
   
8.                      .Cell(1, 1).Select
   
9.                     Selection.SelectRow
   
10.                     Selection.Copy
    
11.                     rng.PasteSpecial
    
12.                 End With
    
13.         End If
    
14.         .Close False  '关闭word文档
    
15.     End With
    
16.     .Quit  '退出word进程
    
17. End With
    
18. MsgBox "ok!"
    
19. End Sub

复制代码

请教:应该怎么修改代码。
'详见附件,谢谢。
附件.rar (20.44 KB, 下载次数: 5)

2014-10-13 17:51 上传

点击文件名下载附件

liuhoubin168

selection要指明是word.selection还是excel.selection