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) Next This way read Word Document paragraph by paragraph. Hope can help you!
Best regards
Thomas Yang
|