如何取得word一段文档中的行数?
------解决方案--------------------------------------------------------
Paragraph.Range.ComputeStatistics(Statistic:=wdStatisticLines)
------解决方案--------------------------------------------------------
首先选一段文字
intStart = Selection.Characters.Count
Selection.Characters(1).Select
Selection.Move WdUnits.wdCharacter, intStart - 1
MsgBox Selection.Information(wdFirstCharacterLineNumber) & " 行 "