最近在研究word插件开发 ,在读取word内容碰到棘手的地方一一记录下来,下面是分页读取word的内容
Dim document As Document = Globals.ThisAddIn.Application.ActiveDocument
Dim application As Microsoft.Office.Interop.Word.Application = Globals.ThisAddIn.ApplicationDim 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