使用WORD宏实现查找带格式的文字并复制到特定地方

原来的WORD文档内容是这样的：

1、硬盘出厂后必须经过格式化才能使用。

2、显示器是由监视器与显示适配卡两部分组成的。

.......

内容类似于带考试试卷上答案的填空题。目前的需求是把答案部分留空，并设置下画线，然后把答案列到后面以括号括起来，最终结果为这样：

1、硬盘出厂后必须经过____才能使用。(格式化)

2、显示器是由____与____两部分组成的。(监视器、显示适配卡)

.......

但是整篇WORD文档这样的有数百题之多，手工改固然非常麻烦费时，所以用宏来解决吧，虽然对WORD的宏不太熟，但是参考了一些文档后，基本满足要求，代码见下：

Sub CopyAnswer()With ActiveDocument.Content.Find
.ClearFormatting
.Font.Underline = wdUnderlineSingle '查找下划线格式.Execute Format:=True, Forward:=True '执行查找If .Found = True Then ' 如果已找到带下划线格式的.Parent.Font.Underline = wdNone '去掉下划线If InStr(1, .Parent.Text, vbCr) > 0 Then '判断是否段落结尾With .Parent.SetRange .Start + 0, .End - 1 '如果是段落结尾，把选择范围向左缩小一个字符，以免把回车符也选择了.Select '执行选择End WithEnd If.Parent.Select '为保险再执行一次选择.Parent.Copy '复制选择的内容If InStr(1, .Parent.Text, "。") > 0 Then '是否有。号结尾.Parent.Text = "____。" '有的话人才能复制的内容也补充。号Else.Parent.Text = "____" '没有的话以____代替原来下划线的内容End If.Application.Selection.MoveDown Unit:=wdParagraph '移动光标到下一段落.Application.Selection.MoveLeft Unit:=wdCharacter, Count:=1 '光标往左移一格，目的是把光标移到复制文本这段的末尾'加入左括号.Application.Selection.Text = "(".Application.Selection.MoveRight Unit:=wdCharacter, Count:=1 '避免加完括号后被选择.Application.Selection.Paste '贴粘复制的内容'加入右括号.Application.Selection.Text = ")"End If
End WithEnd Sub

这段代码有点小瑕疵，就是运行的时候，不能一次运行循环完整个文档，必须按一下“运行”完成一个，要不停的按，哈哈，不过还行，效果也还可以，结果可能会成这样：

1、硬盘出厂后必须经过____才能使用。(格式化)

2、显示器是由____与____两部分组成的。(监视器)(显示适配卡)

有两个空以上的话，中间会有右左括号)(，这时可以使用替换功能把)(替换为、即可，可者有兴趣的话在代码里加一段替换也可以哦！

使用WORD宏实现查找带格式的文字并复制到特定地方相关推荐

接口传输带格式的文字和图片_除了看书爽，这款带手写笔的「电纸书」还是办公利器...
在电子书阅读器的基础上,iReader Smart X 增加了很多方便办公的特性. 电子书阅读器因为省电.护眼等特性,被很多人买来看书.看文档.电子书阅读器不断更新迭代,市面上也出现了一些支持手写的产 ...
接口传输带格式的文字和图片_HDMI高清信号传输特点
无线与高清无疑是当今科技时代的关注词,备受人们的关注和讨论,在高清信息发布系统应用中,无线高清视频传输技术也成为一个趋势,不断的技术升级以满足无线高清视频传输技术的需求,提升视频会议设备应用体验的良好 ...
接口传输带格式的文字和图片_2020最漂亮早上好表情图带字带祝福文字，清晨最暖心的祝福语图片...
1.愿你是那随即破土的种子,在春的季节里大展宏图;愿你是那纯洁冰清的甘露,在雨的淋浴下一生平安;愿你是那青春盎然的灵气,在风的吹送中名扬四海;愿你是那充沛奋发的活力,在烈日里晒出前途无量! 2.日子一 ...
套用带标题行的表格样式_word中有带格式的下载word表格
怎样去掉Word中的"带格式表格"? 您可点击"插入"菜单,再点击"对象",找到＂Micosoft 公式3.0＂,选中它以后双击左键,就可以 ...
Word查找红色文字 Word查找颜色字体 Word查找突出格式文本
Word查找红色文字 Word查找颜色字体 Word查找突出格式文本一.概述在看文档的时候(需求文档.项目文档等),习惯将重点内容进行标记,比如:文字加粗,文字标记颜色,文字加背景色等等,保存之后 ...
Java导出带格式的Excel数据到Word表格
在Word中创建报告时,我们经常会遇到这样的情况:我们需要将数据从Excel中复制和粘贴到Word中,这样读者就可以直接在Word中浏览数据,而不用打开Excel文档.在本文中,您将学习如何使用Spi ...
如何通过Java导出带格式的 Excel 数据到 Word 表格
在Word中制作报表时,我们经常需要将Excel中的数据复制粘贴到Word中,这样则可以直接在Word文档中查看数据而无需打开另一个Excel文件.但是如果表格比较长,内容就会存在一定程度的丢失,无法 ...
java 导出word 带格式_java 导出数据为word文档（保持模板格式）
导出数据到具体的word文档里面,word有一定的格式,需要保持不变这里使用freemarker来实现: ①:设计好word文档格式,需要用数据填充的地方用便于识别的长字符串替换如 aaaaa ...
Hello，Word宏！
很多人都知道宏很强大,但从未尝试过!Hello,Word宏!就像C语言中的 Hello World 程序,简单却触手可及!本文通过一个简单的例子,给那些知道宏但从未用过或怵于宏的人一个尝试的机会! 1 ...

使用WORD宏实现查找带格式的文字并复制到特定地方

使用WORD宏实现查找带格式的文字并复制到特定地方相关推荐

最新文章

热门文章