使用VBA 修改word文档,添加文本框并在文本框中加入表格,修改表格中某个单元格的值
2条回答
- 一如既往哈 2014-11-24 07: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解决 1无用
悬赏问题
- ¥15 关于#matlab#的问题:期望的系统闭环传递函数为G(s)=wn^2/s^2+2¢wn+wn^2阻尼系数¢=0.707,使系统具有较小的超调量
- ¥15 FLUENT如何实现在堆积颗粒的上表面加载高斯热源
- ¥30 截图中的mathematics程序转换成matlab
- ¥15 动力学代码报错,维度不匹配
- ¥15 Power query添加列问题
- ¥50 Kubernetes&Fission&Eleasticsearch
- ¥15 報錯:Person is not mapped,如何解決?
- ¥15 c++头文件不能识别CDialog
- ¥15 Excel发现不可读取的内容
- ¥15 关于#stm32#的问题:CANOpen的PDO同步传输问题