ExcelVBA操作Word入门篇.docx
- 文档编号:858638
- 上传时间:2022-10-13
- 格式:DOCX
- 页数:11
- 大小:88.90KB
ExcelVBA操作Word入门篇.docx
《ExcelVBA操作Word入门篇.docx》由会员分享,可在线阅读,更多相关《ExcelVBA操作Word入门篇.docx(11页珍藏版)》请在冰豆网上搜索。
ExcelVBA操作Word入门篇
Excel-VBA-操作-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(filename) '打开文档
……
WordD.Close '关闭文档
SetWordD=Nothing
WordApp.Quit '退出Word对象
方法二、CreateObject
DimWordAppAsObject
SetWordApp=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对象。
后面二个返回该集合的单个成员,而不是Range对象,不能直接使用区域属性或方法。
如下使用例子:
Words
(1)后面直接.Copy,而.Paragraphs
(1)和.Copy之间多了一个Range。
Selection.Words
(1).Copy
ActiveDocument.Paragraphs
(1).Range.Copy
Characters:
字符,ActiveDocument.Sentences
(1).Characters.Count,第一句的字符总数。
Words:
单词,对于英文来说是二个空格之间的字母加空格,对于中文,一个标点符号,一个汉字,或一个词(按照微软的输入法中的词组定义?
)。
(感觉不是很可靠?
)
Sentences:
句子,以句号结束?
感觉也不是一个很可靠的范围,感觉还是字符、段落、节,控制起来靠谱一些。
Range对象表示文档中的一个连续范围,由一个起始字符位置和一个终止字符位置定义。
这个连续范围可以小到一个插入点,大到整个文档。
DimrngPaAsRange
返回空字符串,表示Word文档
(07)Application.DisplayRecentFiles '返回是否显示最近使用的文档的状态
(08)Application.Documents.Count '返回当前打开的文档数
(09)Application.FontNames.Count ‘返回当前可用的字体数
(10)Application.Left ‘返回当前文档的水平位置
(11)Application.MacroContainer.FullName '返回当前文档名,包括所在路径
Application.MacroContainer.pach '返回当前文档路径
Application.ActiveDocument.Path ‘获得文件的相对路径
(12)Application.NormalTemplate.FullName '返回文档标准模板名称及所在位置
(13)Application.RecentFiles.Count '返回最近打开的文档数目
(14)Application.System.CountryRegion '返回应用程序所在的地区代码
(15)Application.System.FreeDiskSpace ‘返回应用程序所在磁盘可用空间
(16)Application.System.HorizontalResolution '返回显示器的水平分辨率
(17)Application.System.VerticalResolution '返回显示器的垂直分辨率
(18)Application.System.LanguageDesignation '返回系统所使用的语言
(19)Application.System.MathCoprocessorInstalled ‘返回系统是否安装了数学协处理器
(20)Application.System.OperatingSystem ‘返回当前操作系统名
(21)Application.System.ProcessorType '返回计算机处理器名
(22)Application.System.Version ‘返回操作系统的版本号
(23)Application.Templates.Count '返回应用程序所使用的模板数
(24)Application.UserName '返回应用程序用户名
(25)Application.Version ‘返回应用程序的版本号
2、Documents/Document对象
(26)ActiveDocument.AttachedTemplate.FullName'返回当前文档采用的模板名及模板所在位置
(27)ActiveDocument.Bookmarks.Count '返回当前文档中的书签数
(28)ActiveDocument.Characters.Count '返回当前文档的字符数
(29)ActiveDocument.CodeName ‘返回当前文档的代码名称
(30)ActiveDocument.Comments.Count‘ 返回当前文档中的评论数
(31)ActiveDocument.Endnotes.Count '返回当前文档中的尾注数
(32)ActiveDocument.Fields.Count '返回当前文档中的域数目
(33)ActiveDocument.Footnotes.Count‘返回当前文档中的脚注数
(34)ActiveDocument.FullName '返回当前文档的全名及所在位置
(35)ActiveDocument.HasPassword '当前文档是否有密码保护
(36)ActiveDocument.Hyperlinks.Count '返回当前文档中的链接数
(37)ActiveDocument.Indexes.Count '返回当前文档中的索引数
(38)ActiveDocument.ListParagraphs.Count '返回当前文档中项目编号或项目符号数
(39)ActiveDocument.ListTemplates.Count '返回当前文档中使用的列表模板数
(40)ActiveDocument.Paragraphs.Count '返回当前文档中的段落数
(41)ActiveDocument.Password=XXX '设置打开文件使用的密码
(42)ActiveDocument.ReadOnly '获取当前文档是否为只读属性
(43)ActiveDocument.Saved '当前文档是否被保存
(44)ActiveDocument.Sections.Count '当前文档中的节数
(45)ActiveDocument.Sentences.Count ‘当前文档中的语句数
(46)ActiveDocument.Shapes.Count '当前文档中的形状数,图形?
(47)ActiveDocument.Styles.Count '当前文档中的样式数
(48)ActiveDocument.Tables.Count ‘当前文档中的表格数
(49)ActiveDocument.TablesOfAuthorities.Count‘返回当前文档中的引文目录数
(50)ActiveDocument.TablesOfAuthoritiesCategories.Count‘返回当前文档中引文目录类别数
(51)ActiveDocument.TablesOfContents.Count‘返回当前文档中的目录数
(52)ActiveDocument.TablesOfFigures.Count '返回当前文档中的图表目录数
3、Paragraphs/Paragraph对象
(53)Selection.Paragraphs.Count '返回所选区域的段落数
(54)Selection.Paragraphs.First '返回所选区域中的第一段
(55)ActiveDocument.Paragraphs
(1).LeftIndent '返回当前文档中第一段的左缩进值
(56)ActiveDocument.Paragraphs
(1).LineSpacing'返回当前
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- ExcelVBA 操作 Word 入门