通过

SmartDocument.PickSolution 方法 (Office)

  • 项目

显示一个对话框，允许用户选择一个可用的 XML 扩展包，以附加到 Microsoft Word 中的活动文档或 Microsoft Excel 中的工作簿。

语法

表达式。PickSolution (ConsiderAllSchemas)

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

参数

名称 必需/可选 数据类型 说明
ConsiderAllSchemas 可选 Boolean 如果为 True，则会显示用户计算机上安装的所有可用 XML 扩展包。 如果为 False，则会仅显示可用于活动文档的 XML 扩展包。 默认值为 False 。

备注

使用 PickSolution 方法可允许用户从列表中选择 XML 扩展包。 附加在活动文档或工作簿上的架构将确定可用的 XML 扩展包。

PickSolution 方法不返回指示用户是在对话框中选择了 XML 扩展包还是选择“取消”的值。 在调用 SolutionID 后，检查 PickSolution 属性可确定是否已附加了 XML 扩展包。

如果智能文档开发人员未能在 XML 扩展包清单文件中指定“targetApplication”， 则 PickSolution 显示的列表可能包括不面向活动应用程序的 XML 扩展包;例如，Excel 用户可能会看到专门面向 Word 的 XML 扩展包。 在这些情况下，用户可以选择不适合活动应用程序的 XML 扩展包。

有关智能文档或智能文档的 XML 扩展包的详细信息，请参阅 智能文档软件开发工具包 (SDK) 。

示例

以下示例检查 SolutionID 属性以确定活动 Microsoft Word 文档是否已具有附加的 XML 扩展包;如果没有，则显示一个对话框，允许用户选择可用的 XML 扩展包。 如果没有，它会显示一个对话框，允许用户选择可用的 XML 扩展包，然后显示智能文档的属性。

 Dim objSmartDoc As Office.SmartDocument 
 Dim strSmartDocInfo As String 
 Set objSmartDoc = ActiveDocument.SmartDocument 
 If objSmartDoc.SolutionID = "None" Or objSmartDoc.SolutionID = "" Then 
 objSmartDoc.PickSolution True 
 End If 
 If objSmartDoc.SolutionID > "None" And objSmartDoc.SolutionID > "" Then 
 strSmartDocInfo = "SolutionID: " & objSmartDoc.SolutionID & vbCrLf & _ 
 "SolutionURL: " & objSmartDoc.SolutionURL 
 MsgBox strSmartDocInfo, vbInformation + vbOKOnly, "Smart Doc Properties" 
 Else 
 MsgBox "The user clicked Cancel." 
 End If 
 Set objSmartDoc = Nothing

另请参阅

支持和反馈

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