VBA 操作word文档文本框中的表格

使用VBA 修改word文档，添加文本框并在文本框中加入表格，修改表格中某个单元格的值

哦，忘了修改单元格的值了：
Sub test()
With ThisDocument
.Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 50, 200, 200).Select
.Tables.Add Range:=Selection.Range, NumRows:=2, NumColumns:= _
2, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed
With Selection.Tables(1)
.Cell(1, 1).Range.InsertAfter "(1,1)"
.Cell(1, 2).Range.InsertAfter "(1,2)"
.Cell(2, 1).Range.InsertAfter "(2,1)"
.Cell(2, 2).Range.InsertAfter "(2,2)"
End With
End With
End Sub

在thisdocument的vbe里添加这些代码，试试：
[code=vb]Sub test()
With ThisDocument
.Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 50, 200, 200).Select
.Tables.Add Range:=Selection.Range, NumRows:=2, NumColumns:= _
2, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed
End With
End Sub
[/code]