如何按顺序替换题号？

yangtaowo1974

有如下选择题：

（练习）.在计算机发展史中，奠定人工智能的计算机科学家是（    ）。
        A.图灵        B.布尔        C.冯·诺依曼        D.爱因斯坦
（练习）.电子计算机的奠基人是美籍匈牙利科学家冯·诺依曼和英国科学家（    ）。
        A.霍夫        B.弗金        C.布尔        D.图灵

（练习）.提出“存储程序”的计算机科学家是（    ）。

       A.图灵        B.弗金        C.冯•诺依曼      D.霍夫

希望通过替换把（练习）换成按顺序的题号如下：

1.在计算机发展史中，奠定人工智能的计算机科学家是（    ）。
        A.图灵        B.布尔        C.冯·诺依曼        D.爱因斯坦
2.电子计算机的奠基人是美籍匈牙利科学家冯·诺依曼和英国科学家（    ）。
        A.霍夫        B.弗金        C.布尔        D.图灵

3.提出“存储程序”的计算机科学家是（    ）。

       A.图灵        B.弗金        C.冯•诺依曼      D.霍夫

请问大家如何替换？

daibao88

在文档中插入文档部件、域、自动编号，
复制这个自动编号
查找（练习），替换^c,勾选使用通配符。

cuanju

Sub dd()
    Set oRng = ActiveDocument.Range(0, 0)
    With oRng
        .Fields.Add Range:=ActiveDocument.Range(0, 0), Text:="LISTNUM LegalDefault \l 1"
        .End = .End + 1
        .Select
        .Cut
    End With
    ActiveDocument.Content.Find.Execute FindText:="（练习）.", ReplaceWith:="^c", Replace:=wdReplaceAll, MatchWildcards:=True
    ActiveDocument.Content.Fields.Unlink '域代码转为值
End Sub

悠哉游哉

最笨的方法，样式里设定一个编号，搜索（练习）替换为编号

sqhsqhli

Sub eeeeeeee()
Dim i As Integer
i = 1
With ActiveDocument.Content.Find
.MatchWildcards = True
  .Text = "（练习）"
  Do While .Execute
.Parent = CStr(i)
.Parent.Collapse
i = i + 1
Loop
End With
End Sub