Word VBA教程:FeatureInstall属性

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

可以是下列 MsoFeatureInstall 常量之一:

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


expression.FeatureInstall

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

说明

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

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

VBA示例

本示例激活一个新的 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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号