这个正规查找替换，还有优化的方法嘛？

bylandi · 发表于 2025-1-30 21:42

本帖最后由 bylandi 于 2025-1-31 00:56 编辑

论坛的家人们，大家新年好~

个人办公时，时常有类似的中文序号需要删除。
网凑了一段代码，现在是可以执行的。

目前存在疑问：
（1）对未选择的文本则选择整段再执行，这个代码感到疑惑，是否有别的更好的办法？
（2）除了.Replace替换外，是否可以用.Delete来删除被选中的序号，以提高效率，且不会影响格式。

Sub 段落—删除序号()
'快捷键：Alt+X
Dim regex As Object, strNum As String
Set regex = CreateObject("VBScript.RegExp")
If Selection.Type = wdSelectionIP Then
Selection.MoveEndUntil vbCr, wdForward
Selection.MoveStartUntil vbCr, wdBackward
strNum = Selection.Text
Else
strNum = Selection.Text
End If
With regex
.Pattern = "^[（\(]?[一二三四五六七八九十0-9]+[）\)、\.]"
.MultiLine = True
.Global = True
.IgnoreCase = True
Selection.Text = .Replace(strNum, "")
' Selection.HomeKey unit:=wdLine
End With
End Sub

复制代码

zds0616 · 发表于 2025-2-1 09:15

个人看法，代码有缺陷
如果要将自动编号转为手动的，可以直接自动编号转成文本，有相关方法
如果是要删除，也可以遍历自动编号对象进行删除

bylandi · 发表于 2025-2-1 12:34

代码感觉是有些怪的。
不过，我只想实现快速删除这些序号而已。不需要其实功能。

batmanbbs · 发表于 2025-2-1 13:16

你所说的.replace是正则的方法，.delete是.range的方法，本质上并不是一回事。
正则适用于纯文本的内容，对于表格、非嵌入型图形等对象会出现问题，如果要避免这种情况，建议使用遍历每个段落，然后识别段首是否有编号（用^），直接.replace编号。
如果要使用.delete，既可以使用遍历，可以使用查找替换（但是word通配符没有正则强大，遇到表格等情况也需要特殊处理）。

weiyingde · 发表于 2025-2-1 20:15

不提供文档，怎么弄？

weiyingde · 发表于 2025-2-1 20:31

你自己去试一试。代码如下：
Sub test()
With ActiveDocument.Content
.Find.Execute "（[0-9一-十]{1,}）", , , 1, , , , , , "", 2
.Find.Execute "[一-十]{1,}、", , , 1, , , , , , "", 2
.Find.Execute "[0-9]{1,}", , , , , , , , , "", 2
End With
End Sub

bylandi · 发表于 2025-2-1 20:51

batmanbbs 发表于 2025-2-1 13:16
你所说的.replace是正则的方法，.delete是.range的方法，本质上并不是一回事。
正则适用于纯文本的内容， ...

谢谢您的耐心解答，十分谢谢。

因为是逐段手工整理的，所以，不用考虑图表的问题。
因为代表现在也是能用，只是想着，有否别的思路和办法，能优化一下。

bylandi · 发表于 2025-2-1 20:56

这是测试附件，有劳您帮看看。

排版测试_（1）.rar (27.8 KB, 下载次数: 6)

bylandi · 发表于 2025-2-1 23:23

weiyingde 发表于 2025-2-1 20:31
你自己去试一试。代码如下：
Sub test()
With ActiveDocument.Content

十分感谢您的回复，您这个代码是可以实现全文序号的清除。
但是，我只想改进我的那个代码，用来清除选区的序号。

weiyingde · 发表于 2025-2-2 09:43

bylandi 发表于 2025-2-1 23:23
十分感谢您的回复，您这个代码是可以实现全文序号的清除。
但是，我只想改进我的那个代码，用来清除选区 ...

稍加改动，你试试效果。代码如下
Sub test()
With Selection.Range
.Find.Execute "（[0-9一-十]{1,}）", , , 1, , , , , , "", 2
.Find.Execute "[一-十]{1,}、", , , 1, , , , , , "", 2
.Find.Execute "[0-9]{1,}", , ,1 , , , , , , "", 2
End With
End Sub
好用赏朵小花

用户名		自动登录	找回密码
密码			免费注册

[讨论] 这个正规查找替换，还有优化的方法嘛？