开发学院软件教学办公软件Word 自动完成Word 日常任务 阅读

自动完成Word 日常任务

 2008-10-30 20:24:29 来源:WEB开发网   
核心提示:利用VBA 编程,可以使许多日常的任务自动完成,自动完成Word 日常任务,使用户的工作更有效率,11.7.1 在启动时显示打开对话框一般情况下启动Word,With Selection.Font.Name = "Times New Roman".Size = 14.AllCaps = TrueEn

利用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

1 2 3 4 5 6  下一页

Tags:自动 完成 Word

编辑录入:爽爽 [复制链接] [打 印]
[]
  • 好
  • 好的评价 如果觉得好,就请您
      0%(0)
  • 差
  • 差的评价 如果觉得差,就请您
      0%(0)
赞助商链接