通过

AutoTextEntries.AppendToSpike 方法 (Word)

  • 项目

删除指定的范围内，将该范围的内容添加到图文场 (内置的自动图文集词条)。 此方法返回一个 AutoTextEntry 对象为图文场。

语法

expression。 AppendToSpike( _Range_ )

expression 是必需的。 一个代表“AutoTextEntries”集合的变量。

参数

名称 必需/可选 数据类型 说明
Range 必需 Range 被删除和添至图文场的区域。

返回值

AutoTextEntry

备注

AppendToSpike 方法才有效 AutoTextEntries 集合在 Normal 模板中。

示例

本示例删除选定内容并将其内容添至 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

另请参阅

AutoTextEntries 集合对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。