怎样将word 转为 html 文件

如题 问题点数：50、回复次数：8Top

1 楼KissApple（菊花普洱茶）回复于 2006-03-09 11:03:43 得分 0

lz可以描述的清楚一点吗？Top

2 楼rokky（魅力乱射）回复于 2006-03-09 11:07:38 得分 0

是这样的，我有很多word文档，里面只有文字和表格，我想把它转为html，以便在网上发布，我看见word里面有一个功能，可以把文档存为网页的格式，但是如果一个一个的转的话就太痛苦了，因此希望可以用程序来完成这个工作Top

3 楼rainstormmaster（暴风雨 v2.0）回复于 2006-03-09 11:10:00 得分 5

调用word对象，至于代码你可以录制一段宏，然后自己看Top

4 楼rokky（魅力乱射）回复于 2006-03-09 11:13:27 得分 0

录制一段宏，难点就在这里啊，我不知道怎么做。Top

5 楼hot1kang1（网站制作,系统开发,记得-http://3q2008.Com）回复于 2006-03-09 11:18:28 得分 20

引用word   里面有个   方法    
  引用   Microsoft   Word   9.0   Object   Library  
   
   
            Dim   wdapp   As   Word.Application  
            Dim   wddoc   As   Word.Document  
   
        '创建word应用程序，这一句话打开word2000  
            Set   wdapp   =   CreateObject("Word.Application")  
            '在word中添加一个新文档  
            Set   wddoc   =   wdapp.Documents.Open(App.Path   &   "\Doc1.doc")  
   
          ChangeFileOpenDirectory   App.Path   &   "\"  
          wddoc   .SaveAs   FileName:="Asfdasdf.htm",   FileFormat:=wdFormatHTML,   _  
                  LockComments:=False,   Password:="",   AddToRecentFiles:=True,   WritePassword   _  
                  :="",   ReadOnlyRecommended:=False,   EmbedTrueTypeFonts:=False,   _  
                  SaveNativePictureFormat:=False,   SaveFormsData:=False,   SaveAsAOCELetter:=   _  
                  False  
   
  Doc1.doc   就会生成一个对应的     Asfdasdf.htmTop

6 楼hot1kang1（网站制作,系统开发,记得-http://3q2008.Com）回复于 2006-03-09 11:19:54 得分 5

点击   录制宏    
   
  将你的word   另存   html      
  Atl+F11   查看你录制的宏代码Top

7 楼rainstormmaster（暴风雨 v2.0）回复于 2006-03-09 11:29:40 得分 20

Const   wdFormatHTML   =   8  
   
  Private   Sub   Command1_Click()  
          Dim   Word   As   Object  
          Dim   sfile   As   String  
          Dim   dfile   As   String  
          sfile   =   "g:\rar2\mc.doc"   '源文件  
          dfile   =   "g:\rar2\mc.htm"   '目标文件  
          Set   Word   =   CreateObject("Word.Application")  
          Word.Documents.Open   FileName:=sfile  
          Word.ActiveDocument.SaveAs   FileName:=dfile,   FileFormat:=wdFormatHTML  
          Word.Quit  
          Set   Word   =   Nothing  
   
  End   SubTop

8 楼rokky（魅力乱射）回复于 2006-03-09 11:38:21 得分 0

搞定，揭帖Top

相关问题

• word
• 文档
• html
• wdapp
• wddoc
• 录制
• 宏
• doc
• dim
• htm

• 帖主：rokky
• rainstormmaster
• hot1kang1
• hot1kang1
• rainstormmaster

• Visual Basic类图书
• Visual Basic类源码下载