【分享成果，随喜正能量】常常與優秀的人同行，會慢慢在你的生活中注入熱情，讓你少了抱怨、多了行動。存好心，說好話，行好事，做好人。「積德雖無人見，行善自有天知」。

《VBA之Word應用》，是我推出第八套教程，教程是專門講解VBA在Word中的應用，圍繞“面向對象編程”講解，首先讓大家認識Word中VBA的對象，以及對象的屬性、方法，然後通過實例讓大家感受到Word VBA 的妙處。本套教程共三冊十六章，今日内容第七章 “Word中的Selection對象”,第5節：清除段落格式及文檔的複制

大家好，我們這節開始Selection對象方法的講解，在之前的幾節中學習了Selection對象的各種屬性，這些屬性與Range對象是非常類似的，我們要靈活地運用。這節我們将學習到Selection對象的方法，涉及到ClearFormatting 方法、Copy 方法及Paste 方法。

這個方法清除所選内容的文本格式和段落格式。

語法：expression.ClearFormatting

其中expression為一個代表Selection對象的變量。

這個方法将指定的選定内容複制到剪貼闆。

語法：expression.Copy

其中expression為一個代表Selection對象的變量。

這個方法将指定的選定内容複制到剪貼闆。

語法：expression.Paste

其中expression為一個代表Selection對象的變量。

• 使用此方法替換當前選擇範圍的内容。 如果不想替換選定内容的内容，請在使用此方法之前使用Collapse方法。

下面我們通過一個實例來看一下上面各個方法的利用，這個實例中我們首先清除活動文檔的第二段至第四段中的所有文本格式和段落格式。然後清除活動文檔中的所有文本格式和段落格式，最後我們将複制文檔中的内容并将其粘貼到新文檔中插入點。

我們先看一下代碼：

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

代碼截圖：

代碼的講解：（略）

代碼的運行效果：

粘貼到新的文檔中：

今日内容回向：

1 Word中Selection對象的ClearFormatting 方法、Copy 方法及Paste 方法的意義是什麼？

2 如何利用VBA顯示清除段落格式及完成文檔的複制和粘貼？

本講内容參考程序文件：Doc 007文檔.docm

我20多年的VBA實踐經驗，全部濃縮在下面的各個教程及應用工具中：

【分享成果，随喜正能量】自己本身不是敵人，自己身上的錯誤、虛僞和偏見卻是你做人的大敵，對于大敵的熟視無睹和視而不見，終将為自己埋下了悲劇的種子和失敗的隐患。更多時候，自己是你假想的對手，多和自己較量幾個回合，才會有準備去和别人較量，有時可怕的不是被别人擊敗，而是明知自己實力不足技術欠缺又不去與自己試練。。

更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!