Word VBA教程:PrivateProfileString属性

返回或设置配置文件或 Windows 注册表中的一个字符串。String 类型,可读写。

expression.PrivateProfileString(FileName, Section, Key)

expression   必需。该表达式返回一个System对象。

FileName   String 类型,必需。配置文件的文件名。如果不指定路径,则假设为 Windows 文件夹。如果使用 Windows 95、Windows 98 或 Windows NT 从注册表返回值,则 FileName 必须是空字符串 ("")。

Section   String 类型,必需。配置文件中包含 Key 的节的名称。在 Windows 配置文件中节名显示在相关关键字之前的方括号中(Section 中无方括号)。如果从 Windows 注册表返回一个值,Section 应是指向子关键字的完整路径,包括根目录(例如,“HKEY_CURRENT_USER\Software\Microsoft\Office\version\Word\Options”)。

Key   String 类型,必需。要进行检索的关键字设置或注册表项值。在 Windows 配置文件中,关键字名称后跟等号 (=) 和设置。如果从 Windows 注册表返回项目的值,则 Key 应是 Section 指定的子关键字的项目的名称(例如,“STARTUP-PATH”)。

说明

可编写宏,该宏利用配置文件存储和检索设置。例如,可在退出 Word 时存储活动文档名,下次启动 Word 时可自动重新打开该文档。配置文件是一个文本文件,其内容安排类似 Windows 3.x 版的 WIN.INI 文件。

VBA示例

本示例将当前文档名设置为 Settings.txt 中 MacroSettings 标题下的 LastFile 设置。


System.PrivateProfileString("C:\Settings.txt", "MacroSettings", _
    "LastFile") = ActiveDocument.FullName

本示例从 Settings.txt 中返回 LastFile 设置,然后打开存储在 LastFile 中的文档。


LastFile = System.PrivateProfileString("C:\Settings.Txt", _
    "MacroSettings", "LastFile")
If LastFile <> "" Then Documents.Open FileName:=LastFile

本示例显示 Windows 注册表中 EmailName 项的值。


aName = System.PrivateProfileString("", _
    "HKEY_CURRENT_USER\Software\Microsoft\" _
    & "Windows\CurrentVersion\Internet Settings", "EmailName")
MsgBox aName

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号