自动完成Word 日常任务

th
    下面的代码从活动文档中删除加粗格式。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
End With
.Execute FindText:="", ReplaceWith:="",
Format:=True, Replace:=wdReplaceAll
End With

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
.Delete
.Fields.Add Range:=oRange, Type:=wdFieldFileName,
Text:="\p"
.InsertAfter Text:=vbTab & vbTab
.Collapse Direction:=wdCollapseStart
.Fields.Add Range:=oRange, Type:=wdFieldAuthor
End With

    3．设置选项
    Options 对象包含的属性对应于【工具】菜单【选项】对话框中 各项。下面的代码设置 Word 应用程序的三个选项。

With Options
.AllowDragAndDrop = True
.ConfirmConversions = False
.MeasurementUnit = wdPoints
End With

    4．更改文档版面
    PageSetup 包含文档的所有页面设置属性（左边距、下边距、纸 张大小等等）。下面的代码设置活动文档的页边距。

With ActiveDocument.PageSetup
.LeftMargin = InchesToPoints（0.75）
.RightMargin = InchesToPoints（0.75）
.TopMargin = InchesToPoints（1.5）
.BottomMargin = InchesToPoints（1）
End Wit

    5．循环遍历文档各段
    本代码循环遍历活动文档的所有段落。如果某个段落的段前间距 为 12 磅，则本代码将段前间距改为 24 磅。

    For Each aPara In ActiveDocument.Paragraphs
    If aPara.SpaceBefore = 12 Then oPara.SpaceBefore =
24
Next aPara

    6．自定义菜单和工具栏
    CommandBar 对象同时代表菜单和工具栏。使用一个菜单或工具 栏名称的 CommandBars 属性可以返回单个的 CommandBar 对象。 Controls 属性返回一个 CommandBarControls 对象，该对象引用指 定工具栏上的项。下面的代码向【工具】菜单添加【字数统计】命 令。

CustomizationContext = NormalTemplate
CommandBars （ "Tools" ） .Controls.Add
Type:=msoControlButton, ID:=792, _
Before:=6
下面的代码向【格式】工具添加【双下划线】命令。
CustomizationContext = NormalTemplate
CommandBars （ "Formatting" ） .Controls.Add
Type:=msoControlButton, ID:=60, _
Before:=7  

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

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