For i = 1 To oWord.ActiveDocument.Paragraphs.Count '提取出了Word每段字符的内容
oWord.ActiveDocument.Paragraphs(i).Range.Select() '选择此段
cc = oWord.ActiveDocument.Paragraphs(i).Range.Text '被选择部分的文本内容
Debug.Print(cc)
NextThis way read Word Document paragraph by paragraph.
Hope can help you!