求教大神，如何删除重复单词和所有数字

wisnonvv

1，如何删除所有重复的单词只保留一个（包括大小写单词）


2，如何删除所有数字

3，如何替换掉所有单词的复数为单数
谢谢大神！

vbee

用EXCEL公式处理了一下，请再人工核对

wisnonvv

vbee 发表于 2023-8-23 13:57
用EXCEL公式处理了一下，请再人工核对

大神，有没有可以在word中处理的方法？有很多本词书要处理，excel的方法我也没学会

gwjkkkkk

Sub test3()
    Dim rngContent As Range, aMatch As Object, rng As Range, dic As Object, m&, n&, ar(), i&
   
    Application.ScreenUpdating = False
    Set rngContent = ActiveDocument.Content
    a = rngContent.Text
    Set dic = CreateObject("Scripting.Dictionary")
    With CreateObject("VBScript.RegExp")
        .Pattern = "[a-zA-Z’]+"
        .Global = True
        For Each aMatch In .Execute(rngContent.Text)
            m = aMatch.FirstIndex: n = aMatch.Length
            Set rng = ActiveDocument.Range(rngContent.Start + m, rngContent.Start + m + n)
            If Not dic.Exists(LCase(rng.Text)) Then
                dic(LCase(rng.Text)) = ""
            Else
                r = r + 1
                ReDim Preserve ar(1 To r)
                Set ar(r) = rng
            End If
        Next
    End With
    If r Then
       For i = 1 To UBound(ar)
           ar(i).Delete
       Next i
    End If
    Application.ScreenUpdating = True
End Sub

wisnonvv

gwjkkkkk 发表于 2023-8-23 23:15
Sub test3()
    Dim rngContent As Range, aMatch As Object, rng As Range, dic As Object, m&, n&, ar( ...

大神，这是什么吗？是用宏吗？请问怎么用宏吗？小白一名

gwjkkkkk

wisnonvv 发表于 2023-8-24 09:09
大神，这是什么吗？是用宏吗？请问怎么用宏吗？小白一名

在待处理的文档中插入模块，将代码复制粘贴，运行就行了

过客fppt

gwjkkkkk 发表于 2023-8-23 23:15
Sub test3()
    Dim rngContent As Range, aMatch As Object, rng As Range, dic As Object, m&, n&, ar( ...

gwjkkkkk老师太厉害了，我复制到WPS中运行完全准确，对正则表达式的应用我还不是很理解，请问有这方面的资料推荐吗

gwjkkkkk

我参考的资料都是论坛中学的，你可以搜一下。。。

wisnonvv

gwjkkkkk 发表于 2023-8-24 09:13
在待处理的文档中插入模块，将代码复制粘贴，运行就行了

谢谢大神解答！
运行了宏后，重复的单词保留下了一个，但能不能达到同时删除所有数字，把单词的复数形式改成单数的目标呢？

过客fppt

gwjkkkkk 发表于 2023-8-24 11:12
我参考的资料都是论坛中学的，你可以搜一下。。。

好的，谢谢