答案归位无结果，为之奈何？

weiyingde

一、题目
一、选择题(每小题2分，共22分)
1.学习了《我与社会》一课后，同学们讨论个人与社会的关系问题，以下观点正确的是()
A小红:宇航员在太空独立生存，说明了个人也能离开社会。
B.小张:“狼孩的故事说明人在狼群中也能完成社会化。
C小丽:我喜欢一个人独处，感觉个人生活与社会的发展没什么关系。
D.小华:鲁滨逊的故事说明个人的生存不能离开社会。
D
2.在丽水有一只特殊的团队，成员来自各行各业，他们主动放弃休息时间，走进敬老院，走进乡镇。为人们免费提供家电维修、测血压、法律服务等爱心活动，他们为此被当地人称为“丽水雷锋团”。“丽水雷锋田”的事迹，说明亲社会行为()
①授人玫瑰，手留余香。
②有利于遺健康的人格。
③为了获得他人的赞誉。
④能够获得他人的接纳和认可。
A.①③④    B.②③④    C.①②④    D.①②③
C
3.某校初中学生使用QQ与课外阅读情况调查表：
针对调查表中所反映的现象，你给中学生的积极建议是()
①要处理好上同聊天与读书的关系，养成多读书、读好书的习惯。
②培养广泛的兴趣爱好，积板参加丰富的课外活动。
③合理利用网络，学会理性利用现代媒介参与社会公共生活
④要提高自我拉制能力，远离离络。
A①②③      B①③④    C.①②④    D.②③④
年份        有QQ号人数        空闲时间聊天人数        空闲时间读书人数
2016年        136人        101人        653人
2017年        371人        289人        435人
2018年        587人        486人        316人
A

二、模拟效果
一、选择题(每小题2分，共22分)
1.学习了《我与社会》一课后，同学们讨论个人与社会的关系问题，以下观点正确的是(D)
A小红:宇航员在太空独立生存，说明了个人也能离开社会。
B.小张:“狼孩的故事说明人在狼群中也能完成社会化。
C小丽:我喜欢一个人独处，感觉个人生活与社会的发展没什么关系。
D.小华:鲁滨逊的故事说明个人的生存不能离开社会。
2.在丽水有一只特殊的团队，成员来自各行各业，他们主动放弃休息时间，走进敬老院，走进乡镇。为人们免费提供家电维修、测血压、法律服务等爱心活动，他们为此被当地人称为“丽水雷锋团”。“丽水雷锋田”的事迹，说明亲社会行为(C)
①授人玫瑰，手留余香。
②有利于遺健康的人格。
③为了获得他人的赞誉。
④能够获得他人的接纳和认可。
A.①③④    B.②③④    C.①②④    D.①②③
3.某校初中学生使用QQ与课外阅读情况调查表：
针对调查表中所反映的现象，你给中学生的积极建议是(A)
①要处理好上同聊天与读书的关系，养成多读书、读好书的习惯。
②培养广泛的兴趣爱好，积板参加丰富的课外活动。
③合理利用网络，学会理性利用现代媒介参与社会公共生活
④要提高自我拉制能力，远离离络。
A①②③      B①③④    C.①②④    D.②③④
年份        有QQ号人数        空闲时间聊天人数        空闲时间读书人数
2016年        136人        101人        653人
2017年        371人        289人        435人
2018年        587人        486人        316人

三、代码
Sub 答案归位()
ActiveDocument.Content.Find.Execute "([\)）])(^13)(*)([A-D]@)(^13)", , , 1, , , , , "\4\1\2\3", 2
End Sub

ming0018

可以发一个测试文档吗？

ming0018

([\(（])([\)）])(^13*)([A-D])^13
\1\4\2\3

weiyingde

ming0018 发表于 2020-1-14 17:41
([\(（])([\)）])(^13*)([A-D])^13
\1\4\2\3

谢谢你，还是没有结果。

weiyingde

附件如下，请接收

weiyingde

ming0018 发表于 2020-1-14 17:41
([\(（])([\)）])(^13*)([A-D])^13
\1\4\2\3

福建已经上传，请大侠看一看。

ming0018

请使用通配符查找替换

cuanju

使用 ming0018 老师的通配符放入代码，可以使用的~
==============================
sub d()
ActiveDocument.Content.Find.Execute FindText:="([\(（])([\)）])(^13*)([A-D])^13", ReplaceWith:="\1\4\2\3", Replace:=wdReplaceAll, MatchWildcards:=True
end sub

tcdatongye

Sub 查找替换()
Set dic = VBA.CreateObject("scripting.dictionary")
Selection.StartOf unit:=wdStory
With Selection.Find
  .MatchWildcards = True
  .Forward = True
  .Wrap = wdFindStop
  .Text = "[A-Z]^13"
  Do While .Execute
   dic(dic.Count + 1) = Left(.Parent.Text, 1)
   Selection.Delete
Loop
End With
Selection.StartOf unit:=wdStory
With Selection.Find
.Text = "([\(（])([\)）])"
  Do While .Execute
     n = n + 1
     .Replacement.Text = "\1" & dic(n) & "\2"
     .Execute Replace:=wdReplaceOne
     Selection.Collapse
  Loop
End With
MsgBox "有数据：" & dic.Count & "，填充了：" & n
End Sub

weiyingde

cuanju 发表于 2020-1-15 12:31
使用 ming0018 老师的通配符放入代码，可以使用的~
==============================
sub d()

谢谢，好用。