Office中國論壇/Access中國論壇 › Access中國門戶舊版 ›Word› 操作 › 查看內(nèi)容

巧用WORD宏命令批量轉(zhuǎn)換文件格式

1970-1-1 08:00| 發(fā)布者: 未知| 查看: 1452| 評(píng)論: 0

　近日，我購得一軟件，是一非常實(shí)用的資料庫。回家后上機(jī)一試，資料翔實(shí)，內(nèi)容豐富，十分滿意�？赏略僖豢�，資料在程序中顯示時(shí)怎么不能換行？

　　細(xì)看這是一個(gè)以IE為內(nèi)核的程序，資料以文本文件的格式保存。難道我的IE 5設(shè)置有問題？從瀏覽器中調(diào)出“INTERNET選項(xiàng)”，弄了半天，問題沒能解決。

　　可能是資料文件有問題：這些文本文件沒有分行符！WINDOWS下，文本文件有純文本文件和帶分行符的文本文件。怎樣將這些文件進(jìn)行轉(zhuǎn)換呢？在WORD中打開，然后另存為“帶分行符的文本文件”格式是個(gè)好辦法。我的天，兩千多個(gè)文件！對(duì)了，WORD中的宏可使任務(wù)自動(dòng)化——如果在Word中重復(fù)進(jìn)行某項(xiàng)工作，可用宏使其自動(dòng)執(zhí)行。

　　Word中的宏是將一系列的Word命令和指令組合在一起，形成一個(gè)命令，以實(shí)現(xiàn)任務(wù)執(zhí)行的自動(dòng)化。您可創(chuàng)建并執(zhí)行一個(gè)宏，以替代人工進(jìn)行一系列費(fèi)時(shí)而重復(fù)的Word操作。事實(shí)上，它是一個(gè)自定義命令，用來完成所需任務(wù)。

　　下面是具體步驟，兩千多個(gè)文件，3分鐘搞掂。

　　1、菜單：工具→宏→錄制新宏，出現(xiàn)下圖的對(duì)話框，單擊“確定”按鈕。

　　2、開始錄制宏：菜單：文件→打開，選擇要轉(zhuǎn)換的文件，將其打開。

　　然后，菜單：文件→另存為，在保存類型下拉列表框中選擇“帶分行符的純文本(*.txt)”。如下圖。

　　注意：應(yīng)去掉文件的“只讀”屬性。

　　3、停止錄制：菜單：工具→宏→停止錄制。完成上述步驟后，還要對(duì)宏進(jìn)行一定的修改，使它能對(duì)多個(gè)文件進(jìn)行批量轉(zhuǎn)換。方法如下：

　　菜單：工具→宏→宏，如下圖所示，選擇剛才錄制的宏名稱，單擊“編輯”按鈕。打開Visual Basic編輯器，對(duì)宏進(jìn)行一些修改，修改后的宏如下：

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

For i = 1 To 2124 ’文件數(shù)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
　　當(dāng)然，有經(jīng)驗(yàn)的朋友可跳過前兩步，直接在編輯器中進(jìn)行編寫。

　　4、最后，在Visual Baisic 編輯器中按F5鍵執(zhí)行宏，兩千多個(gè)文件一會(huì)兒就可以轉(zhuǎn)換完畢。此時(shí)，才真正體會(huì)到了WORD功能的強(qiáng)大！

收藏分享邀請(qǐng)

帳號(hào)		自動(dòng)登錄	找回密碼
密碼			注冊(cè)

巧用WORD宏命令批量轉(zhuǎn)換文件格式

最新評(píng)論

相關(guān)分類