请教各位老师，周折了多天还是不能解决遇到的问题：两个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，之后生成新的word，这样比你操作第二个word插入简单。
多个的处理方法类似。

下面是创建word中表格的实例【如果不会可以用word录制宏，之后把代码搬过来，包括格式等设置都可以】
wd.ActiveDocument.Tables.Add Range:=wd.Selection.Range, NumRows:=2, NumColumns _
    :=7, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
    wdAutoFitFixed '创建2行7列表格
   wd.Selection.Tables(1).Columns(1).Width = 100'设置第一列列宽
   wd.Selection.Tables(1).Columns(2).Width = 150'设置第二列列宽
   wd.Selection.Tables(1).Cell(1, 1).Range.Text = "流水号"'填写表格
   wd.Selection.Tables(1).Cell(1, 2).Range.Text = "受理时间"

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