【分享成果，随喜正能量】别跟往事過不去，别跟自己過不去，别跟遭遇過不去，别跟眼淚過不去，學會适應生活的變化，學會适應生活的變遷。。

《VBA之Word應用》，是我推出第八套教程，教程是專門講解VBA在Word中的應用，圍繞“面向對象編程”講解，首先讓大家認識Word中VBA的對象，以及對象的屬性、方法，然後通過實例讓大家感受到Word VBA 的妙處。本套教程共三冊十六章，今日内容第七章 “Word中的Selection對象”,第4節：利用FIND進行查找及利用TEXT添加信息

大家好，我們繼續Selection對象屬性的講解，在上一節我們學習了Selection對象的Font屬性、HeaderFooter屬性及Information屬性。這節我們将學習到Selection對象的Find屬性、Text屬性及Words屬性。

這個屬性返回一個 Find 對象，該對象包含查找操作所需的條件。

語法：expression.Find

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

• 如果查找操作成功，選定内容就會更改。

這個屬性返回或設置指定的選定内容中的文本。

語法：expression.Text

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

• Text 屬性返回選定内容的格式文本。 當設置此屬性時，将替換該區域或所選内容的文本

這個屬性返回一個Words集合，該集合代表選定内容中的所有單詞。

語法：expression.Words

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

• 文檔中的标點符号和段落标記包括在 Words 集合中。

下面我們将利用一個實例來講解本節屬性的利用方法，這節的實例中，我們首先利用FIND屬性進行一個詞語的查找，查找到後提示一些信息給用戶，如果沒有查找到，則提示給用戶沒有查找到。然後我們新建一個文檔，利用TEXT屬性向這個文檔中循環添加信息。

我們先看代碼：

Sub mynzC()

'利用FIND查找“閏土”，從光标之處開始查找，查找到後選中。

With Selection.Find

'查找的方向向下

.Forward = True

'取消在查找或替換操作中所指定文本的文本格式和段落格式。

.ClearFormatting

'查找操作查找僅完整單詞，而不是較長單詞的一部分的文本

.MatchWholeWord = True

'查找時不區分大小寫

.MatchCase = False

'到達文檔末尾時，繼續從文檔開頭進行搜索。

.Wrap = wdFindContinue

'運行指定的查找操作。如果查找成功，則返回 True。

.Execute FindText:="閏土"

End With

If Selection.Find.Execute = True Then

'提示給用戶查找到的内容

MsgBox Selection.Text & " 詞語數為：" & Selection.Words.Count

Else

MsgBox "沒有找到"

End If

'新建一個文檔，在這個文檔中輸入些自動化處理的文字

Documents.Add

For i = 1 To 50

Selection.Text = "Line" & i & Chr(13)

'光标下移

Selection.MoveDown Unit:=wdParagraph, Count:=1

Next

End Sub

代碼截圖：

代碼解讀：（略）

代碼的運行效果：

今日内容回向：

1 Word中Selection對象的Find屬性、Text屬性及Words屬性的意義是什麼？

2 如何利用VBA顯示所查找的内容，及利用text向文檔中添加信息？

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

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

【分享成果，随喜正能量】心若年輕，歲月不老。一個人，是在煙熏火燎之後，仍舊能保持愛臭美的秉性。花謝了，請修剪好枝葉；葉落了，請保持樹的骨感！。