在word.application for vb.net中扫描页面范围内的页面
最后,我也为了得到我想要的东西而投降了 在下面的源代码中,它获取总页数、总图像数和纸张方向等,它扫描ms word的整个页面 我想要的是: 假设document1.docx有5页 如果用户希望从页面范围1,3,5开始扫描页面,则2,4为旁路 我将如何在代码中执行此操作在word.application for vb.net中扫描页面范围内的页面,vb.net,vba,ms-word,Vb.net,Vba,Ms Word,最后,我也为了得到我想要的东西而投降了 在下面的源代码中,它获取总页数、总图像数和纸张方向等,它扫描ms word的整个页面 我想要的是: 假设document1.docx有5页 如果用户希望从页面范围1,3,5开始扫描页面,则2,4为旁路 我将如何在代码中执行此操作 ''GET msword documents Private Function GetWordFile(ByRef pNumbers As Integer) As Boolean Try
''GET msword documents
Private Function GetWordFile(ByRef pNumbers As Integer) As Boolean
Try
Dim WordApp As New Word.Application
Dim aDoc As Word.Document = WordApp.Documents.Open(PathnFileName, m, m, m, m, m, _
m, m, m, m, m, True, m, m, m, m)
''TO GET THE CHARACTERS COUNT OR BLANK PAGE
''Dim BlankPage as integer = aDoc.Content.Characters.Count
''Add a page numbers
'aDoc.Sections(1).Footers(1).PageNumbers.Add(1)
''Delete the page numbers
'aDoc.Sections(1).Footers(1).PageNumbers(1).Delete()
''GET NUMBER OF PAGES
'pNumbers = WordApp.Selection.Information(Word.WdInformation.wdActiveEndPageNumber)
pNumbers = aDoc.ComputeStatistics(Word.WdStatistic.wdStatisticPages, m)
''Code to get number of images...here.
''Code to get paper abouts... here.
aDoc.Close(Word.WdSaveOptions.wdSaveChanges, m, m)
FinalReleaseAnyComObject(aDoc)
End SyncLock
WordApp.Quit(m, m, m)
FinalReleaseAnyComObject(WordApp)
End SyncLock
GC.Collect()
GC.WaitForPendingFinalizers()
Return True
Catch ex As Exception
GC.Collect()
GC.WaitForPendingFinalizers()
Return False
End Try
End Function
谢谢,我希望有人以前有过这种经历。我对你的问题感到困惑。当你说扫描第1、3和5页时,你的意思是希望Word只计算这些页面上的统计信息,还是说要计算这些页面上的统计信息?