用Word宏来实现批量将HTML转换成DOC

环境：OFFICE WORD 2007

打开WORD，在菜单的“视图”->“宏”->“查看宏”->“创建”

http://blog.csdn.net/aminfo/article/details/38760093 

[plain]  view plain  copy  

1. Sub 宏1()  
2.     Dim MyFile As String  
3.     Dim Arr(1000) As String     '一次处理最大的文件数量，根据需要修改数字1000改为需要处理的数量  
4.     Dim count As Integer  
5.     MyFile = Dir("F:\待处理的HTML目录\" & "*.html")  
6.     count = count + 1  
7.     Arr(count) = MyFile  
8.     Do While MyFile <> ""  
9.         MyFile = Dir  
10.         If MyFile = "" Then  
11.             Exit Do  
12.         End If  
13.         count = count + 1  
14.         Arr(count) = MyFile         '将文件的名字存在数组中  
15.     Loop  
16.     For i = 1 To count  
17.         Documents.Open FileName:="F:\待处理的HTML目录\" & Arr(i), ConfirmConversions:=False, ReadOnly:= _  
18.         False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _  
19.         "", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _  
20.         Format:=wdOpenFormatAuto, XMLTransform:=""  
21.         ActiveDocument.SaveAs FileName:="F:\处理后DOC保存的目录\" & Replace(Arr(i), ".html", ".doc"), FileFormat:=wdFormatDocument, _  
22.         LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _  
23.         :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _  
24.         SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _  
25.         False  
26.         ActiveDocument.Close  
27.     Next  
28. End Sub  

http://blog.csdn.net/aminfo/article/details/38760093
然后保存运行即可。