巧用WORD宏命令批量转换文件格式

admin

近日，我购得一软件，是一非常实用的资料库。回家后上机一试，资料翔实，内容丰富，十分满意。可往下再一看，资料在程序中显示时怎么不能换行？

　　细看这是一个以IE为内核的程序，资料以文本文件的格式保存。难道我的IE 5设置有问题？从浏览器中调出“INTERNET选项”，弄了半天，问题没能解决。

　　可能是资料文件有问题：这些文本文件没有分行符！WINDOWS下，文本文件有纯文本文件和带分行符的文本文件。怎样将这些文件进行转换呢？在WORD中打开，然后另存为“带分行符的文本文件”格式是个好办法。我的天，两千多个文件！对了，WORD中的宏可使任务自动化——如果在Word中重复进行某项工作，可用宏使其自动执行。

　　Word中的宏是将一系列的Word命令和指令组合在一起，形成一个命令，以实现任务执行的自动化。您可创建并执行一个宏，以替代人工进行一系列费时而重复的Word操作。事实上，它是一个自定义命令，用来完成所需任务。

　　下面是具体步骤，两千多个文件，3分钟搞好。

　　1、菜单：工具→宏→录制新宏，出现下图的对话框，单击“确定”按钮。

　　2、开始录制宏：菜单：文件→打开，选择要转换的文件，将其打开。

　　然后，菜单：文件→另存为，在保存类型下拉列表框中选择“带分行符的纯文本(*.txt)”。如下图。

　　注意：应去掉文件的“只读”属性。

　　3、停止录制：菜单：工具→宏→停止录制。完成上述步骤后，还要对宏进行一定的修改，使它能对多个文件进行批量转换。方法如下：

　　菜单：工具→宏→宏，如下图所示，选择刚才录制的宏名称，单击“编辑”按钮。打开Visual Basic编辑器，对宏进行一些修改，修改后的宏如下：

Sub Macro1()
’
’ Macro1 Macro
’宏在 01-10-31 由 WDX 录制
’
Dim name As String ’文件名
name = "01"
ChangeFileOpenDirectory "E:\VB_SOUCE\lib\"

For i = 1 To 2124 ’文件数2124
Documents.Open filename:=name & ".txt", ConfirmConversions:=False, ReadOnly:= _
False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _
"", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _
Format:=wdOpenFormatAuto
ActiveDocument.SaveAs filename:=name & ".txt", FileFormat:= _
wdFormatTextLineBreaks, LockComments:=False, Password:="", _
AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _
EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _
:=False, SaveAsAOCELetter:=False
ActiveWindow.Close

name = name + 1
If name < 10 Then name = "0" & name
Next i
End Sub
　　当然，有经验的朋友可跳过前两步，直接在编辑器中进行编写。

　　4、最后，在Visual Baisic 编辑器中按F5键执行宏，两千多个文件一会儿就可以转换完毕。此时，才真正体会到了WORD功能的强大！

wwfjimy

学 :) :) :) 习:) :) :) :) 中

oman

这个东西好使用，谢谢

xiaohong-0759

版主能解说一下那个代码吗?我看得不是很懂哦