Word VBA如何将文本追加到列表项末尾不错位不换行

Paragraph.Range的默认覆盖范围包含段落末尾的段落标记（不可见的回车符），直接对该范围调用InsertAfter时，追加的文本会被插入到段落标记外侧，不属于当前列表项的内容范围，因此会错位显示到下一段的开头位置。

只需将插入位置调整到段落标记之前，即可实现文本拼接在列表项末尾、不影响其他段落的效果，代码如下：

Sub AppendTextToListItemEnd()
    Const TARGET_TEXT As String = "aaaaaaa" ' 修改为需要追加的自定义文本
    Dim curList As List
    Dim curPara As Paragraph
    
    For Each curList In ActiveDocument.Lists
        For Each curPara In curList.ListParagraphs
            ' 复制段落范围，将范围终点前移1位以排除末尾段落标记
            With curPara.Range.Duplicate
                .End = .End - 1
                .InsertAfter TARGET_TEXT
            End With
        Next
    Next
End Sub

• 操作Duplicate生成的范围副本，不会修改原段落对象的范围属性，可避免引发列表格式错乱
• 该逻辑兼容多级嵌套列表，所有层级的列表项都会被正确处理，列表外的普通正文段落不会被改动
• 追加的文本会自动匹配对应列表项的原有字体、段落格式，无需额外设置格式

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