Dim tmp As String = projectpath & "RemoteFiles\" & wjm '''下载的文件路径
Dim mht As String = projectpath & "RemoteFiles\" & wjm & ".jpg" ''''转换为MHTML格式的文件路径
Dim app As New MSWord.Application
try
Dim doc = app.Documents.Open(projectpath & "RemoteFiles\" & wjm)
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(projectpath & "RemoteFiles\" & wjm & 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
e.Form.Controls("WebBrowser1").Address = (mht)
加好友 
发短信
Post By：2021/3/12 10:07:00 [只看该作者]
