Word) (Words 物件
選取範圍、 範圍或文件中的字數集合。 Words 集合中的每個項目是代表一個字的 Range 物件。 沒有 Word 的物件。
使用 文字 屬性可傳回 Words 物件。 下列程式碼範例會顯示目前選取多少單字。
MsgBox Selection.Words.Count & " words are selected"
使用 字詞 (Index),其中 Index 是索引編號,傳回代表一個字的 Range 物件。 索引編號代表 word 在 Words 集合的位置。 下列程式碼範例會將格式設定為 24 點斜體格式選取範圍內的第一個字。
With Selection.Words(1)
.Italic = True
.Font.Size = 24
End With
Words 集合中的項目包含單字和空格之後單字。 若要移除行尾的空格,請使用 Visual Basic 的 RTrim 函數,例如 RTrim(ActiveDocument.Words(1))。 下列程式碼範例會選取使用中文件內第一個字 (和其行尾的空格)。
ActiveDocument.Words(1).Select
如果選取範圍是插入點,且後面緊接著空格, 則 Selection.Words (1) 參照選取範圍前面的字。 如果選取範圍是插入點,且緊接著字元, 則 Selection.Words (1) 參照選取範圍後面的字。
在文件中此集合的 Count 屬性會傳回主要本文中的項目數。 要計算其他本文中的項目會使用 Range 物件的集合。 此外, Count 屬性會包含標點符號及段落標記總計中。 若要計算實際文字文件中的,使用 [ 字數統計] 對話方塊。 下列程式碼範例會擷取使用中文件內的字數,並將這個值指定給 numWords 變數。
Set temp = Dialogs(wdDialogToolsWordCount)
' Execute the dialog box to refresh its data.
temp.Execute
numWords = temp.Words
注意
[!注意事項] 如需呼叫內建對話方塊的詳細資訊,請參閱顯示 Word 內建對話方塊。
無法使用 Words 集合的 Add 方法。 請改用 InsertAfter 方法或 InsertBefore 若要將文字新增至 Range 物件的方法。 下列程式碼範例會在使用中文件的第一個字後插入文字。
ActiveDocument.Range.Words(1).InsertAfter "New text "
名稱 |
---|
項目 |
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。