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编辑区，点击运行即可观察运行效果！