自动完成Word 日常任务
2008-10-30 20:24:29 来源:WEB开发网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 对象。例如,下面的代码将所选内容的第一个单词复制到剪贴板上。
更多精彩
赞助商链接