如何把任意题号替换为1开始？

zzpsx

任意题号，如

（  ）35.

（  ）36.

（  ）37.

（  ）38.

（  ）39.

（  ）40.

（  ）41.

如何写代码，将上述题号改为1开始的题号

（  ）1.

（  ）2.

（  ）3.

（  ）4.

（  ）5.

（  ）6.

（  ）7.

注意文本不具自动编号条件，题号是手动输入的。

ming0018

1. Sub 自动改编号test()
   
2.     Dim doc As Document, n%
   
3.     Set doc = ActiveDocument: n = 1
   
4.     With doc.Content.Find
   
5.         .Text = "(（  ）)[0-9]{1,}(\.)"
   
6.         .MatchWildcards = True
   
7.         Do While .Execute(replacewith:="\1" & n & "\2", Replace:=wdReplaceOne)
   
8.             n = n + 1
   
9.             .Parent.Start = .Parent.End
   
10.         Loop
    
11.     End With
    
12. End Sub

复制代码

02761752696

ming0018 发表于 2018-11-26 14:34

学习  ，好像不起作用

ming0018

02761752696 发表于 2018-11-26 14:49
学习  ，好像不起作用

注意下，文档里的括号是全角的。

ming0018

02761752696 发表于 2018-11-26 14:49
学习  ，好像不起作用

括号中间 还有两个空格

02761752696

ming0018 发表于 2018-11-26 14:56
括号中间 还有两个空格

能传个附件参考下吗？

ming0018

02761752696 发表于 2018-11-26 15:44
能传个附件参考下吗？

我也是copy楼主的。

02761752696

ming0018 发表于 2018-11-26 15:47
我也是copy楼主的。

我试了全角也不行，word  程序  不太懂，找不到问题，请指点，谢谢

02761752696

ming0018 发表于 2018-11-26 15:47
我也是copy楼主的。

我也是复制楼主的，呵呵

ming0018

02761752696 发表于 2018-11-26 15:49
我试了全角也不行，word  程序  不太懂，找不到问题，请指点，谢谢

那你用我上传的附件试一下