如何批量给1-15题前加括号

zzpsx

如何批量给1-15题前加括号.zip (7.74 KB, 下载次数: 20)

2018-4-17 07:34 上传

点击文件名下载附件

dengjq2000

我一般就是复制 - 粘贴。期待好的方法出现。

zzpsx

Sub 完形题号前加括号()
    With ActiveDocument.Content.Find
        Do While .Execute("^13[0-9]{1,}.", , , 1)
            With .Parent
                '.Select
                .Start = .Start + 1
                .InsertBefore "(  )"
                .Collapse 0
            End With
        Loop
    End With
End Sub



有个朋友帮我写了一个，很好。不过对自动编号的题号前好像还不能加括号，可能代码无法识别自动编号。

kqbt

可以用 Ctrl + H 进行替换
查找内容：[0-9]@.
替 换 为：(  )^&
勾选“使用通配符”，然后“全部替换”。

zzpsx

kqbt 发表于 2018-4-17 08:41
可以用 Ctrl + H 进行替换
查找内容：[0-9]@.
替 换 为：(  )^&

谢谢，不过对自动编号的序号好像不可以批量加括号。

kqbt

zzpsx 发表于 2018-4-17 09:56
谢谢，不过对自动编号的序号好像不可以批量加括号。

若是自动编号，可以通过自定义编号格式，在编号之前加入"(  )"（不含引号），这样也可达到目的。

413191246se

Sub test()
    With ActiveDocument.Content.Find
        .Parent.ListFormat.ConvertNumbersToText
        .Execute "(^13)([0-9]{1,}.)", , , 1, , , , , , "\1(  )\2", 2
        .Execute "^t", , , 0, , , , , , "", 2
    End With
End Sub

tangqingfu

谢谢413191246se兄分享！

阿宝剑见

谢谢分享，帮大忙了!!!!!!!!!!!!!!!!!

thunor

这个应该肯定可以，而且前面就算是域也可以搞定。只是还可以一开始接受一个加入空括号的个数。