共用方式為


Word) (AutoTextEntries 物件

代表範本中的自動圖文集項目 AutoCorrectEntry 物件的集合。 AutoTextEntries 集合包含 自動校正] 對話方塊中 [ 自動圖文集] 索引標籤上列出的所有項目。

註解

使用 AutoTextEntries 屬性可傳回 AutoTextEntries 集合。 下列範例會判斷名為"test"的 AutoTextEntry 物件是否處於 AutoTextEntries 集合。

For Each i In NormalTemplate.AutoTextEntries 
 If LCase(i.Name) = "test" Then MsgBox "AutoText entry exists" 
Next i

使用 Add 方法可將自動圖文集項目加入至 AutoTextEntries 集合。 下列範例會新增名為"Blue"的選取範圍的文字為基礎的自動圖文集項目。

NormalTemplate.AutoTextEntries.Add Name:="Blue", _ 
 Range:=Selection.Range

使用 AutoTextEntries (索 ) ,其中 index 是自動圖文集專案名稱或索引編號,可傳回單一 AutoTextEntry 物件。 您必須讓此名稱的拼法 (不一定是大寫) 與 [自動校正] 對話方塊中 [自動圖文集] 索引標籤上所顯示的拼法完全一樣。 下列範例會設定名為 "cName" 之現有自動圖文集項目的值。

NormalTemplate.AutoTextEntries("cName").Value = _ 
 "The Johnson Company"

下列範例會顯示附加至使用中文件之範本中第一個自動圖文集項目的名稱和值。

Set myTemplate = ActiveDocument.AttachedTemplate 
MsgBox "Name = " & myTemplate.AutoTextEntries(1).Name & vbCr _ 
 & "Value " & myTemplate.AutoTextEntries(1).Value

方法

屬性

另請參閱

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應