能把WORD文件用VB转存为html吗

能把WORD文件用VB转存为html吗？具体怎么实现？
楼主hitler45（Jery）2002-12-0911:03:17在VB/VBA提问
能把WORD文件用VB转存为html吗？具体怎么实现？问题点数：100、回复次数：4

1楼henrryzhang（NorthWolf）回复于2002-12-0911:08:12得分100
VB中引用WORD对象后用以下的语句保存即可
ActiveDocument.SaveAs FileName:="asdfgasdfsdsdffsd.htm", FileFormat:= _
wdFormatFilteredHTML, LockComments:=False, Password:="", AddToRecentFiles _
:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False


==========================================================================================================
把.doc打开后，另存为.html:
ActiveDocument.SaveAs FileName:= "Test.htm ", FileFormat:=wdFormatHTML, _
LockComments:=False, Password:= " ", AddToRecentFiles:=True, WritePassword _
:= " ", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False


======================================================================================================
'引用Microsoft Word X.0 Object Library
Private Sub Command1_Click()
On Error GoTo connecterr
Dim wordApp As Object
Set wordApp = CreateObject( "word.application ")

wordApp.Visible = True
Dim myDoc As Object
Set myDoc = wordApp.Documents.Open( "c:\Test.dot ")

myDoc.SaveAs FileName:= "Test.htm ", FileFormat:=wdFormatHTML, _
LockComments:=False, Password:= " ", AddToRecentFiles:=True, WritePassword _
:= " ", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False

myDoc.Close
wordApp.Quit
Set myDoc = Nothing
Set wordApp = Nothing
Exit Sub
connecterr:
End Sub

=======================================================================================================
Set mwa = New Word.Application
Dim sFileName As String
sFileName = App.Path & "/aaa.doc "

mwa.Documents.Open sFileName, , , , , , , , , , False
mwa.Visible = True

mwa.ChangeFileOpenDirectory App.Path

mwa.ActiveDocument.SaveAs App.Path & "/aaa.htm ", wdFormatHTML, False, " ", True, " ", False, False, False, False, False
ActiveWindow.View.Type = wdWebView

mwa.ActiveDocum

ent.Close
mwa.Quit
Set mwa = Nothing


====================================================================================================================



求批量将WORD转换HTML网页 vb宏(在线）

要求，要将一个目录下及其子目录下的所有WORD网页 全都转换成HTML网页的 这个目标目录下的子目录
节点可能不固定的，不知道哪位盖世大虾能够用VBA 或者VB完成上述任务阿 100分呈上

1 楼ZOU_SEAFARER（颓废程序员^_^）回复于 2006-08-07 15:29:26 得分 80
Option Explicit
'Microsoft Internet Controls
'引用 Microsoft Scripting Runtime
Dim oWordApp As Word.Application 'WORD 应用
Dim oDoc As Word.Document 'WORD 文档

Dim Fso As FileSystemObject
Dim Fol As Folder
Dim Fil As File


Private Sub Command1_Click()
Dim Titel As String
oWordApp.WindowState = wdWindowStateMinimize
For Each Fil In Fol.Files
If Fil.Type = "Microsoft Word 文書" Then
Titel = vbNullString
Titel = https://www.360docs.net/doc/7f18712618.html,
ReadWordDocument (Titel)
DoEvents
End If
Next

End Sub

Private Sub Form_Load()
Me.Show
Set oWordApp = New Word.Application

Set Fso = CreateObject("Scripting.FileSystemObject")
Set Fol = Fso.GetFolder("D:\外语学习\lhut3227\Source\Doc03")

End Sub
Sub ReadWordDocument(Titel As String)

' Set oDoc = New Document
Set oDoc = oWordApp.Documents.Open("D:\外语学习\lhut3227\Source\Doc03\" & Titel)

oDoc.SaveAs "D:\Htm03\" & Mid(Titel, 1, Len(Titel) - 4) & ".htm", wdFormatHTML


oDoc.Close
Set oDoc = Nothing
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
oWordApp.Quit False
' Set oWordApp = Nothing
Set Fil = Nothing
Set Fol = Nothing
Set Fso = Nothing
End Sub

''VBA 没有,vb代码是有!!!你自己再改进,以前写的代码!!给分吧!呵呵