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

菜单：工具→宏→宏，如下图所示，选择刚才录制的宏名称，单击“编辑”按钮。打开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功能的强大！