Font.AttachedToText 属性 (Publisher)

如此 如果Font 或 ParagraphFormat 对象附加到 TextRange 对象。

如果对象附加到 TextRange 对象，则当对象的属性发生更改时，将更新文档。 如果未附加对象，则在对象应用于 TextRange 或 Style 对象之前，文档中不会更改任何内容。 只读 Boolean。

语法

表达式。AttachedToText

表达 一个代表 Font 对象的变量。

示例

此示例复制字体格式;然后，它会检查重复的格式是否附加到文本区域，如果不是，它会将格式附加到第二个形状。

Sub DuplicateText() 
 Dim fntTemp As Font 
 With ActiveDocument.Pages(1) 
 Set fntTemp = .Shapes(1).TextFrame.TextRange.Font.Duplicate 
 If fntTemp.AttachedToText <> True Then _ 
 ActiveDocument.Pages(1).Shapes(2) _ 
 .TextFrame.TextRange.Font = fntTemp 
 End With 
End Sub

支持和反馈

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