通过

Document.AlternateNames 属性 (Visio)

  • 项目

获取或设置文档的替代名称。 读/写。

语法

表达式。AlternateNames

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

返回值

String

备注

应用程序在下列情况下存储文档的名称：

  • 模板存储模具名称。 例如，“基本流程图”模板存储“Basic Flowchart Shapes.vss”和“Backgrounds.vss”模具的名称。 这些模具使用“基本流程图”模板打开。

  • 主控形状快捷方式存储模具名称。 例如， 数据 形状的快捷方式存储存储 数据 形状的模具的名称- 基本流程图 Shapes.vss。

应用程序打开文档或访问 Document 对象的集合时，它使用文档的名称。 如果 Microsoft Visio 不能找到文档的名称，它会查找正确路径中的模具的替代名称。 (若要添加路径，请单击“ 文件 ”选项卡，单击“ 选项”，单击“ 高级”，然后在“ 常规”下单击“ 文件位置”。) 例如，假设你创建了名为“New Shapes 2008.vss”的模具。次年，你修改了模具并将其重命名为“New Shapes 2009.vss”。打开 新形状 2008.vss 的任何模板现在都应打开 新形状 2009.vss。 为此，请将 New Shapes 2009.vss 的 AlternateNames 属性设置为“New Shapes 2008.vss”。以下 Microsoft Visual Basic 代码演示了执行此操作的一种方法。

Visio.Documents("New Shapes 2009.vss").AlternateNames = "New Shapes 2008.vss"

AlternateNames 属性一直为空，直到您使用自动化对其进行设置。 每个字符串中的替代名称应该包含文件名，但不包含文件夹信息。 还可以在尖括号中包含注释 (<>) ，因为应用程序会忽略尖括号中的任何内容。 例如，可以使用以下代码设置 AlternateNames 属性。

Visio.Documents("HRShapes.vss").AlternateNames = "Human Resources Shapes.vss; <old name> HRDept Shapes.vss"

示例

以下宏显示如何获取和设置当前文档的 AlternateNames 属性。 该宏说明在您设置该属性之前，该属性为空。

 
Public Sub AlternateNames_Example() 
  
    'Get the AlternateNames property of the document.  
    Debug.Print "Alternate name is: "; ThisDocument.AlternateNames 
 
    'Set the AlternateNames property of the document.  
    ThisDocument.AlternateNames = "Test Shapes.vss"  
    Debug.Print "Alternate name is: "; ThisDocument.AlternateNames  
 
End Sub

支持和反馈

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