自动完成Word 日常任务

nt.Bookmarks（1）.Range.Text
MsgBox bookText
End If

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），该对

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

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