vb.net - vb.net の word.application のページ範囲でページをスキャンする

Question

最後に、私も欲しいものを手に入れるために降伏しました。

以下のソースコードでは、総ページ数、総画像数、用紙の向きなどを取得し、ms word の全ページをスキャンしています。

私が欲しいのは：

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

ありがとう、誰かが以前にこれを経験したことを願っています。