设为首页收藏本站|繁體中文

Excel 技巧网

 找回密码
 注册

QQ登录

只需一步,快速开始

手机号码,快捷登录

查看: 524|回复: 17

[待分类提问] word如何进行这种操作?有点难啊。

[复制链接]
发表于 2018-1-11 15:36:47 | 显示全部楼层 |阅读模式

免费注册成为本站会员,享用更多功能,结识更多Office办公高手!

您需要 登录 才可以下载或查看,没有帐号?注册

x
根据答案,要在正确的选择项前面加一个“=”号,错误的选择项前面加“~”,就像第一题那样的。搞了2天了没折,只好来请教大神们了。

1 这个开关控制机动车哪个部位?
~A. 风窗玻璃除雾器
~B. 照明、信号装
=C. 置风窗玻璃刮水器
~D. 危险报警闪光灯
<imgsrc="images/image001.jpg">
答案C
2 如图所示这个符号的开关控制什么装置?
A. 前风窗玻璃除霜
B. 后风窗玻璃除霜
C. 后风窗玻璃刮水器
D. 前风窗玻璃刮水器
<img width="256"height="256" id="imgShow"src="images/image002.jpg">
答案D
3 如图所示这个符号的开关控制什么装置?
A. 前风窗玻璃除霜或除雾
B. 后风窗玻璃刮水器及洗涤器
C. 前风窗玻璃刮水器及洗涤器
D. 后风窗玻璃除霜或除雾
<img width="256"height="256" src="images/image003.jpg">
答案C


选择题.rar

10.73 KB, 下载次数: 4

 楼主| 发表于 2018-1-12 08:50:21 | 显示全部楼层
或者提示一下word能实现这样的功能吗?
回复 支持 反对

使用道具 举报

发表于 2018-1-12 14:05:04 | 显示全部楼层
可以用替换操作解决,当然也可以使用vba代码。比如可以进行5次替换:
第1次:
小千办公_1.jpg

第2-5次:
小千办公_2.jpg

把查找式中的D依次改成C、B、A进行替换。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2018-1-12 16:00:54 | 显示全部楼层
0Mouse 发表于 2018-1-12 14:05
可以用替换操作解决,当然也可以使用vba代码。比如可以进行5次替换:
第1次:

刚才实验了一下,解决了我的大问题!感谢兄弟的解答!
就是有一点不明白:~(D[!D]@答案D)这个为什么能定位到正确选项和后面的答案?
回复 支持 反对

使用道具 举报

 楼主| 发表于 2018-1-12 16:38:27 | 显示全部楼层
还有一个问题:像这种题干或选择项里有字符ABCD的这种方法就失效了,如:
1、 这个开关控制机动车哪个部位?
~A.风窗玻璃除雾器
~B.照明、信号装
~C.置风窗玻璃刮水器
~D.危险报警闪光灯C

答案C

点评

这样就能删除选项末尾的字母了 [attachimg]112266[/attachimg]  详情 回复 发表于 2018-1-16 10:18
回复 支持 反对

使用道具 举报

发表于 2018-1-16 10:18:40 | 显示全部楼层
lxf78 发表于 2018-1-12 16:38
还有一个问题:像这种题干或选择项里有字符ABCD的这种方法就失效了,如:
1、 这个开关控制机动车哪个部位 ...

这样就能删除选项末尾的字母了
小千办公_18011601.jpg
回复 支持 反对

使用道具 举报

发表于 2018-1-16 11:16:18 | 显示全部楼层
直接用vba处理,就不受题干或选项里存在字母的干扰了。
Sub xqoa()
    On Error Resume Next
    Dim N%, i%, j%, sText$, sZM$
    N = Paragraphs.Count
    For i = N To 1 Step -1
        sText = Paragraphs(i).Range.Text
        If sText Like "答案?*" Then
            sZM = Mid(sText, 3, 1)
            Debug.Print sZM
            For j = 1 To 5
                With Paragraphs(i - j).Range
                    If .Text Like sZM & ".*" Then
                        .InsertBefore "="
                    ElseIf .Text Like Replace("[ABCD]", sZM, "") & ".*" Then
                        .InsertBefore "~"
                    End If
                End With
            Next j
            i = i - 5
        End If
    Next i
End Sub


复制以上红色文字内容,打开Word文档,按Alt+F11(笔记本的话按Alt+F11+Fn),双击ThisDocument,在出现的空白窗口里执行粘贴,然后直接按F5运行代码就能看到效果了。完了删除刚刚的代码即可。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2018-1-16 13:31:26 | 显示全部楼层
0Mouse 发表于 2018-1-16 11:16
直接用vba处理,就不受题干或选项里存在字母的干扰了。
Sub xqoa()
    On Error Resume Next

这段VBA代码果然好用!解决了上面出现的问题。再次感谢Excel大神
回复 支持 反对

使用道具 举报

 楼主| 发表于 2018-1-16 13:40:27 | 显示全部楼层
再次请教Excel大神:如果要把格式变成下面的样子用VBA怎么写?红色部分是增加的内容。我用替换也可以但效率还是太慢了。
2、如图所示这个符号的开关控制什么装置?
{~A. 前风窗玻璃除霜
~B. 后风窗玻璃除霜
~C. 后风窗玻璃刮水器
=D. 前风窗玻璃刮水器}
<img width\="256" height\="256" id\="imgShow" src\="@@PLUGINFILE@@/images/image002.jpg">
答案D


回复 支持 反对

使用道具 举报

 楼主| 发表于 2018-1-16 13:44:18 | 显示全部楼层
lxf78 发表于 2018-1-16 13:40
再次请教Excel大神:如果要把格式变成下面的样子用VBA怎么写?红色部分是增加的内容。我用替换也可以但效率 ...

就是把选择选项用“{”和“}”括起来;有“=”或“~”号的(ABCD选择项前面的除外)前面加“\”;images/前面加@@PLUGINFILE@@/
回复 支持 反对

使用道具 举报

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

本版积分规则

关闭

站长推荐上一条 /1 下一条

Excel技巧网的会员探讨问题仅代表其个人意见,与网站的立场无关。任何违反国家和地方相关法律法规的言论,本站有义务协助政府相关部门追究发言者的责任!
本站中非注明转载文章与案例的版权为作者与Excel技巧网共有。若非原文作者,本站之外任何单位或个人未经允许,不得将其用于商业用途。
若非原文作者,任何形式的非商业性转载必须获得Excel技巧网或作者允许,并注明作者和出处。
会员发表的帖子如涉及版权纠纷,须自行负责。详情请参考注册时的网站服务条款。
本站特聘法律顾问:沈学律师

Archiver|手机版|Excel技巧网 ( 闽ICP备08107682号-2 ) | 闽公网安备 35020302032608号  

GMT+8, 2018-9-22 07:26

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

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