VBA模块， Word中有关定位选择后对选中的内容进行查找替换

Attribute VB_Name = "模块1"
Sub 宏1()
单选
多选
判断
End Sub
Sub 选择(s1 As String, s2 As String)
Dim S, E
Dim st
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormattingWith Selection.Find.ClearFormatting.MatchWholeWord = True.MatchCase = False.Wrap = wdFindContinuet = .Execute(FindText:=s1)End WithIf t Then S = Selection.StartSelection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
If s2 <> "结束" Thenst = "二 、多选"With Selection.Find.ClearFormatting.MatchWholeWord = True.MatchCase = False.Wrap = wdFindContinuet = .Execute(FindText:=s2)End WithIf t Then E = Selection.EndElseSelection.EndKey Unit:=wdStory
End IfSelection.Start = S
Selection.End = EEnd Sub
Sub 单选()
Call 选择("一 、单选题", "二 、多选")Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormattingWith Selection.Find
.Text = "^l^l第"
.Replacement.Text = "^l单选题@第"
.Forward = True
.Wrap = wdFindStop
End With
Selection.Find.Execute Replace:=wdReplaceAllEnd Sub
'单选题@第6题[134601]Sub 多选()
Call 选择("二 、多选", "三 、判断")Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormattingWith Selection.Find
.Text = "^l^l第"
.Replacement.Text = "^l多选题@第"
.Forward = True
.Wrap = wdFindStop
End With
Selection.Start = ActiveDocument.Bookmarks("多开").Start
Selection.End = ActiveDocument.Bookmarks("判开").End
Selection.Find.Execute Replace:=wdReplaceAllEnd SubSub 判断()
Call 选择("三 、判断", "结束")Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormattingWith Selection.Find
.Text = "^l^l第"
.Replacement.Text = "^l判断题@第"
.Forward = True
.Wrap = wdFindStop
End With
Selection.Start = ActiveDocument.Bookmarks("判开").Start
Selection.End = ActiveDocument.Bookmarks("结束").End
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

2月16日
一 、单选题第6题[134601]在电力系统正常状况下，用户受电端的电压最大允许偏差不应超过额定值的( )。A：10%B：2%C：5%D：7%本题得分：0 分您的答案：D正确答案：A所属专业/工种：变电值班员 /技能鉴定（理论）答案解析：第11题[134958]分析和计算复杂电路的基本依据是( )。A：基尔霍夫定律B：基尔霍夫定律和欧姆定律C：欧姆定律D：节点电压法本题得分：0 分您的答案：A正确答案：B所属专业/工种：变电值班员 /技能鉴定（理论）答案解析：第14题[134976]反映开关经受短路电流引起的热效应能力的技术参数是( )。A：额定峰值耐受电流B：额定开断电流C：额定短时耐受电流D：额定短路开合电流本题得分：0 分您的答案：D正确答案：C所属专业/工种：变电值班员 /技能鉴定（理论）答案解析：第16题[134985]对调相机作用描述错误的是( )。A：向系统输送无功功率B：吸收系统无功功率C：改善功率因数D：降低网络中的损耗本题得分：0 分您的答案：B正确答案：D所属专业/工种：变电值班员 /技能鉴定（理论）答案解析：第22题[135005]电网发生( )时，会产生电压崩溃。A：无功功率严重不足B：有功功率严重不足C：系统发生短路D：系统受到小的干扰本题得分：0 分您的答案：B正确答案：A所属专业/工种：变电值班员 /技能鉴定（理论）答案解析：第32题[133625]电力系统电压互感器的二次侧额定电压均为（ ）。A：220VB：380VC：36VD：100V本题得分：0 分您的答案：B正确答案：D所属专业/工种：变电值班员 /岗位（理论）答案解析：第33题[133657]强迫油循环变压器的潜油泵启动应逐台启用，延时间隔应在（ ）s以上，以防止气体继电器误动。A：5B：30C：60D：180本题得分：0 分您的答案：D正确答案：B所属专业/工种：变电值班员 /岗位（理论）答案解析：第37题[133729]气体绝缘互感器运行时，若压力表偏出绿色正常压力区时，应引起注意，并及时按制造厂要求（ ）合格的SF6新气。A：带电补充B：停电补充C：二者皆可D：无需补充本题得分：0 分您的答案：C正确答案：B所属专业/工种：变电值班员 /岗位（理论）答案解析：第39题[133742]在系统中性点（ ）方式时，接地故障电流最大。A：直接接地B：经电阻接地C：经消弧电抗器接地D：不接地本题得分：0 分您的答案：D正确答案：A所属专业/工种：变电值班员 /岗位（理论）答案解析：第40题[133773]端子箱、机构箱、配电箱、检修电源箱、二次屏柜的防尘、防潮、防火维护，每（ ）维护不少于1次。A：周B：月C：季D：年本题得分：0 分您的答案：B正确答案：C所属专业/工种：变电值班员 /岗位（理论）答案解析：第46题[134491]口对口人工呼吸时，先连续大口吹气两次，每次( )。A：1.5～2.5sB：1～1.5sC：1～2sD：2～3s本题得分：0 分您的答案：A正确答案：B所属专业/工种：变电值班员 /技能鉴定（技能）答案解析：第54题[134874]SF6断路器及GIS组合电器绝缘下降的主要原因是由于( )的影响。A：SF6中水分B：SF6比重C：SF6气体杂质D：SF6设备绝缘件本题得分：0 分您的答案：B正确答案：A所属专业/工种：变电值班员 /技能鉴定（技能）答案解析：第57题[134878]定时限过流保护动作值按躲过线路( )电流整定。A：出口短路B：平均负荷C：最大负荷D：末端短路本题得分：0 分您的答案：D正确答案：C所属专业/工种：变电值班员 /技能鉴定（技能）答案解析：第58题[134880]电容器组的过流保护反映电容器的( )故障。A：内部B：双星形C：外部短路D：相间本题得分：0 分您的答案：A正确答案：C所属专业/工种：变电值班员 /技能鉴定（技能）答案解析：第64题[134910]电压互感器的一、二、开口三角侧，( )需要接地。A：一次侧B：三次侧C：一、二、开口三角侧D：二次侧本题得分：0 分您的答案：D正确答案：C所属专业/工种：变电值班员 /技能鉴定（技能）答案解析：第65题[134914]在高压回路工作，需要拆除部分接地线应征得( )的许可，工作完毕后立即恢复。A：值班负责人B：工作许可人C：工作负责人D：运行人员本题得分：0 分您的答案：B正确答案：D所属专业/工种：变电值班员 /技能鉴定（技能）答案解析：第66题[134921]110kV变压器有载装置的调压规定每天不超过( )次，每次调节间隔的时间不少于1minA：10B：15C：20D：5本题得分：0 分您的答案：B正确答案：A所属专业/工种：变电值班员 /技能鉴定（技能）答案解析：第75题[134122]原则上（ ）kV及以上电压等级母线不允许无母线保护运行。A：110B：220C：330D：500本题得分：0 分您的答案：A正确答案：B所属专业/工种：变电值班员 /岗位（技能）答案解析：第77题[134130]500kV变压器低压侧复压过流第1时限动作后跳开（ ）。A：均跳开三侧B：高压侧跳三侧，中、低压侧跳本侧C：高压侧跳本侧，中、低压侧跳三侧D：跳低压侧主开关本题得分：0 分您的答案：B正确答案：D所属专业/工种：变电值班员 /岗位（技能）答案解析：第84题[163615]倒闸操作由( )填用操作票。A：负责人B：操作人员C：监护人D：班站长本题得分：0 分您的答案：C正确答案：B所属专业/工种：新安规 /变电部分答案解析：第87题[163652]用绝缘棒拉合隔离开关(刀闸)、高压熔断器或经传动机构拉合断路器(开关)和隔离开关(刀闸)，均应（ ）。A：戴线手套B：戴绝缘手套C：戴护目眼镜D：穿防电弧服本题得分：0 分您的答案：A正确答案：B所属专业/工种：新安规 /变电部分答案解析：第89题[163701]用计算机生成或打印的工作票应使用统一的票面格式，由( )审核无误，手工或电子签名后方可执行。A：工作许可人B：工作负责人C：工作票签发人D：专责监护人本题得分：0 分您的答案：B正确答案：C所属专业/工种：新安规 /变电部分答案解析：第98题[163867]在室外高压设备上工作，应在工作地点四周装设围栏，其出入口要围至临近道路旁边，并设有( )的标示牌。A：“在此工作！”B：“从此进出！”C：“止步，高压危险！”D：“从此上下！”本题得分：0 分您的答案：C正确答案：B所属专业/工种：新安规 /变电部分答案解析：第99题[163916]带电作业所使用绝缘承力工具、绝缘绳索的最小有效绝缘长度为：110kV( )m，66kV( )m。A：1.0；0.6B：1.3；0.7C：1.3；0.6D：1.0；0.7本题得分：0 分您的答案：B正确答案：D所属专业/工种：新安规 /变电部分答案解析：第100题[163939]等电位作业人员在绝缘梯上作业或者沿绝缘梯进入强电场时，其与接地体和带电体两部分间隙所组成的组合间隙不准小于：110kV（ ）m 。A：1B：1.2C：1.5D：1.8本题得分：0 分您的答案：C正确答案：B所属专业/工种：新安规 /变电部分答案解析：第101题[163959]带电断、接空载线路时，如使用消弧绳，则其断、接的空载线路的长度不应大于表10规定，且作业人员与断开点应保持（ ）m以上的距离。A：2B：3C：4D：5本题得分：0 分您的答案：B正确答案：C所属专业/工种：新安规 /变电部分答案解析：第105题[164077]工作尚未全部终结，而需送电试验电动机或附属装置时，应收回全部工作票并通知( )后，方可送电。A：工作负责人B：工作许可人C：有关电气部分检修人员D：有关机械部分检修人员本题得分：0 分您的答案：A正确答案：D所属专业/工种：新安规 /变电部分答案解析：第115题[164206]填用电力电缆第二种工作票的工作（　　）许可。A：可不经调控人员B：需经调控人员C：必须变电运维人员D：必须经运维负责人本题得分：0 分您的答案：B正确答案：A所属专业/工种：新安规 /变电部分答案解析：第116题[164211]电力电缆作业，掘路施工应具备相应的（ ）方案，做好防止交通事故的安全措施。A：施工计划B：交通组织C：设备运输D：人员疏散本题得分：0 分您的答案：A正确答案：B所属专业/工种：新安规 /变电部分答案解析：第117题[164253]直流输电系统正常运行时，人员进入阀厅巡视走道宜（ ）。A：佩戴护目镜B：佩戴耳罩C：穿防电弧服D：穿防静电服本题得分：0 分您的答案：D正确答案：B所属专业/工种：新安规 /变电部分答案解析：第118题[164276]砂轮应装有用（ ）制成的防护罩，其强度应保证当砂轮碎裂时挡住碎块。A：木板B：钢板C：铝塑板D：树脂板本题得分：0 分您的答案：D正确答案：B所属专业/工种：新安规 /变电部分答案解析：二 、多选题第4题[134630]“两票三制”中的“三制”指( )。A：交接班制度B：巡回检查制度C：工作监护制度D：设备定期试验轮换制度本题得分：0 分您的答案：BCD正确答案：ABD所属专业/工种：变电值班员 /技能鉴定（理论）答案解析：第16题[133787]电流互感器上膨胀器的作用（ ）。A：体积补偿作用B：保证互感器内油不与空气接触C：减少变压器油老化D：同时监视油位；本题得分：0 分您的答案：ABD正确答案：ABCD所属专业/工种：变电值班员 /岗位（理论）答案解析：第17题[133797]10kV或35kV母线电压互感器供给（ ）电压。A：测量B：计量C：保护D：故障录波器E：低频减载本题得分：0 分您的答案：ABC正确答案：ABCD所属专业/工种：变电值班员 /岗位（理论）答案解析：第19题[133859]电容器组不平衡保护动作的原因有（ ）。A：电容器内部熔断器熔断B：电容器外部本体放电C：保护误动作D：电容器内部故障本题得分：0 分您的答案：BCD正确答案：ABCD所属专业/工种：变电值班员 /岗位（理论）答案解析：第20题[133862]电业生产事故调查规程中,人员处理意见对（ ）情况应从严处理。A：反事故措施和安全技术劳动保护措施计划不落实的B：事故发生后,隐瞒不报,慌报或在调查中,弄虚作假,隐瞒真相的C：阻挠或无正当理由拒绝事故调查,拒绝或阻挠提供有关情况和资料的D：违章指挥、违章作业,违反劳动纪律造成事故的本题得分：0 分您的答案：ABC正确答案：BCD所属专业/工种：变电值班员 /岗位（理论）答案解析：第21题[134605]电力电缆巡视检查项目有( )。A：外皮接地是否良好B：外露电缆的外皮是否完整，支撑是否牢固C：检查电缆及终端盒有无渗漏油，绝缘胶是否软化溢出D：绝缘子是否清洁完整，是否有裂纹及闪络痕迹，引线接头是否完好不发热本题得分：0 分您的答案：ABD正确答案：ABCD所属专业/工种：变电值班员 /技能鉴定（技能）答案解析：第30题[135046]电容器组串联电抗器的作用是( )。A：可以限制故障电流，使油箱爆炸的概率减少B：在120%额定电压下伏安特性呈线性，最大允许短路电流为额定电流的20-25倍，持续时间为2sC：抑制高次谐波，限制合闸涌流D：限制系统电压升高和操作过电压的产生本题得分：0 分您的答案：ABCD正确答案：ABC所属专业/工种：变电值班员 /技能鉴定（技能）答案解析：第35题[135062]蓄电池日常维护工作有( )。A：充注电解液，注意比重、液面、液温B：及时检修不合格的老化电池C：定期给连接端子涂凡士林D：定期进行蓄电池的充放电E：定期通风F：消扫灰尘，保持室内清洁本题得分：0 分您的答案：BCDEF正确答案：BCDF所属专业/工种：变电值班员 /技能鉴定（技能）答案解析：第39题[134259]数字化变电站的主要特点为（ ）。A：一次设备智能化B：二次设备网络化C：运行管理系统自动化D：系统“五防”化本题得分：0 分您的答案：ABCD正确答案：ABC所属专业/工种：变电值班员 /岗位（技能）答案解析：第40题[134261]那些属于智能变电站智能设备危急缺陷（ ）。A：电子互感器故障(含采集器及其电源)B：纵联保护装置通道故障或异常C：合井单元故障D：智能终端故障E：过程层交换机故障F：对时系统异常本题得分：0 分您的答案：ABF正确答案：ABCDE所属专业/工种：变电值班员 /岗位（技能）答案解析：第45题[163793]若工作间断后所有 ( )保持不变，作业票可由工作负责人执存。A：安全措施B：工作时间C：接线方式D：工作班成员本题得分：0 分您的答案：ACD正确答案：AC所属专业/工种：新安规 /变电部分答案解析：第46题[163918]带电作业不得使用（ ）等非绝缘绳索。A：白棕绳B：棉纱绳C：蚕丝绳D：钢丝绳本题得分：0 分您的答案：ACD正确答案：ABD所属专业/工种：新安规 /变电部分答案解析：第48题[164065]不停机进行紧急修理发电机、同期调相机时，应先将励磁回路切断，投入自动灭磁装置，然后将定子引出线与中性点短路接地，在拆装短路接地线时，应( )。A：戴绝缘手套B：穿绝缘靴或站在绝缘垫上C：戴线手套D：戴防护眼镜本题得分：0 分您的答案：AB正确答案：ABD所属专业/工种：新安规 /变电部分答案解析：第50题[164150]检验继电保护、安全自动装置、自动化监控系统和仪表的作业人员，不准对（ ）进行操作。A：运行中的设备B：信号系统C：保护压板D：保护试验装置本题得分：0 分您的答案：AC正确答案：ABC所属专业/工种：新安规 /变电部分答案解析：第52题[164163]关于高压试验装置，以下说法正确的是（ ）。A：试验装置的金属外壳应可靠接地B：高压引线应尽量缩短，并采用专用的高压试验线，必要时用绝缘物支持牢固C：试验装置的电源开关，应使用明显断开的双极刀闸。为了防止误合刀闸，可在刀刃或刀座上加绝缘罩D：试验装置的低压回路中应有两个并联电源开关，并加装过载自动跳闸装置本题得分：0 分您的答案：ABCD正确答案：ABC所属专业/工种：新安规 /变电部分答案解析：第55题[164378]各种起重设备的（ ）、试验等，除应遵守本规程的规定外，并应执行国家、行业有关部门颁发的相关规定、规程和技术标准。A：安装B：应用C：检查D：使用本题得分：0 分您的答案：AC正确答案：ACD所属专业/工种：新安规 /变电部分答案解析：第56题[164405]高空作业车（包括绝缘型高空作业车、车载垂直升降机）应按GB/T9465标准进行（ ）。A：配置B：试验C：维护D：保养本题得分：0 分您的答案：ABCD正确答案：BCD所属专业/工种：新安规 /变电部分答案解析：第57题[164444]高处作业均应先（ ），方可进行。A：搭设脚手架B：使用高空作业车C：使用升降平台D：采取其他防止坠落措施本题得分：0 分您的答案：AD正确答案：ABCD所属专业/工种：新安规 /变电部分答案解析：第59题[164458]高处作业区周围的孔洞、沟道等应设（ ）并有固定其位置的措施。A：盖板B：安全网C：围栏D：专人看守本题得分：0 分您的答案：ABCD正确答案：ABC所属专业/工种：新安规 /变电部分答案解析：第60题[164484]心肺复苏术操作是否正确，主要靠平时严格训练，掌握正确的方法。而在急救中判断复苏是否有效，可以根据以下（　　）、出现自主呼吸几方面综合考虑。A：瞳孔B：面色（口唇）C：颈动脉搏动D：神志本题得分：0 分您的答案：BCD正确答案：ABCD所属专业/工种：新安规 /变电部分答案解析：三 、判断题第2题[134803]过流保护的动作原理是电网中发生单相接地短路故障时，电流会突然增大，电压突然下降，过流保护就是按线路选择性的要求，整定电流继电器的动作电流的。A：正确B：错误本题得分：0 分您的答案：A正确答案：B所属专业/工种：变电值班员 /技能鉴定（理论）答案解析：第3题[135155]由于外界原因，正电荷可以由一个物体转移到另一个物体。A：正确B：错误本题得分：0 分您的答案：A正确答案：B所属专业/工种：变电值班员 /技能鉴定（理论）答案解析：第12题[133901]大电流接地系统中变压器停送电操作时，其中性点一定要接地是为了满足零序保护的要求。A：正确B：错误本题得分：0 分您的答案：A正确答案：B所属专业/工种：变电值班员 /岗位（理论）答案解析：第13题[133909]如运行中互感器的膨胀器异常伸长顶起上盖，应迅速查明原因并及时处理。A：正确B：错误本题得分：0 分您的答案：A正确答案：B所属专业/工种：变电值班员 /岗位（理论）答案解析：第18题[133988]投运5年及以上的非地下变电站接地网，应定期开挖（间隔不大于5年），抽检接地网的腐蚀情况，每站抽检5～8个点。铜质材料接地体地网整体情况评估合格的不必定期开挖检查。A：正确B：错误本题得分：0 分您的答案：A正确答案：B所属专业/工种：变电值班员 /岗位（理论）答案解析：第24题[135106]发生三相对称短路时，短路电流中包含负序分量。A：正确B：错误本题得分：0 分您的答案：A正确答案：B所属专业/工种：变电值班员 /技能鉴定（技能）答案解析：第25题[135107]直流母线电压过高或过低时，只要调整充电机的输出电压即可。A：正确B：错误本题得分：0 分您的答案：A正确答案：B所属专业/工种：变电值班员 /技能鉴定（技能）答案解析：第33题[134312]测量时,摇表放置必须平衡,摇表校零或用摇表测量导线通断时,只能用低转速。A：正确B：错误本题得分：0 分您的答案：B正确答案：A所属专业/工种：变电值班员 /岗位（技能）答案解析：第34题[134320]当开关出现压力降低闭锁操作或非全相运行时，可用刀闸解开母线环流或用开关串带的方式将异常开关停电A：正确B：错误本题得分：0 分您的答案：B正确答案：A所属专业/工种：变电值班员 /岗位（技能）答案解析：第44题[163853]高压回路上的工作，必须要拆除全部或一部分接地线后始能进行工作者，如果是根据调控人员指令装设的接地线，应征得工作负责人的许可，方可进行。A：正确B：错误本题得分：0 分您的答案：A正确答案：B所属专业/工种：新安规 /变电部分答案解析：第45题[163981]带电水冲洗，当被冲绝缘子未冲洗干净时，禁止中断冲洗，以免造成闪络。A：正确B：错误本题得分：0 分您的答案：B正确答案：A所属专业/工种：新安规 /变电部分答案解析：第46题[164035]带电作业工具在运输过程中，发现绝缘工具受潮或表面损伤、脏污时，应及时处理后方可使用。A：正确B：错误本题得分：0 分您的答案：A正确答案：B所属专业/工种：新安规 /变电部分答案解析：第54题[164402]起重作业，长期或频繁地靠近架空线路或其他带电体作业时，应停电作业。A：正确B：错误本题得分：0 分您的答案：A正确答案：B所属专业/工种：新安规 /变电部分答案解析：第56题[164459]高处作业区周围的孔洞、沟道等应设专人看守，夜间还应设红灯示警。A：正确B：错误
您的答案：A
正确答案：B

VBA模块， Word中有关定位选择后对选中的内容进行查找替换相关推荐

如何用vba在word中快速移动或选中内容区域？
转自:http://www.exceloffice.net/archives/1598 在word中经常需要操作特定位置的文本内容,定位文本内容就显得尤为重要. 在word vba中Range. Se ...
通过VBA将word中的表格导入到excel中
通过VBA将word中的表格导入到excel中由于项目需要,需要将word中的表格按照格式导入到excel中,所以通过在word中写VBA程序的方式将word的内容导出到excel中. 1.添加&q ...
wps中的word中公式复制完后是图片
标题:wps中的word中公式复制完后是图片我的是是因为一个是docx,而我的是doc 所以只要将doc改成docx就可以了
word中调整表格宽度后，表格后面地文字跑到表格右面
问题: word中调整表格宽度后,表格后面地文字跑到表格右面,如下图所示: 解决办法: 选中表格--右键--表格属性--表格--文字环绕--设置为"无".
利用VBA在Word中排出漂亮的代码
引言在学习编程的过程中,常常会使用word来做笔记,下面我将对如何利用word宏来进行代码的排版进行说明 1.工具我用的是word2007,word2003和word2010操作也差不多 2.基本 ...
如何用word写书_如何用vba在word中添加打勾的方框？
最近在做word vba项目,遇到个需求,需要根据条件判断批量输出打√的方框和不打√的方框,类似如下图所示: 本来以为是个很容易的事情,没想到阻碍不小. 首先,我们先看看如何在word文档中手动输入带 ...
Word中的图片保存后变模糊（失真）的问题的有效解决方案
一.问题描述在Word中插入一张图片,将图片进行适度操作(如裁剪.放缩等),然后点击保存按钮,画面就会出现失真,下图中左图和右图分别表示原始图像和放缩后的图像: 可以看到,放缩后的图像有明显的失真( ...
word中链接到目标后返回快捷键
在word中插入图片.公式和参考文献时,在文中经常需要引用, 一般在文中使用快捷键"ctrl+鼠标左键点击"可以直接链接到引用的地方,但是如果引用后需要返回文中的话该怎么操作呢? ...
枚举如何设置空白_2019-07-04 用VBA设置word中shape对象相对位置
在excelhome上看到一个提问 Excel 请教:用代码插入文本框,不随文字移动.-ExcelVBA程序开发-ExcelHome技术论坛 -club.excelhome.net 本以为可以通过录 ...

VBA模块， Word中有关定位选择后对选中的内容进行查找替换

VBA模块， Word中有关定位选择后对选中的内容进行查找替换相关推荐

最新文章

热门文章