扫描word.application for vb.net中页面范围的页面

时间:2013-06-11 19:30:40

标签: vb.net vba ms-word

  

最后,我投降得到我想要的东西,

在下面的源代码中,它获取总页数,图像总数和纸张方向等,它扫描整个ms字的页面。

  

我想要的是:

假设document1.docx有5页

如果用户想要从页面范围1,3,5开始扫描页面,那么SO 2,4就会被绕过。

我将如何在代码中执行此操作?

    ''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

谢谢,我希望以前有人见过这个。

0 个答案:

没有答案