Activedocument编程实例:[6]

2025-04-02 03:34:44

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

Activedocument编程实例:[6]
声明:本网站引用、摘录或转载内容仅供网站访问者交流或参考,不代表本站立场,如存在版权或非法内容,请联系站长删除,联系邮箱:site.kefu@qq.com。
猜你喜欢