Word VBA宏给选中列表项加句号功能异常排查求助

问题根源 #

原代码中，当检测到最后一个字符是段落标记（vbCr）时，直接取Right(para.Range.Text, 2)，此时得到的是最后一个可见字符 + 段落标记的组合字符串，而非单个字符。比如列表项内容是"测试"，para.Range.Text就是"测试" + vbCr，Right(para.Range.Text,2)得到的是"试" + vbCr，这个字符串和单个句号"."比较自然永远不相等，导致每次都会执行添加句号的逻辑。

修复后的宏代码 #

Sub AddPeriodonList()
    Dim para As Paragraph
    Dim lastChar As String
    Dim selectedRange As Range

    Set selectedRange = Selection.Range

    For Each para In selectedRange.Paragraphs
        If para.Range.ListFormat.ListType <> wdListNoNumbering Then
            ' 跳过空列表项
            If Len(Trim(para.Range.Text)) <= 1 Then GoTo NextPara
            
            ' 获取段落最后一个可见字符（排除段落标记）
            lastChar = para.Range.Characters(para.Range.Characters.Count - 1).Text
            
            Debug.Print lastChar ' 调试用，输出到立即窗口
            
            ' 判断最后一个字符是否为句号
            If lastChar <> "." Then
                ' 在段落标记前插入句号
                para.Range.Characters(para.Range.Characters.Count - 1).InsertAfter "."
            End If
        End If
NextPara:
    Next para
End Sub

关键改进点 #

• 准确获取最后一个可见字符：通过para.Range.Characters(para.Range.Characters.Count - 1)直接定位到段落标记前的最后一个字符，避免了字符串截取的错误。
• 新增空项判断：跳过内容为空的列表项，避免给空项添加句号。
• 插入位置修正：直接在最后一个可见字符后插入句号，逻辑更直观。

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