ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 764|回复: 4

[求助] 如何按顺序替换题号?

[复制链接]

TA的精华主题

TA的得分主题

发表于 2020-9-17 10:10 | 显示全部楼层 |阅读模式
有如下选择题:

(练习).在计算机发展史中,奠定人工智能的计算机科学家是(    )。
        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.霍夫

请问大家如何替换?



TA的精华主题

TA的得分主题

发表于 2020-9-17 11:35 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
在文档中插入文档部件、域、自动编号,
复制这个自动编号
查找(练习),替换^c,勾选使用通配符。

评分

2

查看全部评分

TA的精华主题

TA的得分主题

发表于 2020-9-17 13:21 | 显示全部楼层
本帖最后由 cuanju 于 2020-9-17 15:14 编辑

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

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2020-9-18 06:45 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
最笨的方法,样式里设定一个编号,搜索(练习)替换为编号

TA的精华主题

TA的得分主题

发表于 2020-10-2 10:02 | 显示全部楼层
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

评分

1

查看全部评分

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-29 21:03 , Processed in 0.046364 second(s), 16 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表