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

过客fppt

wisnonvv 发表于 2023-8-24 11:39
谢谢大神解答！
运行了宏后，重复的单词保留下了一个，但能不能达到同时删除所有数字，把单词的复数形式 ...

删除所有数字，可以Ctrl+H打开查找替换,输入[0-9]{1,3}^p，按下图操作就行

gwjkkkkk

wisnonvv 发表于 2023-8-24 11:39
谢谢大神解答！
运行了宏后，重复的单词保留下了一个，但能不能达到同时删除所有数字，把单词的复数形式 ...

1.删除所有数字比较简单，参考11楼，2.把单词的复数形式改成单数估计有难度。。。

zhanglei1371

单数直接暴力去除了末尾的s

1. Sub test3()
   
2.      Dim rngContent As Range, aMatch As Object, rng As Range, dic As Object, m&, n&, ar(), i&
   
3.     a = ActiveDocument.Content.Text
   
4.     Set dic = CreateObject("Scripting.Dictionary")
   
5.     With CreateObject("VBScript.RegExp")
   
6.         .Global = True
   
7.         .Pattern = "([a-zA-Z’]+)s(\r)"
   
8.         a = .Replace(a, "$1$2")
   
9.         .Pattern = "([\d]+)"
   
10.         a = .Replace(a, "")
    
11.         .Pattern = "[a-zA-Z’]+"
    
12.         For Each aMatch In .Execute(a)
    
13.             dic(aMatch.Value) = 1
    
14.         Next
    
15.     End With
    
16.     ar = dic.keys
    
17.     For i = 0 To dic.Count - 1
    
18.         strA = strA & ar(i) & vbCr
    
19.     Next
    
20.     ActiveDocument.Range.Text = strA
    
21.      Application.ScreenUpdating = True
    
22. End Sub

复制代码