在VB中如何读取word文件

aaaassss_mas

请教 在VB中如何知道word文件的总行数 如何读取每一行,直到文件尾 谢谢

守柔

简单一点，供参考：

Sub Sample()
    Dim i As Integer, RowCount As Integer
    With ActiveDocument
        RowCount = .BuiltInDocumentProperties("Number of lines")
        Selection.HomeKey wdStory
        For i = 1 To RowCount
            Selection.GoTo What:=wdGoToLine, Which:=wdGoToFirst, Count:=i, Name:=""
            MsgBox .Bookmarks("\Line").Range
        Next
    End With
End Sub

其实WORD中的行并非是一个对象，建议楼主区分行与段落，如果是段落，则更方便访问。

爱好者999

请教

如何在EXCEL中用VBA读取WOED中的内容(不含表格)

守柔

QUOTE:

以下是引用爱好者999在2007-3-8 17:00:35的发言：

请教

如何在EXCEL中用VBA读取WOED中的内容(不含表格)

请以Automation为关键字搜索本版。

以下是其中的一个示例：

http://club.excelhome.net/viewthread.php?tid=103272&px=0