选择对象 (发布服务器)

表示窗口或窗格中的当前选内容。 选择代表在出版物中，选定 （或突出显示） 区域，也可以代表光标，如果出版物中没有选定任何。 只能有一个 选择 对象，每个出版物窗口的窗格中，并在整个应用程序中的只能有一个 所选内容 对象可以处于活动状态。

备注

使用 Document.Selection 属性可返回 Selection 对象。 如果 选择 属性使用没有对象识别符，则 Microsoft Publisher 将返回所选内容从当前出版物窗口中的活动窗格。

示例

下面的示例将当前所选内容复制从当前出版物。

Sub CopySelection() 
 Selection.ShapeRange.Copy 
End Sub

以下示例确定所选项的类型，如果是自选图形，则用颜色填充所选内容中的第一个形状。 此示例假定活动出版物中至少选择了一个项目。

Sub SelectedShape() 
 If Selection.Type = pbSelectionShape Then 
 Selection.ShapeRange.Item(1).Fill.ForeColor _ 
 .RGB = RGB(Red:=200, Green:=20, Blue:=255) 
 End If 
End Sub

以下示例复制选定内容并将其粘贴到当前出版物的第二页上的第一个形状。

Sub CopyPasteSelection() 
 Selection.TextRange.Copy 
 With ActiveDocument.Pages(2).Shapes(1).TextFrame.TextRange 
 .Collapse Direction:=pbCollapseEnd 
 .InsertAfter NewText:=vbLf 
 .Paste 
 End With 
End Sub

方法

• Unselect

属性

• Application
• ChildShapeRange
• Parent
• ShapeRange
• TableCellRange
• TextRange
• Type

另请参阅

• Publisher 对象模型参考

支持和反馈

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