Responding Armagan - Display Thumbnails For Every Page Of A Document

Imports Word = Microsoft.Office.Interop.Word
Imports System.IO

Public Class Form1
    Dim wdApp As Word.Application
    Dim wdDoc As Word.Document
    Dim wdSelect As Word.Range

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        wdApp = New Word.Application
        wdApp.Documents.Open("<DOCNAME>")
        wdApp.Visible = True

        Dim emfData As Byte()
        Dim ms As MemoryStream
        Dim mf As Imaging.Metafile
        Dim pn As Long


        pn = wdApp.ActiveDocument.ActiveWindow.Panes(1).Pages.Count() 'Get the page count

        For i As Long = 1 To pn
            wdApp.Selection.GoTo(Word.WdGoToItem.wdGoToPage, Word.WdGoToDirection.wdGoToAbsolute, i) ' Go to the next page
            wdApp.ActiveDocument.Bookmarks("\Page").Range.Select() 'Select using the magic bookmark "\page"
            Debug.Print("Selected " & i & " page")

            emfData = wdApp.Selection.EnhMetaFileBits 'Get the metafile bits
            ms = New MemoryStream(emfData)
            mf = New Imaging.Metafile(ms)

            mf.Save("c:\upload\page" & i & ".emf") ' Save
            Debug.Print("Saved " & i & " page")

        Next i

        Debug.Print("Done!")
    End Sub
End Class