Wｏrd ＶＢA 学习交流资料目录一、对象模型打开Ｗoｒd VＢA协助，一方面看到的是“Worｄ的对象模型”（如下所示)图表 1知识点：懂得Aｐplｉｃatioｎ对象(Word应当程序的总对象)、Ｄｏctｕmｅnｔｓ对象(文档集对象）、Paragraphｓ对象（段落集）、Selectioｎ（选中区域）对象、Tａｂｌes(表格）对象、Sectｉons（节,即Woｒd的第一节）对象、Hｅａdeｒs（页眉)对象二、新增功能(略)因素:我们的初衷大多是从“零”开始,最基本的我们都不懂得,何来“新增”啊？但是，后来学到有关的知识时，会跳到这里,学某些新增的“对象”、“措施”、“事件”、“属性”等三、编程概念对象是 Viｓuaｌ Basic 的构造基本，在 Visｕａl Basiｃ 中进行的所有操作几乎都与修改对象有关Microsｏft Wｏrd 的任何元素，如文档、表格、段落、书签、域等,都可用 Visｕal Basiｃ 中的对象来表达什么是对象和集合?对象代表一种 Wｏｒｄ 元素，如文档、段落、书签或单独的字符集合也是一种对象，该对象涉及多种其她对象,一般这些对象属于相似的类型；例如,一种集合对象中可涉及文档中的所有书签对象。
通过使用属性和措施，可以修改单独的的对象，也可修改整个的对象集合例如:ＡctｉveDocument.Ｐａragraphｓ(２).Raｎge.Characteｒs(1）.Fｏnｔ.Coloｒ = wdCoｌoｒRed在Word 的ＶBA中，大多数对象都是通过Appｌiｃation来访问，但有几种可以直接访问:如actｉveｄoｃｕmneｔ、dｏcumeｎts等，固然通过ａpplicatｉｏn对象也行,但无疑后者更简略什么是属性？属性是对象的一种特性或该对象行为的一种方面例如,文档属性涉及其名称、内容、保存状态以及与否启用修订若要更改一种对象的特性，可以修改其属性值若要设立属性的值,可在对象的背面紧接一种句号、属性名称、一种等号及新的属性值下列示例在名为“ＭyDoc.doｃ”的文档中启用修订Ｓub TｒａｃkCｈaｎges() Documenｔs("Ｓaｌes．doc").TrackRｅvisiｏnｓ = TrｕeEnd Sｕｂ在本例中,Ｄｏcｕｍeｎｔs 引用由打开的文档(注意是对打开后文档的操作)构成的集合，而“MyDoc.doc”标记集合中单独的文档并设立该文档的 ＴrackReviｓioｎｓ 属性。
不能设立某些属性属性的“协助”主题中会标明可以设立该属性（可读写），或只能读取该属性（只读)通过返回对象的一种属性值,可以获取有关该对象的信息下列示例返回活动文档的名称Sub GetDocumenｔＮａmｅ（） Dim strDocNａｍｅ As Sｔrｉnｇ ｓｔrDocNaｍe = ActiｖeＤoｃuｍent.Naｍe ＭsgBoｘ strDocＮamｅEnｄ Sub(这个例子输出的没有途径，只有名字．若带途径的话,把strDocName = ActｉveDocuｍｅnt．Naｍe改为：ｓtrDｏcName = AｃtiｖeＤoｃuｍent．Ｐａｔh & AｃtiveDocuｍent．Nａme)在本例中，AｃtiveDocｕment 引用 Ｗorｄ 活动窗口中的文档该文档的名称赋给了 stｒDocName 变量阐明:每个属性的“协助”主题表白可以设立该属性(可读写)，只能读取该属性（只读)，或只能写入该属性（只写)此外“Viｓｕaｌ Ｂaｓic 编辑器”中的“对象浏览器”在浏览窗口的底部显示所选属性的读写状态什么是措施?措施是对象可以执行的动作例如，只要文档可以打印,Document 对象就具有 PrｉntＯuｔ 措施。
措施一般带有参数，以限定执行动作的方式下列示例打印活动文档的前三页Sub PriｎｔＴhreePagｅs（) AcｔｉveDoｃument.PrｉntOut Ranｇｅ:＝wｄPrintRangeOｆPages, Pages:=＂1-３"Enｄ Sub在大多数状况下，措施是动作,而属性是性质使用措施将导致发生对象的某些事件(因此,有人说:“措施是集成了的事件”),而使用属性则会返回对象的信息,或引起对象的某个性质的变化返回一种对象可通过返回集合中单独的对象的方式来返回大多数对象例如 Documeｎｔs 集合涉及打开的 Wｏrd 文档可使用（位于 Ｗord 对象构造顶层的)Ａpplication 对象的 Ｄocuｍenｔs 属性返回 Docｕmeｎts 集合在访问集合之后，可以通过在括号中使用索引序号(与解决数组的方式相似)返回单独的对象索引序号一般是一种数值或名称具体内容，请参阅返回集合中的对象下列示例使用 Dｏcuｍenｔs 属性访问 Docｕｍentｓ 集合索引序号用于返回 Ｄｏｃｕmentｓ 集合中的第一篇文档然后将 Ｃlose 措施应用于 Ｄocument 对象，关闭 Documents 集合中的第一篇文档。
Sub ClosｅDoｃuｍent() Ｄocumeｎts(1）.ＣｌoseEnｄ Sub'这个也许后来大多不用，因素就是索引序号在变,当打开、关闭一种文档时，相应的序号就增长或减少了数字，因此不好把握，大多不用下列示例使用名称(指定为一种字符串)来辨认 Docｕmｅnts 集合中的 Docuｍｅnｔ 对象Sub ClｏｓｅSaleｓDｏc() Ｄｏcuments(＂Sales．doｃ").ClｏｓeEｎd Ｓub＇这个常用，让某个指定的文档关闭集合对象一般具有可用于修改整个对象集合的措施和属性Docuｍentｓ 对象具有 Sａvｅ 措施，可用于保存集合中的所有文档下列示例通过使用 Save 措施保存所有打开的文档Suｂ SaveAllOpenDｏcuments() Docｕmeｎｔs.SaveEnd Sｕb'所有的文档保存,相称于按住Ｓhift再点击文献下的所有保存命令Docｕmｅnt 对象也可使用 Save 措施保存单独的文档下列示例保存名为 Sａlｅs．doc 的文档Ｓub SaveSａlｅsDoc(） Ｄocｕments("Saｌes.doc").SaｖeEnd Suｂ＇对指定的文档保存。
若要返回一种处在 Wｏrｄ 对象构造底层的对象,就必须使用可返回对象的属性和措施，“进一步”到该对象若要查看该过程的执行，请打开“Visｕal Basiｃ 编辑器”，在“视图”菜单上单击“对象浏览器”单击左侧“类”列表中的 Applicatioｎ然后单击右侧“成员”列表中的 ActｉveDocumｅnt对象浏览器”底部会显示文字,表白 ＡctiveDocument 是只读的,该属性返回 Document 对象然后单击“对象浏览器”底部的 Dｏcuｍeｎｔ，则会在“类”列表中自动选定 Docuｍeｎt 对象,并将在“成员”列表中显示 Ｄｏｃuｍent 对象的成员滚动成员列表,找到 Closｅ，单击 Ｃlose 措施对象浏览器”窗口底部会显示文字,阐明该措施的语法有关该措施的具体内容，请按 F1 (作者注:不把F１磨平，VＢA很难真正掌握^－^）或单击“协助”按钮,以跳转到 Close 措施的“协助”主题根据这些信息可编写下列指令，以关闭活动文档Sub CｌｏseDｏcＳaｖeＣhanｇes() ActｉveＤoｃumｅnt.Close SａveＣhangｅs：=ｗｄSaveChanｇesEnd Suｂ'关闭并保存变化。
这里显然，保存为措施,背面有参数下列示例将活动文档窗口最大化Sｕb MaximizeDocumentＷinｄｏw() ActivｅDoｃument.AcｔｉveＷindoｗ.WｉndowＳtaｔｅ = wdWindoｗＳtateMａxｉｍizeＥｎd Ｓub'这个是赋最大化值属性给活动窗口AｃtｉveWiｎdow 属性返回一种 Ｗｉndow 对象，该对象代表活动窗口将 WiｎdowSｔatｅ 属性设为最大常量(ｗdWｉndowＳｔateMaｘimiｚe)下列示例新建一篇文档，并显示“另存为”对话框，这样即可为文档提供一种名称Ｓub CreａteSaｖｅNewDｏcumenｔ() Docuｍenｔs.Ａdd.SaｖeEnd Suｂ＇这个故意思，添加新文档并保存，一步,利害吧'如果不是看协助，你敢这样用吗?措施.措施Ｄocumｅnts 属性返回 Ｄocuｍents 集合Aｄd 措施新建一篇文档,并返回一种 Documｅｎt 对象然后对 Dｏcument 对象应用 Save 措施如上所示,可以使用措施或属性来访问下层对象也就是说,在对象构造中，将措施或属性应用于某个对象的上一级对象,可返回该下级对象。
返回所需对象之后,就可以应用该对象的措施并控制其属性要查看对象构造分层的状况,请参阅 Mｉcrｏsoｆt Word 对象获得有关对象、措施和属性的“协助”信息在熟悉 Worｄ 对象模型之前,可以运用某些工具来进一步理解对象构造自动成员列表重要）在“Vｉsuａl Basic 编辑器”中，在对象背面键入句号 （.） 后，即显示可用的属性和措施的列表例如,如果键入“Aｐｐlicatｉｏｎ．”，就会显示 Aｐpｌiｃａtioｎ 对象的措施和属性的下拉列表也可以使用“协助”找到可应用于对象的属性和措施协助”中的每个对象主题都涉及一种“参阅”跳转，以显示该对象的属性和措施列表在“对象浏览器”或某一模块中按 F１，可跳转到相应的“协助”主题 Micrｏsｏft Wｏrd 对象该主题阐明在分级构造中 Woｒd 对象的排列方式在构造图中单击一种对象，可显示相应的“协助”主题 对象浏览器Ｖｉsual Baｓic 编辑器”中的“对象浏览器”显示 Word 对象的成员（属性和措施）－－-------－---－--－--－---------－-－--------实例：打开Wｏｒd后,按Aｌt+F11,浮现ＶBE窗口,双击右边的Ｔｈisdocｕmｅnt(固然,放究竟下的模块中任一种也行)，输入如下内容：Suｂ aｕｔｏeｘec() Aｐplicａｔion.Ｃaｐtioｎ = "我爱我家!＂End Sub这时，关闭Ｗord，再打开Word。
你的标题就有“×××.doc—我爱我家!”了!图表 ２固然,也可以进一步做成这样:Sub ａｕtoｅxｅｃ（)Diｍ a a = MｓgBoｘ("我家我家", vbYｅｓNo, "这是一种实验") If a <＞ 6 Tｈen Ａpplicatｉon.Quiｔ End IfＥnd Sub＇功能就是打开Ｗord时,显示此对话框，如果点了“是”就不作解决即打开Word,否则,退出Qｕｉt也可以写成这样：Sub aｕtoexｅc(）Ｄｉm a a = InpｕtBox（"你的姓名"， "防君子,不防小人！＂) If a <> "小小＂ Ｔhｅn Applｉcatiｏn.Quit End IfEnd Sub'功能就是打开Word时，显示此对话框,如果输入的不是小小，就打不开ＭsgBｏx 函数参照:在对话框中显示消息，。