四行选项变一行的快捷方法


来源:高中英语教学交流网
发布时间:2017-11-14 10:50:00
查看次数:

内容提要:在编辑试卷时,有时候需要把四行(或两行)的选项内容变成一行。如果一个一个移动光标,删除操作会比较耗时。

在编辑试卷时,有时候需要把四行(或两行)的选项内容变成一行。如果一个一个移动光标,删除操作会比较耗时。今天提供一种快捷的宏代码方式,这个代码之后会更新在最新版的“ZSHUNJ工具箱”中。

工具箱下载地址:http://www.zshunj.cn/zshunj

使用前效果:

使用后效果:

最后结合ZSUNJ工具箱的选项对齐功能后的效果是:


宏代码如下:

Sub 选项合并为一行()

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^13([BCD].)"
.Replacement.Text = "^t\1"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

手动操作步骤:

按下Ctrl+H组合键,打开“替换”对话框,勾选“使用通配符”在查找内容框中输入^13([BCD].),在替换为框中输入^t\1


反之的代码如下:

Sub 选项各为一行()

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "([BCD])"
.Replacement.Text = "^l^&"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

手动操作步骤:

按下Ctrl+H组合键,打开“替换”对话框,勾选“使用通配符”在查找内容框中输入([BCD]),在替换为框中输入^l^&


相关文章
·word 如何自动生成目录08-02
·最安全的打开U盘的方法05-20
·SQL SERVER数据库中快速找主表11-10
·微信公众号音频音乐提取方法10-19
·Win10电脑账号密码设置、修改、取消12-06
·隐藏Excel错误结果显示的三种方法10-12
·出于安全原因,Firefox 取消了该请求03-22
·Win10电脑开机启动慢?教你只需三步,电脑开机速度快到飞起!06-11
·Word高级替换技巧03-05
·XP修改文件排序方式为按修改时间排列04-19
最新文章
阅读排行