主题：VBA代码中的 set 语句，在Foxtable中有替代的用法吗？

直接用

Dim tbs = xxxxxxxxx

参考代码

Dim _app As New MSWord.Application
Dim doc = _app.Documents.open("d:\test.doc")
Dim tbs = Doc.Tables '对表格进行排版
For i As Integer = 1 To tbs.Count '历遍选定区域中的WORD表
    Application.DoEvents '屏幕步步更新
    Dim tb = tbs(i)
    tb.Range.Select
    _app.Selection.Find.Text = "AHE" '要删除的字符
    _app.Selection.Find.Replacement.Text = ""   '清空
   
    _app.Selection.Find.Execute(Replace:=MSWord.WdReplace.wdReplaceAll) '这是个参数,全部替换的意思,写法应是对的与上次我作的一样
    output.show("是")
    output.show(i)
    output.show(tbs.Count)
Next
_app.visible = True