Here is one of the question from one of you regarding the contents on Display Thumbnails For Every Page Of A Document .
Hi. I'd like to thank about your EnhMetaFileBits code, it helped me alot. If you don't mind I'd like to ask you something about that. Can you please give me any hints about how to apply it for every page in a Word document? I'd appreciate any info.
Hey man! you are a decent guy - If I were you, I'd shout and say - "THE POST IS INCORRECT! IT DOES NOT EXPLAIN HOW DO I DO IT FOR EVERY PAGE" 🙂
Thanks for being nicer then me ...
Here is the code that "Actually" gets the thumbnails for every page :
Imports Word = Microsoft.Office.Interop.Word
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.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")