参考代码

Dim app As New MSWord.Application
try
    Dim doc = app.Documents.Open("d:\\test.doc")
    app.ActiveWindow.Selection.WholeStory
    app.ActiveWindow.Selection.copy
    app.ActiveWindow.Selection.PasteSpecial(Link:=False, DataType:=9, _
    Placement:=0, DisplayAsIcon:=False)
    For Each shape As object In doc.InlineShapes
        shape.Range.copy
    Next
    If ClipBoard.GetImage IsNot Nothing Then
        msgbox(2)
        ClipBoard.GetImage.save("d:\\abc.jpg")
    End If
    Doc.saved = True
    \'app.visible = True
catch ex As exception
    msgbox(ex.message)
    app.Quit
finally
    app.Quit
End try

参考

Dim app As New MSWord.Application
try
    Dim doc = app.Documents.Open("d:\\test.doc")
    Dim allpage = doc.ComputeStatistics(msWord.WdStatistic.wdStatisticPages)
    For objPage As Integer = 1 To allpage
        Dim objWhat = msWord.WdGoToItem.wdGoToPage
        Dim objWhich = MsWord.WdGoToDirection.wdGoToAbsolute
        Dim range1 = Doc.GoTo(objWhat, objWhich, objPage)
        Dim range2 = range1.GoToNext(MsWord.WdGoToItem.wdGoToPage)
        Dim bjStart = range1.Start
        Dim objEnd = range2.Start
        If range1.Start = range2.Start Then objEnd = Doc.Characters.Count
        \'msgbox(objpage)
        Doc.Range(bjStart, objEnd).Select
       
        app.ActiveWindow.Selection.copy
        app.ActiveWindow.Selection.PasteSpecial(Link:=False, DataType:=9, _
        Placement:=0, DisplayAsIcon:=False)
    Next
Dim i As Integer = 1
    For Each shape As object In doc.InlineShapes
        shape.Range.copy
        If ClipBoard.GetImage IsNot Nothing Then
            ClipBoard.GetImage.save("d:\\abc" & i & ".jpg")
        End If
        i += 1
    Next
    Doc.saved = True
    \'app.visible = True
   
   
    app.visible = True
catch ex As exception
    msgbox(ex.message)
    app.Quit
finally
    \'app.Quit
End try