本文的对象是:有一定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...