如何在Microsoft Word中统计选中文本的行数？

你原来的代码用了ActiveDocument.ComputeStatistics，这个方法的作用范围是整个文档，所以才会得到全文档的行数。要实现仅统计选中文本的需求，我们需要把统计对象换成Selection（当前选中的内容），同时增加容错处理，避免用户没选中内容时程序报错。

修正后的完整代码 #

Sub Count_Selected_Lines()
    ' 判断是否有选中内容（避免光标未选文本时出错）
    If Selection.Type = wdSelectionIP Then
        MsgBox "请先选中需要统计的文本哦！", vbExclamation, "提示"
        Exit Sub
    End If
    
    ' 统计选中文本的行数
    Dim selectedLineCount As Long
    selectedLineCount = Selection.ComputeStatistics(wdStatisticLines)
    
    ' 弹出统计结果
    MsgBox "选中的文本包含 " & selectedLineCount & " 行", vbInformation, "统计完成"
End Sub

代码细节说明 #

• 容错判断：Selection.Type = wdSelectionIP用来检查当前是否只是光标停在文档中（没有选中任何内容），如果是就弹出提示并终止程序，避免后续执行出错。
• 核心统计：Selection.ComputeStatistics(wdStatisticLines)是关键，这个方法专门针对当前选中的内容进行行数统计，和你原来用的ActiveDocument版本逻辑一致，但作用范围仅限选中区域。
• 结果展示：用变量selectedLineCount存储统计结果，再通过MsgBox展示，代码更易读也更便于后续扩展。

使用小贴士 #

• 按Alt+F11打开Word的VBA编辑器，把这段代码粘贴到模块里就能运行；如果想长期使用，保存到Normal模板中，以后随时可以调用。
• 即使你选中的是某一行的部分内容，这个方法也会把它算成一行，完全符合Word对“行”的统计逻辑。

内容的提问来源于stack exchange，提问作者VBAbyMBA