自动完成Word 日常任务

象从第二段 的开头开始，到第三段之后结束。

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
.Delete
.InsertAfter Text:="New text"
.InsertParagraphAfter
End With

11.7.5.9 查找并替换文字或格式
    Find 和 Replacement 对象具有查找和替换功能。Find 对象对 Selection 和 Range 对象有效。是否从 Selection 或 Range 对象 访问 Find 对象，会使查找操作略有不同。
    1．查找并选定文字
    如果是从Selection 对象访问Find 对象，当找到搜索条件时， 就会更改所选内容。下面的代码选定下一次出现的“你好”。如果 到达文档结尾还没有找到“你好”，则停止搜索。

With Selection.Find
.Forward = True
.Wrap = wdFindStop
.Text = "你好"
.Execute
End With

    Find 对象包含各种属性，这些属性对应于【编辑】菜单【查找命令的【查找并替换】对话框中的选项。可以设置 Find 对象的单个属性，或者使用 Execute 方法及参数，如下例所示。
    Selection.Find.Execute FindText:=" 你好", Forward:=True, Wrap:=wdFindStop
    '查找文字，但并不更改所选内容
    如果是从 Range 对象访问 Find 对象，则当找到搜索条件时， 不更改所选内容，但是会重新定义 Range。下面的代码在活动文档中定位第一次出现的【粗体】。如果找到了，则重新定义该范围， 并将加粗格式应用于【粗体】。

With ActiveDocument.Content.Find
.Text = "粗体"
.Forward = True
.Execute
If .Found = True Then .Parent.Bold = True
End With

    下面的代码使用带有参数的 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
End Wi

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

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