AutoTextEntries.AppendToSpike 方法 (Word)
會刪除指定的範圍並將該範圍的內容新增至特殊圖文集 (內建的自動圖文集項目)。 此方法會以 AutoTextEntry 物件傳回特殊圖文集。
語法
expression。 AppendToSpike( _Range_ )
需要 expression。 代表 'AutoTextEntries' 集合的變數。
參數
| 名稱 | 必要/選用 | 資料類型 | 描述 |
|---|---|---|---|
| Range | 必要 | Range | 已刪除並附加至特殊圖文集的範圍。 |
傳回值
AutoTextEntry
註解
AppendToSpike 方法才有效 Normal 範本中的 AutoTextEntries 集合。
範例
這則範例會刪除選取項目並將其內容加入至 Normal 範本中的特殊圖文集。
If Len(Selection.Range.Text) > 1 Then
NormalTemplate.AutoTextEntries.AppendToSpike _
Range:=Selection.Range
End If
這則範例會清除特殊圖文集並將使用中文件內的第一個和第三個字加入至 Normal 範本中的特殊圖文集。 然後，特殊圖文集的內容就會在插入點插入。
Dim atEntry As AutoTextEntry
Selection.Collapse Direction:=wdCollapseStart
For Each atEntry In NormalTemplate.AutoTextEntries
If atEntry.Name = "Spike" Then atEntry.Delete
Next atEntry
With NormalTemplate.AutoTextEntries
.AppendToSpike Range:=ActiveDocument.Words(3)
.AppendToSpike Range:=ActiveDocument.Words(1)
.Item("Spike").Insert Where:=Selection.Range
End With
另請參閱
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。