Vbscript 生成表格（行和单元格）

我有VB.net代码，但我需要将其转换为VBScript。我需要打开word文档，对表格进行计数，如果有类似于（例如Tablein）的单词，我需要将其替换为表格。但该表必须在提供数据时建立

VB.net代码（完整代码）：

VBScript（直到我能写）：

Dim intNoOfRows
昏暗的夜空
模糊词
Dim objDoc
模糊对象范围
暗淡的对象
暗色斯特沃德
intNoOfRows=5
intNoOfColumns=3
设置objWord=CreateObject（“Word.Application”）
objWord.Visible=True
设置objDoc=objWord.Documents.open（“new.docx”）
g=objWord.ActiveDocument.Tables.count
设置objRange=objDoc.Range
Set objTable=objDoc.Tables（1）
objTable.Borders.Enable=True
使用objWord.Selection
.Find.Text=“笔”
.Find.Forward=True
.Find.MatchWholeWord=True
做
Find=.Find.Execute
如果找到，则objDoc.Tables.Add objRange，2,2
找到时循环
以

将您创建的表分配给变量：

If found Then Set tbl = objDoc.Tables.Add(objRange, 2, 2)

然后使用该变量为表格单元格赋值：

tbl.Cell(1, 1).Range.Text = "foo"
tbl.Cell(1, 2).Range.Text = 23
tbl.Cell(2, 1).Range.Text = "bar"
tbl.Cell(2, 2).Range.Text = 42

---

它正在用“foo”替换word文档中的现有文本。我需要在表格中找到一个word，然后我需要添加表格。如果不添加表格，请跳过它。谢谢您的意思是要在表格单元格中添加嵌套表格吗？

tbl.Cell(1, 1).Range.Text = "foo"
tbl.Cell(1, 2).Range.Text = 23
tbl.Cell(2, 1).Range.Text = "bar"
tbl.Cell(2, 2).Range.Text = 42