如何在word中题号后面插入题型

zqb555 · 发表于 2022-2-8 12:33

本帖最后由 zqb555 于 2022-2-8 12:34 编辑

1.周恩来在1956年1月召开的关于知识分子问题的会议上，发出（）号召。

A．向现代化进军

B．向现代科学进军

C．向共产主义进军

2.中华人民共和国首次以五大国之一的身份参加讨论国际问题的会是（）。

A．万隆会议

B．日内瓦会议

C．四国外长会议

3.中华人民共和国第一部宪法通过的时间是（）。

A．1949年10月

B．1954年9月

C．1956年8月

................

转换后的变成如下效果：

1.【单选题】周恩来在1956年1月召开的关于知识分子问题的会议上，发出（）号召。

A．向现代化进军

B．向现代科学进军

C．向共产主义进军

2.【单选题】中华人民共和国首次以五大国之一的身份参加讨论国际问题的会是（）。

A．万隆会议

B．日内瓦会议

C．四国外长会议

3.【单选题】中华人民共和国第一部宪法通过的时间是（）。

A．1949年10月

B．1954年9月

C．1956年8月

............

thunor · 发表于 2022-2-9 07:33

你是在题号后只插入 “【单选题】”这几个字对吧？

zqb555 · 发表于 2022-2-9 08:52

thunor 发表于 2022-2-9 07:33
你是在题号后只插入 “【单选题】”这几个字对吧？

是的，题目太多，想要批量插入。

zqb555 · 发表于 2022-2-9 09:15

zqb555 发表于 2022-2-9 08:52
是的，题目太多，想要批量插入。

用替换可以吗？

thunor · 发表于 2022-2-9 09:17

Sub ADDsChoice()
With ActiveDocument.Content.Find
                  .ClearFormatting '清除格式设置
                  With .Replacement '替换条件
                     .ClearFormatting '清除格式设置
                  End With
                  .Execute FindText:="(^13)([0-9]{1,3})([.])", ReplaceWith:="\1\2．【单选题】", Format:=True, MatchWildcards:=True, Replace:=wdReplaceAll
End With

End Sub

zqb555 · 发表于 2022-2-9 09:58

thunor 发表于 2022-2-9 09:17
Sub ADDsChoice()
With ActiveDocument.Content.Find
.ClearFormatting '清除格式 ...

感谢大神，非常好用！！！

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

[求助] 如何在word中题号后面插入题型