WORDVBA中Document对象与
历经岁月，走过世事三千，内心仍为自己留有一块净土，不畏人言，自然坦荡，活得自在，过得心安。。
我给VBA的定义：VBA是个人小型自动化处理的有效工具。利用好了，可以大大提高自己的劳动效率，而且可以提高数据的准确度。我推出的VBA系列教程共十套(本文的最后附有VBA教程目录和VBA工具目录)，现在已经全部完成。
如果您VBA是入门阶段，可以打包选择7.1.3.9教程，第7套教程是入门，第1套教程是入门后的提高，第3套教程字典是必备的VBA之精华，第9套教程是实用的典型案例讲解。如果您有了一定的VBA基础可以根据自己的需要，进行教程的选择。教程提供的程序源码文件就如一座大型的代码库支持着大家的工作。同时还有实用的资料送给学员。
VBA是面向对象编程的语言，博大精深。很多朋友咨询英语和VBA的关系，这里我会分享些一些有用的VBA案例：《VBA即用型代码案例（汉英）》，案例中我会用汉语和英语同时发布，学员从中可以更好的领会和掌握VBA中用到的一些英语。今日的内容：WORD_VBA中Document对象与Range对象
第六章Word对象及示例
WordObjectsandMacroExamples
2Document对象DocumentObject
文档对象-Word文档
DocumentObject–AWorddocument
1）活动文档
ActiveDocument:
ActiveDocument.PrintOut
2）激活文档
ActiveDocument
Documents("Example.docx").Activate
3）当前文档
ThisDocument
ThisDocument.PrintOut
4）变量文档
DocumentVariables
SubmynzVarExample()
DimoDocAsDocument
SetoDoc=ActiveDocument
oDoc.PrintOut
EndSub
5）打开文档
OpenDocument
Documents.Open"c:\Users\SomeOne\Desktop\TestPM.docx"
6）打开文档到变量
OpenDocumenttoavariable
DimoDocasDocument
SetoDoc=Documents.Open("c:\Users\SomeOne\Desktop\TestPM.docx")
7）创建文档
CreateNewDocument
Documents.Add
8）基于某个模板创建一个新文档
createanewdocbasedonsometemplate:
Documents.AddTemplate:="C:\ProgramFiles\MicrosoftOffice\Templates\MyTemplate.dotx"
9）基于某个模板创建一个新文档到变量
Createanewdocumentbasedonatemplateintoavariable
DimoDocasDocument
SetoDoc=Documents.Add(Template:="C:\ProgramFiles\MicrosoftOffice\Templates\MyTemplate.dotx")
10）保存文档
SaveDocument
ActiveDocument.Save
11）另存为文档
SaveAs
ActiveDocument.SaveAsFileName:=c:\Users\SomeOne\Desktop\test2.docx",FileFormat:=wdFormatDocument
12）关闭文档
CloseDocument
ActiveDocument.ClosewdSaveChanges
13）不保存关闭文档
withoutsavingchanges
ActiveDocument.ClosewdDoNotSaveChanges
14）打印文档
PrintDocument
ActiveDocument.PrintOut
3Range对象RangeObject
范围对象-Word文档的一部分
RangeObject–ApartofaWorddocument
1)范围可以是文档的任何部分，包括整个文档
Rangecanbeanypartofdocument,includingentiredocument:
DimoRangeAsRange
SetoRange=ActiveDocument.Content
2)一个字符
onecharacter
DimoRangeAsRange
SetoRange=ActiveDocument.Range.Words(1)
3）将第二段的第一个单词加粗：
Inthefollowingexamplewewillmakethefirstwordofsecondparagraphbold:
DimoRangeAsRange
SetoRange=ActiveDocument.Paragraphs(2).Range.Words(1)
oRange.Bold=True
4）设置Range的文本值：
TosetthetextvalueofaRange:
DimoRangeAsRange
SetoRange=ActiveDocument.Paragraphs(2).Range.Words(1)
oRange.Text=“Hello”
提示：注意“Hello”后面的空格。因为单词对象包含一个单词后的空格，只有“hello”我们会得到“Hellonextword”
Tip:Notethespaceafter“Hello”.Becausewordobjectincludesspaceafterword,withjust“hello”wewouldget“Hellonextword”
5）更改字体
Changefont
oRange.Font.Name="Arial"
6）在消息框中显示特定范围内的字符数
Displayinmessageboxnumberofcharactersinparticularrange
MsgBoxoRange.Characters.Count
7）在它前面插入一些文本
Insertsometextbeforeit
oRange.InsertBefore"thisisinsertedtext"
8）为范围添加注脚
Addafootnotetorange
ActiveDocument.Footnotes.AddRange:=oRange,_
Text:="作者：ningzhe"
9)将其复制到剪贴板
Copyittoclipboard
oRange.Copy
‘通常，您需要更改特定范围所指的内容。所以你可以修正它的开始和结束
oRange.Start=5
oRange.End=50
我20多年的VBA实践经验，全部浓缩在下面的各个教程中：
这世上有两个我，一个躯壳喂日常，一个灵魂补岁月.一个在文字里白马春衫慢慢行，一个在生活里蝇营狗苟兀穷年。。
转载请注明：http://www.abuoumao.com/hyfz/3701.html
