四行选项变一行的快捷方法
来源:高中英语教学交流网
发布时间: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
手动操作步骤:
按下Ctrl+H组合键,打开“替换”对话框,勾选“使用通配符”在查找内容框中输入([BCD]),在替换为框中输入^l^&
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
- 相关文章
- ·快速增加共享打印机的代码05-17·合并当前目录下所有工作簿的全部工作01-10·常见屏幕截图方法08-11·JS 自动答题脚本07-01·如何跨路由共享打印机02-13·多列数据区域转换成一列VBA代码03-05·Win10电脑的一些安装提示12-03·word文档单词自动加音标的宏代码11-04·qlv格式视频转mp4方法08-10·少点鼠标,让手轻松一些10-29
- 最新文章
- ·一列数据轻松转换成多行多列02-05·MPC-HC如何加速播放不变音调?01-06·利用打印机迁移功能实现三个步骤快速批量安装所有网10-27·视频号视频的四种下载方法07-07·Win10系统开机启动文件夹在哪里?04-16·十秒免工具激活windows 1002-25·批量替换word文档中的第一行作为文件的文件名06-21·连接打印机时需要输入用户名密码怎么办?05-15
- 阅读排行
- ·如何让试题的ABCD选项对齐04-13·word排版技巧整理08-02·word 如何自动生成目录08-02·Excel 进行学生成绩统计分析03-13·Win10电脑的一些安装提示12-03·我的电脑图标不见了,怎么找回来!09-14·不同电脑文件字体改变了的解决方法12-15·Word高级替换技巧03-05·巧妙管理 为打印机减负05-25·巧用Excel数组公式统计各班优秀人数04-24
点击这里识别二维码关注公众号