vb分页读取word内容

最近在研究word插件开发 ，在读取word内容碰到棘手的地方一一记录下来，下面是分页读取word的内容

Dim document As Document = Globals.ThisAddIn.Application.ActiveDocument

        Dim application As Microsoft.Office.Interop.Word.Application = Globals.ThisAddIn.Application


        Dim numnber As Integer = document.BuiltInDocumentProperties(WdBuiltInProperty.wdPropertyPages).value
        'Dim numnber As Integer= document.ActiveWindow.Panes(1).Pages.Count
        Dim objWhat = Word.WdGoToItem.wdGoToPage
        Dim objWhich = Word.WdGoToDirection.wdGoToAbsolute
        Dim range1 As Word.Range
        Dim range2 As Word.Range
        For nIndex = 1 To numnber
            range1 = document.GoTo(objWhat, objWhich, nIndex)
            range2 = range1.GoToNext(Word.WdGoToItem.wdGoToPage)
            Dim startIndex = range1.Start
            Dim endIndex = range2.Start