如何把html文件转为word文件？(转载)

Question

用vba 轻松搞定！
代码如下：
Documents.Open FileName:="你的文档.doc", ConfirmConversions:=False _
        , ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
        .PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
        WritePasswordTemplate:="", Format:=wdOpenFormatAuto
    ActiveDocument.SaveAs FileName:="你的文档.htm", FileFormat:= _
        wdFormatHTML, LockComments:=False, Password:="", AddToRecentFiles:=True, _
        WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
         SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
        False
    ActiveWindow.View.Type = wdWebView