ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

EH搜索     
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 Office知识技巧免费学 打造核心竞争力的职场宝典
300集Office 2010微视频教程 Tableau-数据可视化工具 精品推荐-800套精选PPT模板,点击获取 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 Excel VBA经典代码实践指南
查看: 336|回复: 12

[求助] 答案归位无结果,为之奈何?

[复制链接]

TA的精华主题

TA的得分主题

发表于 2020-1-14 17:13 | 显示全部楼层 |阅读模式
一、题目
一、选择题(每小题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

TA的精华主题

TA的得分主题

发表于 2020-1-14 17:24 | 显示全部楼层
可以发一个测试文档吗?

TA的精华主题

TA的得分主题

发表于 2020-1-14 17:41 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-1-14 20:41 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-1-14 20:48 | 显示全部楼层
附件如下,请接收

答案归位.rar

38.54 KB, 下载次数: 13

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-1-14 20:49 | 显示全部楼层
ming0018 发表于 2020-1-14 17:41
([\((])([\))])(^13*)([A-D])^13
\1\4\2\3

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

TA的精华主题

TA的得分主题

发表于 2020-1-15 08:08 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2020-1-15 12:31 | 显示全部楼层
使用 ming0018 老师的通配符放入代码,可以使用的~
==============================
sub d()
ActiveDocument.Content.Find.Execute FindText:="([\((])([\))])(^13*)([A-D])^13", ReplaceWith:="\1\4\2\3", Replace:=wdReplaceAll, MatchWildcards:=True
end sub

评分

参与人数 1鲜花 +2 收起 理由
weiyingde + 2

查看全部评分

TA的精华主题

TA的得分主题

发表于 2020-1-15 12:54 | 显示全部楼层
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

评分

参与人数 2鲜花 +4 收起 理由
cuanju + 2 优秀作品
weiyingde + 2

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-1-15 13:15 | 显示全部楼层
cuanju 发表于 2020-1-15 12:31
使用 ming0018 老师的通配符放入代码,可以使用的~
==============================
sub d()

谢谢,好用。
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关注官方微信,高效办公专列,每天发车

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

GMT+8, 2020-9-30 15:20 , Processed in 0.092698 second(s), 22 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2021 Wooffice Inc.

   

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

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

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