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

最新推荐文章于 2024-02-20 17:26:12 发布

HackerGal

最新推荐文章于 2024-02-20 17:26:12 发布

阅读量544

点赞数

文章标签：批量html转换word

宏 Word HTML 批量转换文档处理

关键词由CSDN通过智能技术生成

环境：OFFICE WORD 2007

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

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

[plain] view plaincopy

Sub 宏1()Dim MyFile As StringDim Arr(1000) As String '一次处理最大的文件数量，根据需要修改数字1000改为需要处理的数量Dim count As IntegerMyFile = Dir("F:\待处理的HTML目录\" & "*.html")count = count + 1Arr(count) = MyFileDo While MyFile <> ""MyFile = DirIf MyFile = "" ThenExit DoEnd Ifcount = count + 1Arr(count) = MyFile '将文件的名字存在数组中LoopFor i = 1 To countDocuments.Open FileName:="F:\待处理的HTML目录\" & Arr(i), ConfirmConversions:=False, ReadOnly:= _False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _"", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _Format:=wdOpenFormatAuto, XMLTransform:=""ActiveDocument.SaveAs FileName:="F:\处理后DOC保存的目录\" & Replace(Arr(i), ".html", ".doc"), FileFormat:=wdFormatDocument, _LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _FalseActiveDocument.CloseNextEnd Sub

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

然后保存运行即可。