word 宏VBA实现统计行

Sub lineCount()

'统计行数

Dim wordCount, lineCount
Set myRange = Selection.Range
lineCount = myRange.ComputeStatistics(Statistic:=wdStatisticLines)

MsgBox lineCount
End Sub

赏 支付宝打赏 微信打赏

如果文章或资源对您有帮助，欢迎打赏作者。一路走来，感谢有您！