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

Question

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

Answer 1

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 = Fil.Name
            ReadWordDocument (Titel)
            DoEvents
          End If
    Next
        
End SubPrivate 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 SubPrivate 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 没有,vvb代码是有!!!你自己再改进,以前写的代码!!给分吧!呵呵

Answer 2

'引用 Microsoft Scripting Runtime
 '引用 Microsoft Word 10.0 Object Library
就这两过

Answer 3

你必須引用word,如word 2003的引用方式
Microsoft Word 11.0 Object Library
word 2000好像是Microsoft Word 9.0 Object Library