关于Word删除重复的问题

常扬帆

按说删除重复是cnbook的强项，但是cnbook不允许不同字体同台，所以此重任只能留给Word。详情见附件，万分感谢！

batmanbbs

？？？我记得上次不是已经编写过删除重复段落的代码呀

常扬帆

batmanbbs 发表于 2024-1-4 23:08
？？？我记得上次不是已经编写过删除重复段落的代码呀

实在对不起，人老人，搬不得家！再次感谢您！那么只剩下删除重复字了。
我们同志们在困难的时候有的人不定就是一种羡慕反过来许多人就接受不了

batmanbbs

常扬帆 发表于 2024-1-5 07:10
实在对不起，人老人，搬不得家！再次感谢您！那么只剩下删除重复字了。
我们同志们在困难的时候有的人不 ...

我们同志们在困难的时候有的人不定就是一种羡慕反过来许多人就接受不了

你这个例子没有看明白哪里重复了

常扬帆

batmanbbs 发表于 2024-1-5 13:57
我们同志们在困难的时候有的人不定就是一种羡慕反过来许多人就接受不了

你这个例子没有看明白哪里重复 ...

您好！重复字，我用颜色标注了，就是两个或者N个相同的字，只留一个。麻烦您了！谢谢！

batmanbbs

典型的叠字查找替换，继续选否，多执行几次，直到替换为0
PS：如果限定在一个段落中，需要先查找*^13限定在一个段落中

常扬帆

batmanbbs 发表于 2024-1-5 23:33
典型的叠字查找替换，继续选否，多执行几次，直到替换为0
PS：如果限定在一个段落中，需要先查找*^13限定 ...

方法已熟练掌握，效果很好，衷心感谢您！

过客fppt

VBA实现的方法：

效果

代码

Sub 选中内容字符去重()
    Dim arr, str, r
    arr = 每个字符保持进数组(Selection.Range.text)
    arr = 数组去重(arr)
    For Each r In arr
            str = str & r
    Next
    Selection.Range.text = str
End Sub
Function 每个字符保持进数组(str As String)
    Dim inputString As String
    Dim characters() As String
    Dim i As Integer
   
    inputString = str
   
    ReDim characters(1 To Len(inputString))
   
    For i = 1 To Len(inputString)
        characters(i) = mid(inputString, i, 1)
    Next i
    每个字符保持进数组 = characters
End Function

Function 数组去重(arr)
    Dim i&, s, keys
    Dim dic
    Set dic = CreateObject("scripting.dictionary")
    For i = 1 To UBound(arr) '去重
        If arr(i) <> "" Then
            If Not dic.Exists(arr(i)) Then dic.Add arr(i), Nothing
        End If
    Next
    ReDim arr(0 To dic.count - 1)
    keys = dic.keys
    For i = 0 To dic.count - 1
        arr(i) = keys(i)
    Next
    数组去重 = arr
End Function

常扬帆

过客fppt 发表于 2024-1-6 09:57
VBA实现的方法：

效果

请问您：我的怎么不行呢？

常扬帆

常扬帆 发表于 2024-1-6 14:07
请问您：我的怎么不行呢？

我的是office2016