ExcelVBA操作Word(入门篇)VIP专享

本文的对象是：有一定Excel VBA 基础，对Word VBA 还没有什么认识，想在Excel中通过VBA 操作Word 还有困难的人。 一、新建 Word 引用 需要首先创建一个对 Word Application 对象的引用。在VBA 中，工具-引用，选取“MicroSoft Word 11.0 Object Library”。 方法一、New Word.Application Dim Wordapp As Word.Application Set Wordapp = NewWord.Application Wordapp.Visible = True '可见 'Wordapp.ScreenUpdating =False '屏幕刷新 Dim WordD As Word.Document '定义 word 类 Set WordD = Wordapp.Documents.Add '新建文档 ‘Set WordD = Wordapp.Documents.open(filename) '打开文档 … … WordD.Close '关闭文档 Set WordD = Nothing WordApp.Quit '退出 Word 对象 方法二、CreateObject Dim WordApp As Object Set WordApp =CreateObject("Word.Application") '新建 Word 对象 ‘后续操作及退出一样… … 方法三、GetObject 文件已打开的情况下，使用：SetWordD=GetObject(filename)，可建立对文档的引用，如果文件没有打开，则还需要先用方法一或二来操作。 至于方法一和方法二的区别，在网上询问了一下，大师们的回答是： 方法一：前期绑定,好处是在对象后输入句点可以给出快速提示，因为需要先引用对象，所以容易出现版本兼容问题。 方法二：后期绑定，没有提示，根据运行代码机器上对象的版本创建对象，兼容性好。 提示：有时二者有较大区别，可论坛搜索字典对象，建议编写代码时使用前期绑定，发布时使用后期绑定。 二、认识 Word 的结构 Excel 有： Excel.Application ’Excel 引用 Excel.Application. Workbooks ’工作簿 Excel.Application. Workbooks.Sheets（1） ’工作表 工作表下是 Range，区域；Cells(row,col)，单元格 Word 有: Word.Application Word.Application.Documents ’文档 文档下有字符、单词、句子、段落和节。字符组成单词，单词组成句子，句子组成段落。此外，每个文档具有一个包含一个或多个节的 Sections 集合，每一个节都有一个包含该节页眉和页脚的 HeadersFooters 集合。 Characters(index) Words(index) Sentences(index) Paragraphs(index) Sections(index) 前三个返回 Range 对象，能直接使用任何区域属性或方法修改该 Range 对象。后面二个返回该集合的单个成员，而不是 Ran...