第40段有几行

小花鹿 · 发表于 2024-2-24 00:20

WORD文档中有41个段落，其中第40段是跨页的，我的问题是第40段有几行，答案是：8行。
怎么用VBA代码得到这个结果，谢谢。

第40段有几行.rar (11.81 KB, 下载次数: 8)

蜀中草莽 · 发表于 2024-2-24 09:08

Sub tt()
Dim 行 As Long
Set myRange = Selection.Range
行 = myRange.ComputeStatistics(Statistic:=wdStatisticLines)
MsgBox 行
End Sub

蜀中草莽 · 发表于 2024-2-24 09:09

小花鹿 · 发表于 2024-2-24 10:26

蜀中草莽发表于 2024-2-24 09:09

非常感谢！

蜀中草莽 · 发表于 2024-2-24 11:52

小花鹿发表于 2024-2-24 10:26
非常感谢！

不客气，相互交流。一起学习！

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

[求助] 第40段有几行