建立连接
要想利用Excel访问Word,首先要建立对Word的连接,这里的连接可以分为:前期绑定与后期绑定。
前期绑定
打开Visual Basic视图,依次点击【工具】-【引用】-【Microsoft Word16.0 Object Library】,这里的office版本是16版本的,所以选择Microsoft Word16.0 Object Library,如果其它版本,对应选择即可。如下图所示:
这样,即可完成对Word的连接。测试:
在模块中输入以下代码,点击运行按钮,即可发现,当前文件夹内的test文档(Word)
蓝色字体为注释部分明细代码展示如下:
Sub 前期绑定()
Dim wdapp As Word.Application
Dim wdoc As Document
Set wdapp = New Word.Application
Set wdoc = wdapp.Documents.Open(ThisWorkbook.Path & "\test.docx")
wdapp.Visible = True
Set wdapp = Nothing
Set wdoc = Nothing
End Sub
这样,我们就可以通过Excel利用VBA直接访问Word了。
后期绑定
后期绑定直飞输入一行代码即可:
Set wdap=createobject("word.application")
测试:
输入以下代码:
蓝色字体为注释部分明细代码展示如下:
Sub 后期绑定()
Dim wdapp As Object, wdoc As Object
Set wdapp = CreateObject("Word.Application")
Set wdoc = wdapp.Documents.Open(ThisWorkbook.Path & "\DEMO\test.docx")
wdapp.Visible = True
Set wdapp = Nothing
Set wdoc = Nothing
End Sub
小伙伴们可以尝试下,在当前工作簿目录下新建一个Word文档,并在Excel中输入以上代码,即可发现,Word已被打开!纸上得来终觉浅,绝知此事要躬行,一定要亲手尝试哦!
小结
今天我们就先说到这里,如果利用VBA访问Word,后续我们在继续介绍如果利用VBA技术去操作Word,提取数据之类的;
觉得有用的小伙伴,记得关注我哦,定期分享数据小技巧!