[CSDN－Word教程]自动完成Word 日常任务
& &&&利用VBA 编程，可以使许多日常的任务自动完成，使用户的工作
更有效率。
11.7.1 在启动时显示打开对话框
& &一般情况下启动Word，Word 会认为是创建一个新文档。如果只
是想打开一个旧文档进行编辑，在Word 启动时显示【打开】对话框
可以节省许多时间。为此，可以创建生成一个宏。
Public Sub openfile（）
'建立一个宏，使在Word 启动时运行该宏
Dialogs（wdDialogFileOpen）.Show
& &将此代码加入模板中。为了使Word 每次启动时自动执行该宏，
用鼠标右键单击桌面上Word 的快捷方式图标，显示其快捷方式属性，
将“/m OpenFile”加入到“开始”路径中。这里运用了一个小技巧：
用“/m”加入“开始”路径以防止其他宏在启动时运行。当怀疑被
Word 宏病毒感染时，也可以利用加“/m”的方法来进行。
11.7.2 为文字设置格式
& &下面的代码使用 Selection 属性来为选定的文字应用字符和段
落格式。使用 Font 属性可获得字体格式属性和方法，使用
Microsoft Word 对象属性可访问段落格式属性和 方法。
With Selection.Font
.Name = &Times New Roman&
.Size = 14
.AllCaps = True
With Selection.ParagraphFormat
.LeftIndent = InchesToPoints（0.5）
11.7.3 将格式应用于某一范围
& &下面的代码定义一个 Range 对象MyRange，该对象引用活动文档
的前三个段落。通过使用 Font 属性和 ParagraphFormat 对象可以
编排Range（myRange）的格式。
Set myRange = ActiveDocument.Range
（ Start:=ActiveDocument.Paragraphs （ 1 ） .Range.Start, _
End:=ActiveDocument.Paragraphs（3）.Range.End）
With myRange
.Font.Name = &Arial&
.ParagraphFormat.Alignment = wdAlignParagraphJustify
11.7.4 插入文字并应用字符和段落格式
& &下面的代码在当前文档的顶部添加单词【标题】。第一段居中对
齐，在该段落之后添加了半英寸的间距。【标题】设为 24 磅的【宋
体】字体。
Set oRange = ActiveDocument.Range（Start:=0, End:=0）
With oRange
.InsertAfter Text:=&标题&
.InsertParagraphAfter
.Font.Name = &宋体&
.Font.Size = 24
With ActiveDocument.Paragraphs（1）
.Alignment = wdAlignParagraphCenter
.SpaceAfter = InchesToPoints（.5）
& &下面的代码切换所选内容第一段的段前间距。该宏检索当前的段
前间距值，如果该值是 12 磅，则删除段前间距（将SpaceBefore
属性设置为0）。如果段前间距不是 12，则将 SpaceBefore 属性设
置为 12 磅。
Set oParagraph = Selection.Paragraphs（1）
If oParagraph.SpaceBefore = 12 Then
oParagraph.SpaceBefore = 0
oParagraph.SpaceBefore = 12
& &下面的代码切换选定文字的加粗格式。
& &Selection.Font.Bold = wdToggle
& &下面的代码将左边距增加 0.5 英寸。PageSetup 对象包含文档
的所有页面设置属性（左边距、下边距、纸张大小，等等）。LeftMargin
属性用来返回并设置左边距。
iMargin = ActiveDocument.PageSetup.LeftMargin
iMargin = iMargin + InchesToPoints（0.5）
ActiveDocument.PageSetup.LeftMargin = iMargin
11.7.5 编辑文字
& &日常工作中，处理文字是最经常用到的事情，本节介绍如何利用
VBA 编程实现编辑文字的自动化。当然，用户最好是利用录制宏的办
法把代码转换为VBA 代码后再修改，这样效率高，又不容易出错。
11.7.5.1 从文档返回文本
& &使用Text 属性可以返回Range 或 Selection 对象中的文本。下
面的代码选定下一个格式设为【标题1】样式的段落。然后通过
MsgBox 函数显示 Text 属性的内容。
With Selection.Find
.ClearFormatting
.Style = wdStyleHeading1
.Execute FindText:=&&, Format:=True, Forward:=True,
Wrap:=wdFindStop
If .Found = True Then MsgBox Selection.Text
& &下面的指令返回选定文本：
& &strText = Selection.Text
& &下面的代码返回活动文档的第一个单词。Words 集合中的每一项
是一个 Range 对象，该对象代表一个单词。
& &aFirst = ActiveDocument.Words（1）.Text
MsgBox aFirst
& &下面的代码返回活动文档第一个书签的相关文本。
If ActiveDocument.Bookmarks.Count &= 1 Then
bookText = ActiveDocument.Bookmarks（1）.Range.Text
MsgBox bookText
11.7.5.2 选定文档中的文本
& &使用 Select 方法可以选定文档中的一项。Select 方法对许多对象都是有效的，例如 Bookmark、Field、Range 和 Table 对象。
下面的代码选定活动文档中的第一张表格。
& &ActiveDocument.Tables（1）.Select
& &下面的代码选定活动文档中的第一个域。
& &ActiveDocument.Fields（1）.Select
& &下面的代码选定活动文档中的前四个段落。Range 方法用来创建
一个 Range 对象，该对象引用前四个段落。然后将 Select 方法应
用于 Range 对象。
Set myRange = ActiveDocument.Range
（ Start:=ActiveDocument.Paragraphs （ 1 ） .Range.Start, _
End:=ActiveDocument.Paragraphs（4）.Range.End）
myRange.Select
11.7.5.3 在文档中插入文本
& &使用InsertBefore 方法可以在 Selection 或 Range 对象前后
插入文字。下面的代码在活动文档结尾处插入文字。
& &ActiveDocument.Content.InsertAfter Text:= the end.
下面的代码在所选内容前插入文字：
& &Selection.InsertBefore Text:=new text
& &在使用了InsertBefore 或 InsertAfter 方法之后，Range 或
Selection 会扩展并包含新的文本。使用 Collapse 方法可以将
Selection 或 Range 折叠到开始或结束位置。
& &利用InsertAfter 方法可将指定文本插入某一区域或所选内容的
后面。应用本方法可以扩展原区域或所选内容，使其包含新文本。
& &如果应用本方法的区域或所选内容是一个完整的段落，则在段落
结束标记之后插入文本，插入文本将出现在下一段开头。如要在段
尾插入文本，可先确定结束点，再从该位置减去 1（因段落标记是
一个字符），如下面的代码所示：
Set Doc = ActiveDocument
Set myRange = Doc.Range （ Start:=Doc.Paragraphs
（1）.Range.End - 1, _
End:=Doc.Paragraphs（1）.Range.End - 1）
myRange.InsertAfter & the end.&
11.7.5.4 修改文档的某一部分
& &Visual Basic 包含一些对象，可用这些对象修改下面的文档元
素：字符、单词、句子、段落和节。表11-4 包含了与这些文档元素
对应的属性和这些属性返回的对象。
& &使用这些属性时不带索引序号，会返回一个相同名称的集合对
象。例如，Paragraphs 属性返回 Paragraphs 集合对象。但如果通
过索引序号识别集合中的一项，就只会返回上表中第二列中的对象。
例如，Words（1） 返回一个 Range 对象。在有了一个 Range 对象
之后，可以使用这个区域的任何属性或方法修改该 Range 对象。例
如，下面的代码将所选内容的第一个单词复制到剪贴板上。
& &Selection.Words（1）.Copy
& &Paragraphs 和 Sections 集合中的项是该集合的单个成员，而
Range 对象却不是如此。但 Range 属性（返回 Range 对象）对
Paragraph 和 Section 对象都是有效的。例如，下面的代码将活动
文档的第一个段落复制到剪贴板上。
& &ActiveDocument.Paragraphs（1）.Range.Copy
& &在表11-4 中所有文档元素属性对 Document、Selection 和
Range 对象都是有效的。下面的代码表明了如何按照顺序引用
Document、Selection 和 Range 对象的这些属性。
& &下面的代码设置活动文档第一个单词的大小写。
& &ActiveDocument.Words（1）.Case = wdUpperCase
& &下面的代码将当前节的下边距设置为 0.5 英寸。
Selection.Sections （ 1 ） .PageSetup.BottomMargin =
InchesToPoints（0.5）
& &下面的代码将活动文档的字符间距设为两倍（Content 属性返回一个 Range 对象）。
Set Doc = ActiveDocument
Set myRange = Doc.Range（Start:=Doc.Words（1）.Start,
End:=Doc.Words（3）.End）
Set Doc = ActiveDocument
Set myRange = Doc.Range （ Start:=Doc.Paragraphs
（2）.Range.Start, _
End:=Doc.Paragraphs（3）.Range.End）& && &&&
& &ActiveDocument.Content.ParagraphFormat.Space2
& &修改一组文档元素：
& &要修改由一组文档元素（字符、单词、句子、段落或节）组成一
定区域的文字，就需要创建一个 Range 对象。Range 方法根据开始
和结束位置可创建 Range 对象。例如，下面的指令创建一个 Range
对象，该对象引用活动文档的前十个字符。
& &Set myRange = ActiveDocument.Range（Start:=0, End:=10）
使用 Range 对象的 Start 和 End 属性，可以创建一个新的Range 对象，该对象引用一组文档元素。例如，下面的指令创建一
个 Range 对象（myRange），该对象引用活动文档的前三个单词。
& &下面的代码创建一个 Range 对象（aRange），该对象从第二段
的开头开始，到第三段之后结束。
Set Doc = ActiveDocument
Set myRange = Doc.Range （ Start:=Doc.Paragraphs
（2）.Range.Start, _
End:=Doc.Paragraphs（3）.Range.End）
11.7.5.5 判定是否选定某一文本
& &Selection 对象的 Type 属性返回有关所选内容的信息。如果所
选内容是插入点，则下面的代码显示一条信息。
& &If Selection.Type = wdSelectionIP Then MsgBox Nothing
is selected
11.7.5.6 折迭所选内容或范围
& &使用 Collapse 方法可以将 Selection 或 Range 对象折迭到开
始或结束位置。下面的代码在所选内容的开头将所选内容折叠为一
个插入点。
& &Selection.Collapse Direction:=wdCollapseStart
& &下面的代码将 myRange 对象折叠到结束位置（在第一个单词之
& &Set myRange = ActiveDocument.Words（1）
& &myRange.Collapse Direction:=wdCollapseEnd
11.7.5.7 扩展所选内容或范围
& &下面的代码使用 MoveEnd 方法将所选内容的结尾向前扩展以多
包含三个单词。MoveLeft、MoveRight、MoveUp 和 MoveDown 方法
也可以用来扩展 Selection 对象。
& &Selection.MoveEnd Unit:=wdWord, Count:=3
& &下面的代码使用 MoveEnd 方法扩展 oRange，以包含活动文档的
前三个段落。&&
& &Set oRange = ActiveDocument.Paragraphs（1）.Range
& &oRange.MoveEnd Unit:=wdParagraph, Count:=2
11.7.5.8 修改文字
& &通过更改某一范围中的内容可更改现有的文字。下面的指令通过
将 Text 属性设置为good ，修改活动文档的第一个单词。
& &ActiveDocument.Words（1）.Text = good
& &也可以使用 Delete 方法删除现有文字，然后使用 InsertAfter
或 InsertBefore 方法插入新文字。下面的代码删除活动文档的第
一段，并插入新文字。
Set myRange = ActiveDocument.Paragraphs（1）.Range
With myRange
.InsertAfter Text:=&New text&
.InsertParagraphAfter
11.7.5.9 查找并替换文字或格式
& &Find 和 Replacement 对象具有查找和替换功能。Find 对象对
Selection 和 Range 对象有效。是否从 Selection 或 Range 对象
访问 Find 对象，会使查找操作略有不同。
& &1．查找并选定文字
& &如果是从Selection 对象访问Find 对象，当找到搜索条件时，
就会更改所选内容。下面的代码选定下一次出现的“你好”。如果
到达文档结尾还没有找到“你好”，则停止搜索。
With Selection.Find
.Forward = True
.Wrap = wdFindStop
.Text = &你好&
& &Find 对象包含各种属性，这些属性对应于【编辑】菜单【查找命令的【查找并替换】对话框中的选项。可以设置 Find 对象的单个属性，或者使用 Execute 方法及参数，如下例所示。& && &&&
& &Selection.Find.Execute FindText:= 你好,
Forward:=True, Wrap:=wdFindStop
& &'查找文字，但并不更改所选内容
& &如果是从 Range 对象访问 Find 对象，则当找到搜索条件时，
不更改所选内容，但是会重新定义 Range。下面的代码在活动文档中定位第一次出现的【粗体】。如果找到了，则重新定义该范围，
并将加粗格式应用于【粗体】。
With ActiveDocument.Content.Find
.Text = &粗体&
.Forward = True
If .Found = True Then .Parent.Bold = True
& &下面的代码使用带有参数的 Execute 方法，进行的操作与上例
Set myRange = ActiveDocument.Content
myRange.Find.Execute FindText:=&粗体&, Forward:=True
If myRange.Find.Found = True Then myRange.Bold = True
& &2．使用 Replacement 对象
& &Replacement 对象代表查找和替换操作的替换条件。Replacement
对象的属性和方法对应于【编辑】菜单【查找和替换】对话框中的
& &Replacement 对象对 Find 对象是有效的。下面的代码将所有的hi替换为【你好】。由于 Find 对象是通过 Selection 对象访问
的，所以当找到搜索条件时，会更改所选内容。
With Selection.Find
.ClearFormatting
.Text = &hi&
.Replacement.ClearFormatting
.Replacement.Text = &你好&
.Execute Replace:=wdReplaceAll, Forward:=True,
Wrap:=wdFindContinue
& &下面的代码从活动文档中删除加粗格式。Find 对象的 Bold 属
性为 True，而Replacement 对象的 Bold 属性为 False。为了查找
并替换格式，需将查找并替换的文字替换为空字符（），并将
Execute 方法的 Format 参数设置为 True。由于 Find 对象是通过
Range 对象访问的，所以不更改所选内容（Content 属性返回 Range
With ActiveDocument.Content.Find
.ClearFormatting
.Font.Bold = True
With .Replacement
.ClearFormatting
.Font.Bold = False
.Execute FindText:=&&, ReplaceWith:=&&,
Format:=True, Replace:=wdReplaceAll
11.7.5.10 处理其他各种杂务
& &1．更改视图
& &View 对象包含窗口或窗格的视图特性的属性和方法（全部显示、
显示域底纹、显示表格虚框等）。下面的代码将视图更改为页面视
& &ActiveWindow.View.Type = wdPageView
& &2．设置页眉或页脚中的文字
& &HeaderFooter 对象是由 Headers、Footers 和 HeaderFooter 属
性返回的。下面的代码更改当前页面的页脚的文字。
ActiveWindow.View.SeekView = wdSeekCurrentPageHeader
Selection.HeaderFooter.Range.Text = &页眉文字&
& &本代码创建一个 Range 对象（oRange），该对象引用活动文档
第一节的基本页脚。设置了 Range 对象之后，删除现有的页脚文字。
向该页脚添加 FILENAME 域，后接两个制表位和 AUTHOR 域。
Set oRange = ActiveDocument.Sections （ 1 ） .Footers
（wdHeaderFooterPrimary）.Range
With oRange
.Fields.Add Range:=oRange, Type:=wdFieldFileName,
Text:=&\p&
.InsertAfter Text:=vbTab & vbTab
.Collapse Direction:=wdCollapseStart
.Fields.Add Range:=oRange, Type:=wdFieldAuthor
& &3．设置选项&&
& &Options 对象包含的属性对应于【工具】菜单【选项】对话框中
各项。下面的代码设置 Word 应用程序的三个选项。
With Options
.AllowDragAndDrop = True
.ConfirmConversions = False
.MeasurementUnit = wdPoints
& &4．更改文档版面
& &PageSetup 包含文档的所有页面设置属性（左边距、下边距、纸
张大小等等）。下面的代码设置活动文档的页边距。
With ActiveDocument.PageSetup
.LeftMargin = InchesToPoints（0.75）
.RightMargin = InchesToPoints（0.75）
.TopMargin = InchesToPoints（1.5）
.BottomMargin = InchesToPoints（1）
& &5．循环遍历文档各段
& &本代码循环遍历活动文档的所有段落。如果某个段落的段前间距
为 12 磅，则本代码将段前间距改为 24 磅。
& &For Each aPara In ActiveDocument.Paragraphs
& &If aPara.SpaceBefore = 12 Then oPara.SpaceBefore =& && &&&
Next aPara
& &6．自定义菜单和工具栏
& &CommandBar 对象同时代表菜单和工具栏。使用一个菜单或工具
栏名称的 CommandBars 属性可以返回单个的 CommandBar 对象。
Controls 属性返回一个 CommandBarControls 对象，该对象引用指
定工具栏上的项。下面的代码向【工具】菜单添加【字数统计】命
CustomizationContext = NormalTemplate
CommandBars （ &Tools& ） .Controls.Add
Type:=msoControlButton, ID:=792, _
下面的代码向【格式】工具添加【双下划线】命令。
CustomizationContext = NormalTemplate
CommandBars （ &Formatting& ） .Controls.Add
Type:=msoControlButton, ID:=60, _
Before:=7& && && &
转自：&&CSDN－Word教程
楼主辛苦，感谢分享！
Powered by提示信息 -
直播吧论坛 -
Powered by Discuz!
后使用快捷导航没有帐号？
抱歉，指定的主题不存在或已被删除或正在被审核
Powered by金沙娱乐城优惠红利
金沙娱乐城优惠红利
在 金沙娱乐城优惠红利，秦无炎一怔，还没等他会过意来，苍松道人忽地身形一动，转眼闪到灵堂门口，提气开声，大声道：“咦，门主印信……啊……”他前头几个字充满惊愕之意，说到一半，明明还完好无恙地站在原地，苍松道人却突然如同受到重创一般失声痛呼，像是被什么人偷袭一般。
从金沙娱乐城优惠红利，领先的“什么？”这个消息甚至比刚才鬼王的话更加让人惊愕，鬼厉等俱是深知其中利害关系的人物，自然明白此人的死讯意味着什么。
金沙娱乐城优惠红利参考手册
金沙娱乐城优惠红利，坐在鬼王身边的鬼先生在最初惊讶过后，此刻黑纱之下忽然微微点头，发出一声轻语，似乎想到了什么。
其中金沙娱乐城优惠红利，普泓上人谦让道：“云施主哪里话，天下苍生遭劫，兽妖肆虐，天音寺上下既为佛门子弟，岂能退居人后？只是如今天下正道云集青云，道玄师兄又向来德高望重，道法更是有通天神通，自然便该以道玄师兄为领袖，率领天下正道共抗强敌。”
在线金沙娱乐城优惠红利
金沙娱乐城优惠红利，不过，幸运的是，就在这危急关头，秦无炎终于凭着毒神真传的诡异道法，加上包括“七尾蜈蚣”在内的五种剧毒搭配使用，硬生生将这股诡异的噬血妖力从体内清除了出去。而这件关系重大的事情，不过是在数日之前才发生的，秦无炎心思深沉，一直保守着这个秘密，他深知自己此刻已是众矢之的，所以甘心苦忍。
金沙娱乐城优惠红利，苍松道人点了点头，道：“我与老人家毕竟宾主一场，虽然这一炷香上得有些迟了，但总是我一番心意。”
金沙娱乐城优惠红利的学习方式
金沙娱乐城优惠红利，秦无炎凭门喘息，眼中满是怒火，显然苍松道人这突然其来的一下完全打乱了他的如意算盘，此刻周围人声鼎沸，眼看着灵堂就要被三位师兄的无数人马团团包围，秦无炎狠狠一跺脚，当机立断，也如苍松道人一般投身于屋外黑暗之中，片刻之后隐没了身形。
金沙娱乐城优惠红利，云易岚微微点头，道：“大师，那以你看到的那些兽妖和天音寺众位高僧的交手，牠们战力如何？”
金沙娱乐城优惠红利
金沙娱乐城优惠红利，秦无炎冷哼一声，道：“师父他老人家睿智聪明，早就看破了这所谓的礼仪俗法，不要说在他灵前对他不敬，便是我等弟子在这里互相厮杀，他老人家也多半会笑着看热闹而已。”
金沙娱乐城优惠红利，李洵点头道：“禀报大师，经过这段日子以来我们多方派出同道去南方查探，发现这次兽妖大劫祸害如此惨烈，原因主要有三。其一：寻常兽妖怪物多半看去乃是猛兽变异而来，虽然我们不知究竟是何异变，但这些怪物的确比原先那些猛兽原身变得更加凶猛，也更加残忍，普通人决计无法抵抗；其二，这一次从南方出来的妖兽异族，数目上竟然不计其数，我们派出的弟子多次在天空看到无数妖兽蜂拥而来，数目至少超过上万，在这等情况下，任你再高的道行只怕也无济于事；其三，在这些普通兽妖之中，似乎还有数目不详的特殊妖兽，这些妖兽与普通怪物截然不同，妖法高强，尤胜过许多修道中人，而且时至今日为止，谁都没见过传说中那个‘兽神’，也就不知道他到底是什么人物，但看他能操纵这无数妖物，只怕也是个极端棘手的人物！”
如果您是金沙娱乐城优惠红利，请您阅读《》。
如果您是金沙娱乐城优惠红利，请您阅读《》。。
金沙娱乐城优惠红利 新闻
已上线，敬请批评指正。
金沙娱乐城优惠红利 更新信息
金沙娱乐城优惠红利 友情链接
金沙娱乐城优惠红利
金沙娱乐城优惠红利_{key}
金沙娱乐城优惠红利游戏路单
金沙娱乐城优惠红利注意事项
金沙娱乐城优惠红利游戏赔率后使用快捷导航没有帐号？
只需一步，快速登录
抱歉，指定的主题不存在或已被删除或正在被审核抱歉，指定的主题不存在或已被删除或正在被审核
Copyright &
All Rights Reserved
沈阳辽一网络有限公司
本网站各类信息未经授权禁止转载
增值电信业务经营许可证编号：辽B-2-4-号　辽ICP备号　电话：024- &&