如何用VBA获取Word文本框中选中内容的行号？求助解决方案

在Word中，Selection.Information(wdFirstCharacterLineNumber)和文本框TextRange的同名方法都会返回-1，因为该API仅支持文档主正文区域的Range，对文本框这类Shape内嵌的文本容器不生效。以下是可行的替代方案：

实现代码 #

Dim shp As Shape
Dim tbTextRange As Range
Dim targetLineNum As Integer
Dim currentLine As Range

' 遍历文档所有形状，定位光标所在的文本框
For Each shp In ActiveDocument.Shapes
    If shp.Type = msoTextBox And Selection.Range.InRange(shp.TextFrame.TextRange) Then
        Set tbTextRange = shp.TextFrame.TextRange
        targetLineNum = 1
        Set currentLine = tbTextRange.Lines(1)
        
        ' 循环查找包含选中内容起始位置的行
        Do While currentLine.End < Selection.Range.Start
            targetLineNum = targetLineNum + 1
            Set currentLine = tbTextRange.Lines(targetLineNum)
        Loop
        
        MsgBox "选中内容的首行行号：" & targetLineNum
        Exit Sub
    End If
Next shp

MsgBox "光标当前不在文本框内"

原理说明 #

文本框的TextRange.Lines方法可以正常识别文本框内的自动换行/硬回车行，通过逐行判断范围是否包含选中内容的起始位置，就能统计出对应的行号。这种方式完全基于文本框自身的文本结构，不受主文档行号规则的影响。

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