通过

Application.HelpPaths 属性 (Visio)

  • 项目

获取或设置 Microsoft Visio 查找帮助文件的路径。 读/写。

语法

表达式。HelpPaths

expression：表示 Application 对象的变量。

返回值

String

备注

默认情况下，HelpPaths 属性设置为空字符串 ("")。

传递给 HelpPaths 属性并从中接收的字符串与“ 文件路径 ”对话框中显示的字符串相同， (“ 文件 ”选项卡“ >选项>”“高级>常规>文件位置 ”) 。 此字符串存储在 HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Visio\Application\HelpPath 子项中。

当应用程序查找帮助文件时，它将在 HelpPaths 属性中命名的所有路径及其所有子文件夹中查找。 如果将 HelpPaths 属性传递给 EnumDirectories 方法，它将返回传入的文件夹中的完全限定路径的完整列表。

设置 HelpPaths 属性将替换“文件路径”对话框中 HelpPaths 的现有值。 若要保留现有值，请获取现有字符串，然后将新文件路径追加到该字符串，如以下代码所示。

Application.HelpPaths = Application.HelpPaths & ";" & "newpath".

警告

以任何方式修改 Windows 注册表（无论是通过注册表编辑器还是以编程方式）始终具有一定程度的风险。 不正确的修改会导致严重的问题，可能需要重新安装操作系统。 最好在修改计算机的注册表之前始终对其进行备份。

示例

以下 Microsoft Visual Basic for Applications (VBA) 宏显示如何获取和设置 Application 对象的 HelpPaths 属性。 在运行此宏之前，请将 替换为 fullpath(s) 要 Visio 查找帮助文件的位置或位置的路径。

 
Public Sub GetHelpPaths_Example()  
 
    Dim strCurrentPath As String 
 
    'Retrieve the current path to Visio Help files.  
    strCurrentPath = Application.HelpPaths  
    MsgBox ("The current path for Microsoft Visio Help files is" + strCurrentPath)  
 
End Sub   
 
Public Sub SetHelpPaths_Example()  
 
    Dim strNewPath As String 
 
    'Store the new path.  
    strNewPath = "fullpath(s)"  
 
    'Set the new path in the Application object.  
    Application.HelpPaths = strNewPath  
 
End Sub

支持和反馈

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