AutoTextEntries コレクション オブジェクト

AutoTextEntries コレクション オブジェクト

Template AutoTextEntries AutoTextEntry

テンプレートの定型句を表す AutoTextEntry オブジェクトのコレクションです。AutoTextEntries コレクションには、[オートコレクト] ダイアログ ボックス ([ツール] - [オートコレクトのオプション]) の [定型句] タブに表示されるすべての項目が含まれます。

使い方

AutoTextEntries プロパティを使用して AutoTextEntries コレクションを取得します。次の使用例は、"test" という名前の AutoTextEntry オブジェクトが AutoTextEntries コレクションにあるかどうかを調べます。

For Each i In NormalTemplate.AutoTextEntries
    If LCase(i.Name) = "test" Then MsgBox "この定型句は存在します。"
Next i
		

Add メソッドを使用して定型句を AutoTextEntries コレクションに追加します。次の使用例は、選択範囲の文字列に基づいて "青" という名前の定型句を追加します。

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

AutoTextEntries (index) を使用して AutoTextEntry オブジェクトを取得します。引数 index には定型句の登録名またはインデックス番号を指定します。定型句の登録名は [オートコレクト] ダイアログ ボックスの [定型句] タブに表示される名前と正確に一致している必要があります。大文字と小文字は区別されません。次の使用例は、"cName" という名前の既存の定型句の値を設定します。

NormalTemplate.AutoTextEntries("cName").Value = _
    "鈴木商店"
		

次の使用例は、作業中の文書に添付されたテンプレートの最初の定型句の名前と値を表示します。

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