巧用WORD宏命令批量转换文件格式
时间：2005-03-25 09:59 来源：未知 作者：未知 阅读：次
近日，我购得一软件，是一非常实用的资料库。回家后上机一试，资料翔实，内容丰富，十分满意。可往下再一看，资料在程序中显示时怎么不能换行？
细看这是一个以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功能的强大！
细看这是一个以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功能的强大！
(责任编辑：admin)
顶一下
(0)
0%
踩一下
(0)
0%
相关内容
最新内容