请问Word Vba 如何获取range对象的宽度？

csra1235 · 发表于 2020-8-19 11:59

想要实现通过range对象的fittextwidth属性将两个range对象的宽度设置一致，但是不知道如何获取所需要匹配的range对象宽度。
例如想要将示例中第二行文字的宽度设置来和第一段文字相同，常规操作方法是如下图通过开始选项卡→段落→中文版式→调整宽度来查看和调整文字的宽度，但是用vba应该如何获取第一段文字的宽度呢？
请解答，谢谢。

微信截图_20200819113757.png

zmj9151 · 发表于 2020-8-19 14:18

按上述操作录宏可得代码

csra1235 · 发表于 2020-8-20 01:32

zmj9151 发表于 2020-8-19 14:18
按上述操作录宏可得代码

录制宏只能得到设置fittextwitdth属性值的代码，不能获得range对象的宽度代码

csra1235 · 发表于 2021-2-28 02:48

今天找到了一种解决方式。
for each character in range.characters

next

csra1235 · 发表于 2021-2-28 02:50

今天找到了一种解决方式。

For Each Character In Range.Characters
n = n + Character.Font.Size
Next

复制代码

通过循环求出range对象内的每一个字符size属性之和即为range对象的宽度

csra1235 · 发表于 2021-2-28 02:57

今天找到了一个实现方式
通过循环求出range中每个字符的size之和就是range的宽度

For Each Character In Range.Characters
n = n + Character.Font.Size
Next

复制代码

		自动登录	找回密码
密码			免费注册

[求助] 请问Word Vba 如何获取range对象的宽度？