怎样让与自已相同的字符串排在自己的后面（箭头的后面）

z9bhd

相见是缘8 发表于 2021-4-12 09:09
老师，运行后还是没反应。
另外，我刚才发现你 26 楼的截图，测试用的 “附件” 上，字符串后是有箭头的 ...

没有箭头的情况
Sub lx()
    Dim ar, br, i%, s$
        ar = ActiveDocument.Range
        br = Split(ar, Chr(13))
        For i = 1 To UBound(br)
            If br(i - 1) <> "" Then
                br(i - 1) = br(i - 1) & br(i - 1)
            End If
        Next i
        ActiveDocument.Range = Join(br, Chr(13))
End Sub

相见是缘8

z9bhd 发表于 2021-4-12 10:27
没有箭头的情况
Sub lx()
    Dim ar, br, i%, s$

老师，这个OK了！感谢老师！