使用ShowFieldCodes将非句首交叉引用转为小写的VBA问题

• 目标规则：将文档所有句子中间位置的交叉引用（REF域）转换为小写，句首位置的交叉引用保留原大小写不调整
• 现存故障：开启ShowFieldCodes（即Alt+F9域代码视图）后，域代码展开会拉长段落内容、增加屏幕显示行数，但原代码调用ActiveDocument.Paragraphs(row).Range.Text时，使用的是屏幕物理行号去索引逻辑段落，二者完全错位，导致交叉引用的位置判断逻辑失效。

原代码的位置计算逻辑存在本质缺陷：wdFirstCharacterLineNumber和wdFirstCharacterColumnNumber返回的是当前视图下的屏幕物理行列位置，而Paragraphs集合的索引是基于文档的逻辑段落划分，和屏幕换行没有对应关系。域代码展开后屏幕换行规则变化，用物理行号去匹配逻辑段落自然会得到错误的文本内容。

直接操作Range对象取域代码前的文本做判断，完全不依赖屏幕物理行/列位置，从根源避免视图变化带来的计算误差：

Sub SetLowerCase()
    Dim refRange As Range
    Dim preRange As Range
    Dim preText As String
    Dim isSentenceStart As Boolean
    
    ActiveWindow.View.ShowFieldCodes = True
    Selection.HomeKey unit:=wdStory
    
    With Selection.Find
        .ClearFormatting
        .Text = "^d REF"
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchWildcards = False
        
        Do While .Execute
            isSentenceStart = False
            Set refRange = Selection.Range.Duplicate
            
            ' 直接取当前REF域所在段落中、域起始位置之前的所有文本
            Set preRange = ActiveDocument.Range( _
                Start:=refRange.Paragraphs(1).Range.Start, _
                End:=refRange.Start)
            preText = Trim(preRange.Text)
            
            ' 按规则判断是否为句首位置
            If Len(preText) = 0 Then
                isSentenceStart = True
            ElseIf Right(preText, 2) = ". " Then
                isSentenceStart = True
            ElseIf Right(preText, 1) = "." Then
                isSentenceStart = True
            End If
            
            ' 非句首位置的REF域添加小写格式开关，已添加的跳过
            If Not isSentenceStart Then
                If Not Selection.Text Like "*\*Lower*" Then
                    Selection.MoveRight unit:=wdCharacter, Count:=1
                    Selection.MoveLeft unit:=wdCharacter, Count:=1
                    Selection.TypeText Text:="\*Lower "
                    Selection.Fields.Update
                End If
            End If
            
            Selection.Collapse wdCollapseEnd
        Loop
    End With
    
    ActiveWindow.View.ShowFieldCodes = False
End Sub

• 所有位置判断基于文档原生Range对象实现，和当前视图、屏幕换行、域代码是否展开完全无关，不会出现位置错位问题
• 判定规则和原需求完全一致：段首位置、句号加空格之后、句号之后三种场景判定为句首，不做小写转换
• 增加重复校验：如果REF域已经添加了\*Lower开关，会直接跳过，避免重复插入参数

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