急~~!!HTML文件转换成WORD文件问题

[czaoth]

用VB程序把一个HTML网页www.google.com保存为word文件，代码如下:

Sub htmltoword(ByVal htmlfile As String, ByVal wordfile As String)
Dim WordApp As New Word.Application
WordApp.Documents.Open FileName:=htmlfile, ConfirmConversions:= _
False, ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto

WordApp.ActiveDocument.SaveAs FileName:=wordfile, FileFormat:= _
wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:=False, _
WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=True, SaveFormsData:=False, SaveAsAOCELetter:= _
False
WordApp.Quit
Set WordApp = Nothing
End Sub
但是发现图片文件没有保存，各位大虾请赐教！怎样才能把图片也保存下来