vbscript - 表の生成 (行とセル)

Question

VB.net コードを持っていますが、VBScript に変換する必要があります。Word ドキュメントを開いてテーブルをカウントする必要があります。Word のようなもの (Tablein など) がある場合は、それをテーブルに置き換える必要があります。ただし、データが提供されると、テーブルを作成する必要があります。

VB.net コード (完全なコード):

dim oRow As Word.Row,oTable As Word.Table
oRow = oTable.Rows(1)
oRow.Cells(1).Range.Text = ""
If PullRow.Item("TYPE").ToString = "Traffic" Then
oRow.Cells(2).Range.Text = "T"
ElseIf PullRow.Item("TYPE").ToString = "Data" Then
oRow.Cells(2).Range.Text = "D"
End If
oRow.Cells(3).Range.Text = "C"

VBScript (私が書けるようになるまで):

Dim intNoOfRows

Dim intNoOfColumns

Dim objWord

Dim objDoc

Dim objRange

Dim objTable
dim strword

intNoOfRows = 5

intNoOfColumns = 3

Set objWord = CreateObject("Word.Application")

objWord.Visible = True    

Set objDoc = objWord.Documents.open("new.docx")

g= objWord.ActiveDocument.Tables.count

Set objRange = objDoc.Range

Set objTable = objDoc.Tables(1)
objTable.Borders.Enable = True   

With objWord.Selection
  .Find.Text = "pen"
  .Find.Forward = True
  .Find.MatchWholeWord = True
  Do
    found = .Find.Execute 

    If found Then objDoc.Tables.Add objRange, 2,2
  Loop While found

End With