ExcelVBA操作Word入门篇.docx

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（），可建立对文档的引用，如果文件没有打开，则还需要先用方法一或二来操作。