请求修复Word宏：将quote poet样式诗歌段落标记替换为换行符

需求说明 #

将所有应用quote poet样式的诗歌片段中，除最后一行外的段落标记（^p）替换为换行符（^l）；仅一行的诗歌片段不做修改。

修复后的宏代码 #

Sub ConvertParaBreaksToLineBreaksInPoetry()
    Dim doc As Document
    Dim para As Paragraph
    Dim startPara As Paragraph
    Dim poetryRange As Range
    
    Set doc = ActiveDocument
    
    ' 遍历所有段落，定位连续的quote poet段落块
    Set para = doc.Paragraphs(1)
    Do While para Is Not Nothing
        ' 找到连续块的起始段落
        If para.Style = doc.Styles("quote poet") Then
            Set startPara = para
            ' 延伸至连续块的最后一个段落
            Do While para.Next Is Not Nothing And para.Next.Style = doc.Styles("quote poet")
                Set para = para.Next
            Loop
            
            ' 仅当块内包含多行时执行替换
            If para.Range.End - startPara.Range.Start > startPara.Range.Characters.Count Then
                ' 定义替换范围：从块开头到最后一段的开头（保留最后一个段落标记）
                Set poetryRange = doc.Range(startPara.Range.Start, para.Range.Start)
                With poetryRange.Find
                    .ClearFormatting
                    .Text = "^p"
                    .Replacement.Text = "^l"
                    .Forward = True
                    .Wrap = wdFindStop
                    .Format = False
                    .Execute Replace:=wdReplaceAll
                End With
            End If
        End If
        ' 移动到下一段
        Set para = IIf(para.Next Is Nothing, Nothing, para.Next)
    Loop
End Sub

原代码问题分析 #

1. 嵌套循环（Do+For Each Paragraph）逻辑混乱，导致重复处理段落
2. 依赖Selection光标操作，容易因光标位置变化引发错误
3. 替换逻辑未精准限定在连续诗歌段落块内，可能误修改其他内容

改进思路 #

• 用Range对象替代Selection，避免光标跳转带来的不稳定
• 先定位连续的quote poet段落块，确保只处理同一诗歌片段
• 仅对多行诗歌块执行替换，跳过单行片段
• 精准控制替换范围，保留最后一个段落标记

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