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

z9bhd

相见是缘8 发表于 2021-4-11 11:02
老师好！
测试这个代码，没任何反应！

可以截屏看一下吗？在我这测试没发现问题

相见是缘8

z9bhd 发表于 2021-4-11 12:10
可以截屏看一下吗？在我这测试没发现问题

就是运行代码后，没有任何的替换！

z9bhd

相见是缘8 发表于 2021-4-11 13:38
就是运行代码后，没有任何的替换！

应该是你操作方法不对？因为我这边已反复测试没发现问题

相见是缘8

z9bhd 发表于 2021-4-11 13:39
应该是你操作方法不对？因为我这边已反复测试没发现问题

老师，我是按正常的操作反复试了，操作时有什么特殊的要求吗？

z9bhd

相见是缘8 发表于 2021-4-11 14:32
老师，我是按正常的操作反复试了，操作时有什么特殊的要求吗？

截屏看一下，代码复制在什么地方

z9bhd

相见是缘8 发表于 2021-4-11 14:32
老师，我是按正常的操作反复试了，操作时有什么特殊的要求吗？

运行后

相见是缘8

z9bhd 发表于 2021-4-11 15:34
运行后

老师，这几个地方我都试了，替换没有反应！

z9bhd

把代码复制到第4张图片的位置，点击运行按钮再试试，再不行就没招了
Sub lx()
    Dim ar, br, i%, s$
        ar = ThisDocument.Range
        br = Split(ar, "→" & Chr(13))
        For i = 1 To UBound(br)
            If br(i - 1) <> "" Then
                br(i - 1) = Replace(br(i - 1), Chr(13), "")
                br(i - 1) = br(i - 1) & br(i - 1)
            End If
        Next i
        ThisDocument.Range = Join(br, Chr(13))
End Sub

相见是缘8

z9bhd 发表于 2021-4-12 08:17
把代码复制到第4张图片的位置，点击运行按钮再试试，再不行就没招了
Sub lx()
    Dim ar, br, i%, s$

老师，运行后还是没反应。
另外，我刚才发现你 26 楼的截图，测试用的 “附件” 上，字符串后是有箭头的，我测试用的 “附件” 上，字符串后是有箭头的。
我要的是对字符串后没有箭头的替换！

z9bhd

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

难怪没反应，还是你细心