Word VBA实现行首指定字符替换并在匹配行末尾追加字符

原有查找替换逻辑仅匹配- 文本本身，既没有限定匹配位置为行首，也无法同步修改匹配行的尾部内容，以下两种方案均可直接运行实现需求：

方案1：通配符批量替换（效率最高，无需循环） #

借助Word通配符的位置匹配、分组捕获能力，一次替换即可完成首尾两处修改，推荐优先使用：

Sub BatchReplaceAndAppend()
    Dim docRng As Range
    Set docRng = ActiveDocument.Content
    With docRng.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .MatchWildcards = True ' 开启通配符模式
        .Forward = True
        .Wrap = wdFindStop
        ' 匹配非文档开头的目标行：前接段落标记、行首为"- "，捕获整行内容不含末尾段落标记
        .Text = "(^13)- (*)^13"
        .Replacement.Text = "\1$\2%^13"
        .Execute Replace:=wdReplaceAll
        ' 单独处理文档最开头的目标行（无前置段落标记的边界情况）
        docRng.Collapse wdCollapseStart
        .Text = "- (*)^13"
        .Replacement.Text = "$\1%^13"
        .Execute Replace:=wdReplaceOne
    End With
End Sub

运行后只会匹配段落起始位置的- ，段落中间出现的- 不会被改动，匹配行尾部会自动追加%，不会产生多余换行。

方案2：逐段落判断修改（逻辑直观易调整） #

如果需要后续扩展更复杂的判断逻辑，可以遍历所有段落逐一校验修改，核心是将追加内容插入到段落标记之前，避免出现多余换行：

Sub ModifyMatchedParagraph()
    Dim para As Paragraph
    Dim operateRng As Range
    For Each para In ActiveDocument.Paragraphs
        ' 校验段落前两个字符是否为目标的"- "
        If para.Range.Characters.Count >= 2 And Left(para.Range.Text, 2) = "- " Then
            Set operateRng = para.Range
            ' 替换行首的"- "为"$"
            operateRng.SetRange Start:=operateRng.Start, End:=operateRng.Start + 2
            operateRng.Text = "$"
            ' 定位到段落标记前，插入尾部的"%"
            operateRng.Collapse wdCollapseEnd
            operateRng.MoveEnd wdCharacter, -1 ' 偏移1位跳过段落标记
            operateRng.Text = "%"
        End If
    Next
End Sub

之前InsertAfter出现多余换行的原因 #

直接对段落范围调用InsertAfter时，插入的内容会被放在段落标记之后，Word会自动为这部分内容生成新的段落标记，最终表现为新增换行，只要把插入点偏移到段落标记之前再写入内容即可规避该问题。

内容的提问来源于stack exchange，提问作者g-pane