2 wangqingquan1987 wangqingquan1987 于 2014.11.24 14:17 提问

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

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

2个回答

Topc008
Topc008   Rxr 2014.11.24 15:24

在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]

Topc008
Topc008   Rxr 2014.11.24 15:38

哦,忘了修改单元格的值了:
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

Csdn user default icon
上传中...
上传图片
插入图片
准确详细的回答,更有利于被提问者采纳,从而获得C币。复制、灌水、广告等回答会被删除,是时候展现真正的技术了!