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

z9bhd

相见是缘8 发表于 2021-4-10 06:34
老师好！
试了好像不成，想要9楼的效果，不知可否实现？

我这没问题

相见是缘8

z9bhd 发表于 2021-4-10 08:36
我这没问题

老师好！
我试了好多次，都会少了一个字，如下所示：

人人
生地生地
熟地熟地
天门天门
麦门麦门
白白
苍苍
甘甘
黄黄
远远
菖菖
……

z9bhd

相见是缘8 发表于 2021-4-10 11:33
老师好！
我试了好多次，都会少了一个字，如下所示：

我这里测试多次没发现问题呀，不知道是什么原因

tcdatongye

查找[一-龡]{1,}替换^&^&

相见是缘8

tcdatongye 发表于 2021-4-10 17:41
查找[一-龡]{1,}替换^&^&

你的 “表达式” 完美！感谢老师！

相见是缘8

z9bhd 发表于 2021-4-10 17:28
我这里测试多次没发现问题呀，不知道是什么原因

老师好！
我用的电脑是公司的电脑，系统是XP，office是2003版的，和这个有关系吗？
因公司的仓储软件绑定，只能用它们！

z9bhd

相见是缘8 发表于 2021-4-11 06:42
老师好！
我用的电脑是公司的电脑，系统是XP，office是2003版的，和这个有关系吗？
因公司的仓储软件 ...

应该和系统没关系，人想达到楼主的效果方法有很多，我只是随便写了一个抛砖引玉，下面我再改一下你试试看中不中
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

tcdatongye

如果喜欢vba：

1. Selection.StartOf unit:=wdStory
   
2. With Selection.Find
   
3.   .MatchWildcards = True
   
4.   .Text = "[一-龡]{1,}"
   
5.   .Replacement.Text = "^&^&"
   
6.   .Execute Replace:=wdReplaceAll
   
7. End With

复制代码

相见是缘8

z9bhd 发表于 2021-4-11 09:22
应该和系统没关系，人想达到楼主的效果方法有很多，我只是随便写了一个抛砖引玉，下面我再改一下你试试看 ...

老师好！
测试这个代码，没任何反应！

相见是缘8

tcdatongye 发表于 2021-4-11 10:17
如果喜欢vba：

感谢老师多次帮忙！感谢！