Question

返回或设置 Microsoft Word 将如何处理对所需功能尚未安装的方法和属性的调用。MsoReatureInstall，可读写。

可以是下列 MsoFeatureInstall 常量之一：

msoFeatureInstallNone0这是默认值。当调用一个未安装的属性时，会在运行时间发生一个一般性的自动化错误。1提示用户安装新功能。2在安装时显示过程表。不提示用户安装新功能。

常量	值	说明
msoFeatureInstallOnDemand
msoFeatureInstallOnDemandWithUI

expression.FeatureInstall

expression 必需。该表达式返回“应用于”列表中的一个对象。

说明

当某个功能正在安装时，可以使用 msoFeatureInstallOnDemandWithUI 常量来防止用户认为应用程序没有响应。如果希望只有开发者才能安装新功能，则使用 msoFeatureInstallNone 常量。

如果将 DisplayAlerts 属性设为 False，则即使把 FeatureInstall 属性设为 msoFeatureInstallOnDemand，也不会提示用户安装新功能。如果将 DisplayAlerts 属性设置为 True，同时将 FeatureInstall 属性设置为 msoFeatureInstallOnDemand，则会显示安装进程表。

示例

本示例激活一个新的 Microsoft Excel 功能并检查 FeatureInstall 属性的值。如果将此属性的值设置为 msoFeatureInstallNone，则该代码会显示一个消息框询问用户是否希望更改此属性的设置。如果用户回答“Yes”，则将该属性设置为 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