自动完成Word 日常任务

    利用VBA 编程，可以使许多日常的任务自动完成，使用户的工作 更有效率。

11.7.1 在启动时显示打开对话框
    一般情况下启动Word，Word 会认为是创建一个新文档。如果只 是想打开一个旧文档进行编辑，在Word 启动时显示【打开】对话框 可以节省许多时间。为此，可以创建生成一个宏。

Public Sub openfile（）
'建立一个宏，使在Word 启动时运行该宏
Dialogs（wdDialogFileOpen）.Show
End Sub
    
    将此代码加入模板中。为了使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
End With
With Selection.ParagraphFormat
.LeftIndent = InchesToPoints（0.5）
.Space1
End With

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
End With

11.7.4 插入文字并应用字符和段落格式
    下面的代码在当前文档的顶部添加单词【标题】。第一段居中对 齐，在该段落之后添加了半英寸的间距。【标题】设为 24 磅的【宋 体】字体。

Set oRange = ActiveDocument.Range（Start:=0, End:=0）
With oRange
.InsertAfter Text:="标题"
.InsertParagraphAfter
.Font.Name = "宋体"
.Font.Size = 24
End With
With ActiveDocument.Paragraphs（1）
.Alignment = wdAlignParagraphCenter
.SpaceAfter = InchesToPoints（.5）
End With

    下面的代码切换所选内容第一段的段前间距。该宏检索当前的段 前间距值，如果该值是 12 磅，则删除段前间距（将SpaceBefore 属性设置为0）。如果段前间距不是 12，则将 SpaceBefore 属性设 置为 12 磅。

Set oParagraph = Selection.Paragraphs（1）
If oParagraph.SpaceBefore = 12 Then
oParagraph.SpaceBefore = 0
Else
oParagraph.SpaceBefore = 12
End If

    下面的代码切换选定文字的加粗格式。
    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
End With

    下面的指令返回选定文本：
    strText = Selection.Text
    下面的代码返回活动文档的第一个单词。Words 集合中的每一项 是一个 Range 对象，该对象代表一个单词。
    aFirst = ActiveDocument.Words（1）.Text MsgBox aFirst
    下面的代码返回活动文档第一个书签的相关文本。

If ActiveDocument.Bookmarks.Count >= 1 Then
bookText = ActiveDocume

[1] [2] [3] [4] 下一页  

如果您有什么疑问,可以至论坛提出或者解答他人的疑问   返回页面顶部