分享成果,随喜正能量】常常与优秀的人同行,会慢慢在你的生活中注入热情,让你少了抱怨、多了行动。存好心,说好话,行好事,做好人。「积德虽无人见,行善自有天知」。

《VBA之Word应用》,是我推出第八套教程,教程是专门讲解VBA在Word中的应用,围绕“面向对象编程”讲解,首先让大家认识Word中VBA的对象,以及对象的属性、方法,然后通过实例让大家感受到Word VBA 的妙处。本套教程共三册十六章,今日内容第七章 “Word中的Selection对象”,第5节:清除段落格式及文档的复制

如何去除所有文档的格式(清除段落格式及文档的复制)(1)

第五节 Selection 对象的方法(一)

大家好,我们这节开始Selection对象方法的讲解,在之前的几节中学习了Selection对象的各种属性,这些属性与Range对象是非常类似的,我们要灵活地运用。这节我们将学习到Selection对象的方法,涉及到ClearFormatting 方法、Copy 方法及Paste 方法。

1 Selection.ClearFormatting方法

这个方法清除所选内容的文本格式和段落格式。

语法:expression.ClearFormatting

其中expression为一个代表Selection对象的变量。

2 Selection.Copy 方法

这个方法将指定的选定内容复制到剪贴板。

语法:expression.Copy

其中expression为一个代表Selection对象的变量。

3 Selection.Paste 方法

这个方法将指定的选定内容复制到剪贴板。

语法:expression.Paste

其中expression为一个代表Selection对象的变量。

4 实例:清除段落格式及复制整个文档到新的文档中

下面我们通过一个实例来看一下上面各个方法的利用,这个实例中我们首先清除活动文档的第二段至第四段中的所有文本格式和段落格式。然后清除活动文档中的所有文本格式和段落格式,最后我们将复制文档中的内容并将其粘贴到新文档中插入点。

我们先看一下代码:

Sub mynzD()

'将第一段加粗以测试

ActiveDocument.Paragraphs(1).Range.Bold = True

'清除活动文档的第二段至第四段中的所有文本格式和段落格式。

ActiveDocument.Range(Start:=ActiveDocument.Paragraphs(2).Range.Start, _

End:=ActiveDocument.Paragraphs(4).Range.End).Select

Selection.ClearFormatting

'清除活动文档中的所有文本格式和段落格式

ActiveDocument.Select

Selection.ClearFormatting

'复制文档中的内容并将其粘贴到新文档中插入点。

Selection.Copy

Documents.Add.Content.Paste

End Sub

代码截图:

如何去除所有文档的格式(清除段落格式及文档的复制)(2)

代码的讲解:(略)

代码的运行效果:

如何去除所有文档的格式(清除段落格式及文档的复制)(3)

如何去除所有文档的格式(清除段落格式及文档的复制)(4)

粘贴到新的文档中:

如何去除所有文档的格式(清除段落格式及文档的复制)(5)

今日内容回向:

1 Word中Selection对象的ClearFormatting 方法、Copy 方法及Paste 方法的意义是什么?

2 如何利用VBA显示清除段落格式及完成文档的复制和粘贴?

本讲内容参考程序文件:Doc 007文档.docm

如何去除所有文档的格式(清除段落格式及文档的复制)(6)

我20多年的VBA实践经验,全部浓缩在下面的各个教程及应用工具中:

如何去除所有文档的格式(清除段落格式及文档的复制)(7)

如何去除所有文档的格式(清除段落格式及文档的复制)(8)

如何去除所有文档的格式(清除段落格式及文档的复制)(9)

分享成果,随喜正能量】自己本身不是敌人,自己身上的错误、虚伪和偏见却是你做人的大敌,对于大敌的熟视无睹和视而不见,终将为自己埋下了悲剧的种子和失败的隐患。更多时候,自己是你假想的对手,多和自己较量几个回合,才会有准备去和别人较量,有时可怕的不是被别人击败,而是明知自己实力不足技术欠缺又不去与自己试练。。

,