怎样读取变化后的文本框宽度

小花鹿

先读取文本框的宽度，然后改变文本框的内容，再读取文本框的宽度，但是，变化后的文本框的宽度不能正确读取
Sub test()
Dim myleft, s, mywidth1, mywidth2
s = "文本框01(01)"
mywidth1 = ThisDocument.Shapes(s).Width
ThisDocument.Shapes(s).TextFrame.TextRange.Text = "你好我是小花鹿，来自中国"
mywidth2 = ThisDocument.Shapes(s).Width
MsgBox mywidth1 & "|" & mywidth2
End Sub
Sub test1()
Dim s
s = "文本框01(01)"
ThisDocument.Shapes(s).TextFrame.TextRange.Text = "123"
End Sub


读取文本框宽度.rar (7.54 KB, 下载次数: 10)

2019-9-9 10:25 上传

点击文件名下载附件

413191246se

请 老师 将代码放在 Normal.dotm 中测试：

1. Sub test()
   
2.     ActiveDocument.Shapes("文本框01(01)").Select
   
3.     MsgBox Round(Selection.ShapeRange.Width / 28.35, 2) & "厘米"
   
4. End Sub

复制代码

小花鹿

413191246se 发表于 2019-9-9 20:13
请 老师 将代码放在 Normal.dotm 中测试：

谢谢你的回复，我这个代码是需要放在thisdocument中的                                                                        

413191246se

* 我一向喜欢将代码放在 通用模板 中，从来（也许不会）不放在 文档中。
* 老师，学生愚见，觉得只要选定文本框，宽度自然就得到了（只是单位不同），我也是用2007测试的，看到功能区有文本框宽度的。

小花鹿

413191246se 发表于 2019-9-9 23:34
* 我一向喜欢将代码放在 通用模板 中，从来（也许不会）不放在 文档中。
* 老师，学生愚见，觉得只要选定 ...

我是想用代码取得变化后的文本框的宽度，后续的代码要用到这个宽度，所以，不能手工操作，只能用代码
另外，把代码放在通用模板中不得于交流