主要代码如下：

On Error Resume Next  '错误继续执行下一行代码

Set wordapp = New Word.Application '实例化
    wordapp.Documents.open App.Path & "\数据\模板.doc"
    wordapp.Visible = False '显示 Office Word 界面
    wordapp.DisplayAlerts = False '不提示保存对话框
    wordapp.Selection.Find.ClearFormatting
    wordapp.Selection.Find.Replacement.ClearFormatting
    wordapp.ActiveDocument.Tables(14).Cell(2, 2).Range.InsertAfter "测试结果"
    *上一行代码是给指定表格指定单元格插入内容*
With wordapp.Selection.Find
        .Text = "《测试》"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
End With
    wordapp.Selection.Find.Execute Replace:=wdReplaceAll
    MsgBox ActiveDocument.Tables.Count   '获取文件表格总数
    ActiveDocument.SaveAs "c:\MyWord.doc" '保存最后生成的word文
   
    On Error Resume Next
    wordapp.Quit
    Set wordapp = Nothing
   
    MsgBox "生成成功", , ""

我的word里有很多个表   我怎么定位其中一个  
那个表在第14个表   用数字定位我会了   有没有别的办法
预防之后word修改会影响到表格数量    每个表上面都有一个标题   可否根据这个进行判断然后定位    或者有什么更好的方法  标签或者什么   请各位指教

这个真不知道，没有用VB控制过Word，还是Excel的VBA用的多