请教各位老师，周折了多天还是不能解决遇到的问题：两个word文件里的表格，需要把第1个word文档（X0.DOC）里表格中某行的内容复制，然后粘贴到第2个word文档（X1.DOC）表格中指定的位置（某行某列）。现在的代码仅能复制第1个word文档表格中指定位置的内容，但不知怎样粘贴到第二个word文档表中指定位置（非常惭愧）并保存，然后开始下一个word文档重复上述工作（因word文档很多，思路是将要操作的word文件分别按规律成对命名，用循环）。因VB丢失得一干二净，实在抱歉，给大家添麻烦了。

代码如下：
Private Sub Command1_Click()
Dim WordAPP
Dim word
Set WordAPP = CreateObject("word.application")
WordAPP.Visible = True '
Set word = WordAPP.documents.open("e:\X0.doc")
word.Tables(1).CELL(1, 2).Range.Copy

WordAPP.Visible = True '
Set word = WordAPP.documents.open("e:\X1.doc")
 WordAPP.activedocument.Table(1).CELL(1, 4).Range.Past
      
 WordObject.Saved = True '
 Set WordObject = Nothing '释放对象
   
  End Sub

非常感谢你的思路！我现在想通过依次复制整个word文档，然后粘贴到一个固定的Excel表sheet1中，然后将数据读取到表sheet2中，再选定导出sheet2表数据为word文件，这样可能比较容易实现一点，现在就是不知道怎么将拷贝的内容粘贴到电子表，等我再研究一下。再次感谢你的回复。