问题描述

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

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

解决方案

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

解决方案二：
哦，忘了修改单元格的值了：
Sub test()
With ThisDocument
.Shapes.AddTextbox(msoTextOrientationHorizontal 50 50 200 200).Select
.Tables.Add Range:=Selection.Range NumRows:=2 NumColumns:= _
wdAutoFitFixed
With Selection.Tables(1)
.Cell(1 1).Range.InsertAfter ""(11)""
.Cell(1 2).Range.InsertAfter ""(12)""
.Cell(2 1).Range.InsertAfter ""(21)""
.Cell(2 2).Range.InsertAfter ""(22)""
End With
End With
End Sub