宏命令的便捷應(yīng)用

耿向川

摘 要：本文利用宏命令編寫(xiě)宏代碼簡(jiǎn)化繁瑣操作，重點(diǎn)介紹了EmEditor文本編輯器的使用。

關(guān)鍵詞：宏命令EmEditor文本編輯

在Word、Excel等應(yīng)用程序中內(nèi)置了宏的編輯和運(yùn)行環(huán)境，在日常的辦公應(yīng)用中，如果遇到執(zhí)行一些相同操作步驟等情況時(shí)，可以編寫(xiě)宏代碼來(lái)簡(jiǎn)化操作。那么，我們可以利用EmEditor文本編輯器來(lái)完成一些簡(jiǎn)化操作。

一、利用EmEditor宏快速輸入個(gè)人信息

步驟1：打開(kāi)EmEditor，輸入以下內(nèi)容：

Document.selection.Text="地址：

山西省XX市XX縣XX小區(qū)XX單元XX室"輸入你的地址。

Document.selection.NewLine1回車(chē)，下同

Document.selection.Text="姓名：XXX"輸入你的姓名

Document.selection.NewLine1

Document.selection.Text="郵編：XXXXXX"輸入你的郵編

Document.selection.NewLine1

Document.selection.Text=

"身份證號(hào)：XXXXXXXXXXXXXXXXXX"輸入你的身份證號(hào)

Document.selection.NewLine1

Document.selection.Text="QQ號(hào)：XXXXXXXXXX"輸入你的QQ號(hào)

Document.selection.NewLine1

輸入完成后，單擊菜單欄中的“文件→保存”命令，打開(kāi)“另存為”窗口，選擇保存位置（如E：＼我的宏），然后在文件名后邊的文本框內(nèi)輸入“個(gè)人信息.vbs”，最后點(diǎn)擊“保存”按鈕。[1]

步驟2：?jiǎn)螕舨藛螜谥械摹昂辍远x”命令，打開(kāi)“自定義宏”窗口，然后點(diǎn)擊“新建”按鈕，瀏覽找到剛才保存的“個(gè)人信息.vbs”文件，最后單擊“確定”按鈕，完成宏代碼的添加。[2]

如果以后需要添加個(gè)人信息時(shí)，只需要單擊菜單欄中的“宏→個(gè)人信息”命令，就可以完成個(gè)人信息的添加了。

二、利用EmEditor宏快速新建文本文件

我們?cè)谛陆ㄒ粋€(gè)文本文件時(shí)，總是要先選擇文件的保存位置及文件名對(duì)該文件進(jìn)行保存，這個(gè)過(guò)程很繁瑣，利用EmEditor宏可以很輕松地完成在指定位置建立指定文件名的文本文件。下面以“E：＼教案”文件夾下新建一個(gè)“我的教案”的文本文件為例來(lái)做具體說(shuō)明：

步驟1：復(fù)制“E：＼我的宏”文件夾下的“個(gè)人信息”VBS文件，將復(fù)制的文件重命名為“我的教案”，右擊該文件，在出現(xiàn)的右鍵菜單欄中，單擊“Edit”命令，打開(kāi)該文件，將其內(nèi)容替換為：

Option Explict '強(qiáng)制變量聲明

dim WshShell，fso，f

Set WshShell=CreateObject（"WScript.Shell"）

set fso=createobject（"scripting.filesystemobject"）

if fso.fileexists（"E：＼教案＼我的教案.txt"）then''判斷要新建的文本文件是否存在'

WshShell.Run''''''E：＼教案＼我的教案.txt'''''''存在就直接打開(kāi)

else

set f=fso.createtextfile（"E：＼教案＼我的教案.txt"）'不存在時(shí)，就新建一個(gè)

WshShell.Run''''''E：＼教案＼我的教案.txt''''''打開(kāi)該文件

End if

最后保存。

步驟2：?jiǎn)螕舨藛螜谥械摹昂辍远x”命令，打開(kāi)“自定義宏”窗口，然后點(diǎn)擊“新建”按鈕，瀏覽找到剛才保存的“我的教案.vbs”文件，最后單擊“確定”按鈕，完成宏代碼的添加。

三、利用EmEditor宏快速壓縮文件

我們?cè)谕ㄟ^(guò)QQ等軟件傳送一個(gè)大容量文件時(shí)，通常需要對(duì)文件進(jìn)行壓縮以方便傳送，為了操作簡(jiǎn)便，我們可以在EmEditor界面中調(diào)用WinRAR對(duì)相關(guān)文件進(jìn)行壓縮，還是以"E：＼教案"文件夾為例。

步驟1：將一個(gè)VBS文件保存到“E：＼我的宏”文件夾下，起文件名為“壓縮”，內(nèi)容如下：

dim WshShell

Set WshShell=CreateObject（"WScript.Shell"）

WshShell.Run''''''E：＼我的宏＼壓縮.bat''''''

步驟2：在與第一步相同的位置新建一個(gè)批處理文件“壓縮”，其內(nèi)容如下：

cd..

cd..

d：

cd D：＼Program Files＼WinRAR＼

WinRAR a-r H：＼論文 E：＼ 教案＼*.*

命令說(shuō)明：（1）前三句命令的含義是進(jìn)入D盤(pán)根目錄中。（2）第四句是進(jìn)入WinRAR的安裝目錄。（3）最后一句的含義是將"E：＼ 教案"文件夾下的所有內(nèi)容壓縮成"教案.RAR"文件，并保存到H盤(pán)根目錄下。

四、利用EmEditor宏快速打開(kāi)文本文件

有時(shí)候，我們?cè)诰庉嬑谋疚募r(shí)，一次不可能完成所有的工作，下次還要打開(kāi)同一個(gè)文件，需要不停地轉(zhuǎn)換文件，直到找到相關(guān)的文件為止。

步驟1：用EmEditor新建一個(gè)VBS文件，文件名為“打開(kāi)指定文件”，其內(nèi)容如下：

dim WshShell

Set WshShell=CreateObject（"WScript.Shell"）

WshShell.Run''''''E：＼教案＼教學(xué)計(jì)劃.txt''''''

步驟2：將這個(gè)文件保存到“E：＼我的宏”文件夾下，單擊菜單欄中的“宏→自定義”命令，打開(kāi)“自定義宏”窗口，然后點(diǎn)擊“新建”按鈕，瀏覽找到剛才保存的“打開(kāi)指定文本.vbs”文件，最后單擊“確定”按鈕，完成宏代碼的添加。

這樣當(dāng)我們啟動(dòng)EmEditor后，然后單擊菜單欄中的“宏→打開(kāi)指定文本”命令，就可以打開(kāi)"E：＼教案"文件夾下的文本文件"教學(xué)計(jì)劃"。

參考文獻(xiàn)

[1]鳳凰高新教育編著.Office完全自學(xué)教程[M].北京大學(xué)出版社，2012.

[2]楊陽(yáng)編著.Office高效辦公實(shí)戰(zhàn)技巧[M].北京希望電子出版社，2013.