FeatureInstall 属性

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

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