我不知道怎样捕作当前word文档里的内容？！急

从下边找找看，有没有你需要的东西。
Visual Basic 包含一些对象，可用这些对象修改下面的文档元素：字符、单词、句子、段落和节。下面的表格包含了与这些文档元素对应的属性和这些属性返回的对象。表达式 返回的对象
Words(index) Range
Characters(index) Range
Sentences(index) Range
Paragraphs(index) Paragraph
Sections(index) Section
使用这些属性时不带索引序号，会返回一个相同名称的集合对象。例如，Paragraphs 属性返回 Paragraphs 集合对象。但如果通过索引序号识别集合中的一项，就只会返回上表中第二列中的对象。例如，Words(1) 返回一个 Range 对象。在有了一个 Range 对象之后，可以使用这个区域的任何属性或方法修改该 Range 
对象。例如，下面的指令将所选内容的第一个单词复制到剪贴板上。Selection.Words(1).Copy注释    Paragraphs 和 Sections 集合中的项是该集合的单个成员，而 Range 对象却不是如此。但 Range 属性（返回 Range 对象）对 Paragraph 和 Section 对象都是有效的。例如，下面的指令将活动文档的第一个段落复制到剪贴板上。ActiveDocument.Paragraphs(1).Range.Copy前面表格中的所有文档元素属性对 Document、Selection 和 Range 对象都是有效的。下面的示例表明了如何按照顺序引用 Document、Selection 和 Range 对象的这些属性。下面的示例设置活动文档第一个单词的大小写。ActiveDocument.Words(1).Case = wdUpperCase下面的示例将当前节的下边距设置为 0.5 英寸。Selection.Sections(1).PageSetup.BottomMargin = InchesToPoints(0.5)下面的示例将活动文档的字符间距设为两倍（Content 属性返回一个 Range 对象）。ActiveDocument.Content.ParagraphFormat.Space2修改一组文档元素要修改由一组文档元素（字符、单词、句子、段落或节）组成一定区域的文字，就需要创建一个 Range 对象。Range 方法根据开始和结束位置可创建 Range 对象。例如，下面的指令创建一个 Range 对象，该对象引用活动文档的前十个字符。Set myRange = ActiveDocument.Range(Start:=0, End:=10)使用 Range 对象的 Start 和 End 属性，可以创建一个新的 Range 对象，该对象引用一组文档元素。例如，下面的指令创建一个 Range 对象（myRange），该对象引用活动文档的前三个单词。Set Doc = ActiveDocument
Set myRange = Doc.Range(Start:=Doc.Words(1).Start, _
    End:=Doc.Words(3).End)下面的示例创建一个 Range 对象（aRange），该对象从第二段的开头开始，到第三段之后结束。Set Doc = ActiveDocument
Set myRange = Doc.Range(Start:=Doc.Paragraphs(2).Range.Start, _
    End:=Doc.Paragraphs(3).Range.End)有关定义 Range 对象的详细内容，请参阅处理 Range 对象。