Excel VBA 操作 Word(入门篇)

《Excel VBA 操作 Word(入门篇)》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、本文的对象是：有一定ExcelVBA基础，对WordVBA还没有什么认识，想在Excel中通过VBA操作Word还有困难的人。一、新建Word引用需要首先创建一个对WordApplication对象的引用。在VBA中，工具-引用，选取“MicroSoftWord11.0ObjectLibrary”。方法一、NewWord.Application  DimWordappAsWord.Application  SetWordapp=NewWord.Application  Wordapp.Visible=True              

2、'可见  'Wordapp.ScreenUpdating=False        '屏幕刷新  DimWordDAsWord.Document    '定义word类SetWordD=Wordapp.Documents.Add            '新建文档‘SetWordD=Wordapp.Documents.open(filename)      '打开文档……WordD.Close                '关闭文档SetWordD=NothingWordApp.Quit                '退出Word对象

3、方法二、CreateObject  DimWordAppAsObject  SetWordApp=CreateObject("Word.Application")  '新建Word对象‘后续操作及退出一样……方法三、GetObject文件已打开的情况下，使用：SetWordD=GetObject(filename)，可建立对文档的引用，如果文件没有打开，则还需要先用方法一或二来操作。至于方法一和方法二的区别，在网上询问了一下，大师们的回答是：方法一：前期绑定,好处是在对象后输入句点可以给出快速提示，因为需要先引用对象，所以容易出现版本兼

4、容问题。方法二：后期绑定，没有提示，根据运行代码机器上对象的版本创建对象，兼容性好。提示：有时二者有较大区别，可论坛搜索字典对象，建议编写代码时使用前期绑定，发布时使用后期绑定。二、认识Word的结构Excel有：Excel.Application                ’Excel引用Excel.Application.Workbooks        ’工作簿Excel.Application.Workbooks.Sheets（1）    ’工作表工作表下是Range，区域；Cells(row,col)，单元格Word有:W

5、ord.ApplicationWord.Application.Documents        ’文档文档下有字符、单词、句子、段落和节。字符组成单词，单词组成句子，句子组成段落。此外，每个文档具有一个包含一个或多个节的Sections集合，每一个节都有一个包含该节页眉和页脚的HeadersFooters集合。Characters(index)Words(index)Sentences(index)Paragraphs(index)Sections(index)前三个返回Range对象，能直接使用任何区域属性或方法修改该Range对象

6、。后面二个返回该集合的单个成员，而不是Range对象，不能直接使用区域属性或方法。如下使用例子：Words(1)后面直接.Copy，而.Paragraphs(1)和.Copy之间多了一个Range。Selection.Words(1).CopyActiveDocument.Paragraphs(1).Range.CopyCharacters：字符，ActiveDocument.Sentences(1).Characters.Count，第一句的字符总数。Words：单词，对于英文来说是二个空格之间的字母加空格，对于中文，一个标点符号，一

7、个汉字，或一个词（按照微软的输入法中的词组定义？）。（感觉不是很可靠？）Sentences：句子，以句号结束？感觉也不是一个很可靠的范围，感觉还是字符、段落、节，控制起来靠谱一些。Range对象表示文档中的一个连续范围，由一个起始字符位置和一个终止字符位置定义。这个连续范围可以小到一个插入点，大到整个文档。  DimrngPaAsRangeSetrngPa=ActiveDocument.Characters(1)    ‘第一个字符  SetrngPa=ActiveDocument.Range(_    Start:=ActiveDoc

8、ument.Paragraphs(1).Range.Start,_    End:=ActiveDocument.Paragraphs(4).Range.End)        ‘第1段头到第4段尾  Se