关于EXCEL表数据写入WORD问题

学员lsy

Sub BaogaoFuzhu1()

Application.ScreenUpdating = False

  DimExS As Range

  DimwdApp

  Dimdoc

  p =ThisWorkbook.Path & "/"

  f =p & "年度审计报告报告及附注模板.docx"

  Setwd = CreateObject("word.application")

  SetwdApp = wd.documents.Open(p & "年度审计报告报告及附注模板.docx")  '打开新文档

'-----------------------------------------------------------变化部分

  Set ExS =Sheets("Z3").Range("A1:D3") '存有数据的表格

For i = 1 To 3 '遍历数据行

  For t = 2 To 2

    wdApp.tables(1).Cell(i, t) = ExS.Cells(i, t+ 2).Text '复制表格每列内容到文档，有多少项就有多少条

  Next

Next

'-----------------------------------------------------------不变部分

   wdApp.Close

   wd.Quit

   Set wd = Nothing

Application.ScreenUpdating = True

End Sub

（1）      几十条程序都用到共同部分，如何通过调用程序等方法来简化代码；

（2）      Word中随EXCEL工作簿中表格增多，可能会在现有的WORD表格中插入一个表格，如在tables(2)、tables(3)中间插入一个表格，这样所有tables()表格顺序都打乱了，所编制的表格自动填数程序就不能一一对应了，如何能做到word中表格定位，比如将tables(1)起个固定名称“封面”之类的可以吗？

（3）      Word文件中黄色部分是正文，非表格部分，该部分是EXCEL表中变化部分，数据源为EXCEL表“Z3！B9”单元格，如何写进word（非邮件合并方式），并且写进去还可以删除修改才行；