ExcelVBA操作Word入门篇.docx
《ExcelVBA操作Word入门篇.docx》由会员分享,可在线阅读,更多相关《ExcelVBA操作Word入门篇.docx(2页珍藏版)》请在冰豆网上搜索。
ExcelVBA操作Word入门篇
本文的对象是:
有一定ExcelVBA基础,对WordVBA还没有什么认识,想在Excel中通过VBA操作Word还有困难的人。
一、新建Word引用
需要首先创建一个对WordApplication对象的引用。
在VBA中,工具-引用,选取“MicroSoftWord11.0ObjectLibrary”。
方法一、NewWord.Application
DimWordappAsWord.Application
SetWordapp=NewWord.Application
Wordapp.Visible=True '可见
'Wordapp.ScreenUpdating=False '屏幕刷新
DimWordDAsWord.Document '定义word类
SetWordD=Wordapp.Documents.Add '新建文档
‘SetWordD=Wordapp.Documents.open() '打开文档
……
WordD.Close '关闭文档
SetWordD=Nothing
WordApp.Quit '退出Word对象
方法二、CreateObject
DimWordAppAsObject
SetWordApp=CreateObject("Word.Application") '新建Word对象
‘后续操作及退出一样……
方法三、GetObject
文件已打开的情况下,使用:
SetWordD=GetObject(),可建立对文档的引用,如果文件没有打开,则还需要先用方法一或二来操作。