通过

Application.FeatureInstall 属性 (Word)

  • 项目

返回或设置 Microsoft Word 如何处理调用方法和属性的需要尚未安装的功能。 读/写 读 。

语法

expression. FeatureInstall

表达式是必需的。 一个代表 Application 对象的变量。

备注

使用 msoFeatureInstallOnDemandWithUI 常量可防止用户在安装某个功能时认为应用程序没有响应。 如果您想开发人员是唯一可以安装的功能的用户，请使用 msoFeatureInstallNone 常量。

如果有 DisplayAlerts 属性设置为 False 时，不会提示用户安装新功能，即使 FeatureInstall 属性设置为 msoFeatureInstallOnDemand 。 如果 DisplayAlerts 属性设置为 True ，将 FeatureInstall 属性设置为 msoFeatureInstallOnDemand 将显示安装进度计量表。

示例

本示例激活 Microsoft Excel 的一个新实例，并检查 FeatureInstall 属性的值。 如果该属性设置为 msoFeatureInstallNone ，代码将显示一个消息框，询问用户是否要进行更改的属性设置。 如果用户回答"是"，则会将属性设置为 msoFeatureInstallOnDemand 。

注意

[!注释] 为使该示例正常运行，必须添加一个对 Microsoft Excel 对象库的引用。

Dim ExcelApp As New Excel.Application 
Dim intReply As Integer 
 
With ExcelApp 
 If .FeatureInstall = msoFeatureInstallNone Then 
 intReply = MsgBox("Uninstalled features for " _ 
 & "this application may " & vbCrLf _ 
 & "cause a run-time error when called." _ 
 & vbCrLf & vbCrLf _ 
 & "Would you like to change this setting" & vbCrLf _ 
 & "to automatically install missing features?", _ 
 vbYesNo, "Feature Install Setting") 
 If intReply = vbYes Then 
 .FeatureInstall = msoFeatureInstallOnDemand 
 End If 
 End If 
End With

另请参阅

Application 对象

支持和反馈

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