求助：如何用VBA遍历Word句子与打印换行行并标记超宽行

阿华AIGC实验室

2026-5-9

识别Word中因打印宽度限制自动换行的行（VBA实现）

首先，你遇到的核心问题是Word对象模型里没有直接对应“打印行”的集合——Sentences是按语法规则（标点+空格）划分的，和实际打印时的自动换行完全不是一回事。不过我们可以通过Range对象的Information属性来间接获取打印行的信息，实现你的需求。

核心思路

Word的Range对象可以通过Information(wdEndOfRangeLineNumber)获取该范围结尾所在的打印行号，通过逐字符移动范围、监测行号变化，就能识别出每一行的边界。同时结合Information(wdAtEndOfParagraph)和Information(wdAtEndOfRowMarker)来区分是自动换行还是手动换行/段落结束，这样就能精准定位你需要高亮的那些行。

实现代码

下面是可以直接测试的VBA代码，它会自动高亮所有因为打印宽度不足而自动换行的行（也就是你黄色框选的内容）：

Sub HighlightAutoWrappedLines()
    Dim doc As Document
    Dim currentRange As Range
    Dim startLine As Long, currentLine As Long
    Dim isAutoWrap As Boolean
    
    Set doc = ActiveDocument
    Set currentRange = doc.Content
    currentRange.Collapse wdCollapseStart ' 定位到文档开头
    
    ' 清除之前的高亮
    doc.Content.HighlightColorIndex = wdNoHighlight
    
    Do While currentRange.End < doc.Content.End
        startLine = currentRange.Information(wdEndOfRangeLineNumber)
        
        ' 移动范围直到行号变化，或者到达段落/文档末尾
        Do While currentRange.End < doc.Content.End
            currentRange.MoveEnd wdCharacter, 1
            currentLine = currentRange.Information(wdEndOfRangeLineNumber)
            
            ' 检查是否到达段落末尾或手动换行
            If currentRange.Information(wdAtEndOfParagraph) Or _
               currentRange.Information(wdAtEndOfRowMarker) Then
                isAutoWrap = False
                Exit Do
            End If
            
            ' 如果行号变化，说明是自动换行
            If currentLine > startLine Then
                isAutoWrap = True
                currentRange.MoveEnd wdCharacter, -1 ' 退回到行尾前一个字符
                Exit Do
            End If
        Loop
        
        ' 如果是自动换行的行，高亮
        If isAutoWrap Then
            currentRange.HighlightColorIndex = wdYellow
        End If
        
        ' 重置范围到下一行开头
        currentRange.Collapse wdCollapseEnd
        If currentRange.End < doc.Content.End Then
            currentRange.MoveStart wdCharacter, 1
        End If
    Loop
End Sub

代码说明

先清除文档中所有之前的高亮，避免干扰；
通过wdEndOfRangeLineNumber跟踪当前范围所在的打印行号，当行号变化时，说明触发了自动换行；
用wdAtEndOfParagraph和wdAtEndOfRowMarker排除手动换行（Shift+Enter）和段落结束的情况，确保只高亮自动换行的行；
最后将符合条件的行设置为黄色高亮，你可以根据需要修改wdYellow为其他颜色，比如wdGreen，或者替换成字体颜色设置currentRange.Font.Color = vbYellow。