Activedocument编程实例：[6]

1、'获取当前文档的名称：Sub GetWordName()Dim sName As String ‘声明一个字符串懈吡赜痖变量sName = ActiveDocument.Name '将当前文档的名称赋予字符串变量MsgBox sName ‘弹出字符串变量值End Sub

2、'获取当前文档的路径：Sub GetWordPath()Dim sPath As String ‘声明一个字符串变量sPath= ActiveDocument.path '将当前文档的名称赋予字符串变量MsgBox sPath‘弹出字符串变量值End Sub

3、将上面的两段代码拷贝至VBA编辑区，点击运行即可观察运行效果！