宏命令的便捷应用

耿向川

摘 要：本文利用宏命令编写宏代码简化繁琐操作，重点介绍了EmEditor文本编辑器的使用。

关键词：宏命令EmEditor文本编辑

在Word、Excel等应用程序中内置了宏的编辑和运行环境，在日常的办公应用中，如果遇到执行一些相同操作步骤等情况时，可以编写宏代码来简化操作。那么，我们可以利用EmEditor文本编辑器来完成一些简化操作。

一、利用EmEditor宏快速输入个人信息

步骤1：打开EmEditor，输入以下内容：

Document.selection.Text="地址：

山西省XX市XX县XX小区XX单元XX室"输入你的地址。

Document.selection.NewLine1回车，下同

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

Document.selection.NewLine1

Document.selection.Text="邮编：XXXXXX"输入你的邮编

Document.selection.NewLine1

Document.selection.Text=

"身份证号：XXXXXXXXXXXXXXXXXX"输入你的身份证号

Document.selection.NewLine1

Document.selection.Text="QQ号：XXXXXXXXXX"输入你的QQ号

Document.selection.NewLine1

输入完成后，单击菜单栏中的“文件→保存”命令，打开“另存为”窗口，选择保存位置（如E：＼我的宏），然后在文件名后边的文本框内输入“个人信息.vbs”，最后点击“保存”按钮。[1]

步骤2：单击菜单栏中的“宏→自定义”命令，打开“自定义宏”窗口，然后点击“新建”按钮，浏览找到刚才保存的“个人信息.vbs”文件，最后单击“确定”按钮，完成宏代码的添加。[2]

如果以后需要添加个人信息时，只需要单击菜单栏中的“宏→个人信息”命令，就可以完成个人信息的添加了。

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

我们在新建一个文本文件时，总是要先选择文件的保存位置及文件名对该文件进行保存，这个过程很繁琐，利用EmEditor宏可以很轻松地完成在指定位置建立指定文件名的文本文件。下面以“E：＼教案”文件夹下新建一个“我的教案”的文本文件为例来做具体说明：

步骤1：复制“E：＼我的宏”文件夹下的“个人信息”VBS文件，将复制的文件重命名为“我的教案”，右击该文件，在出现的右键菜单栏中，单击“Edit”命令，打开该文件，将其内容替换为：

Option Explict '强制变量声明

dim WshShell，fso，f

Set WshShell=CreateObject（"WScript.Shell"）

set fso=createobject（"scripting.filesystemobject"）

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

WshShell.Run''''''E：＼教案＼我的教案.txt'''''''存在就直接打开

else

set f=fso.createtextfile（"E：＼教案＼我的教案.txt"）'不存在时，就新建一个

WshShell.Run''''''E：＼教案＼我的教案.txt''''''打开该文件

End if

最后保存。

步骤2：单击菜单栏中的“宏→自定义”命令，打开“自定义宏”窗口，然后点击“新建”按钮，浏览找到刚才保存的“我的教案.vbs”文件，最后单击“确定”按钮，完成宏代码的添加。

三、利用EmEditor宏快速压缩文件

我们在通过QQ等软件传送一个大容量文件时，通常需要对文件进行压缩以方便传送，为了操作简便，我们可以在EmEditor界面中调用WinRAR对相关文件进行压缩，还是以"E：＼教案"文件夹为例。

步骤1：将一个VBS文件保存到“E：＼我的宏”文件夹下，起文件名为“压缩”，内容如下：

dim WshShell

Set WshShell=CreateObject（"WScript.Shell"）

WshShell.Run''''''E：＼我的宏＼压缩.bat''''''

步骤2：在与第一步相同的位置新建一个批处理文件“压缩”，其内容如下：

cd..

cd..

d：

cd D：＼Program Files＼WinRAR＼

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

命令说明：（1）前三句命令的含义是进入D盘根目录中。（2）第四句是进入WinRAR的安装目录。（3）最后一句的含义是将"E：＼ 教案"文件夹下的所有内容压缩成"教案.RAR"文件，并保存到H盘根目录下。

四、利用EmEditor宏快速打开文本文件

有时候，我们在编辑文本文件时，一次不可能完成所有的工作，下次还要打开同一个文件，需要不停地转换文件，直到找到相关的文件为止。

步骤1：用EmEditor新建一个VBS文件，文件名为“打开指定文件”，其内容如下：

dim WshShell

Set WshShell=CreateObject（"WScript.Shell"）

WshShell.Run''''''E：＼教案＼教学计划.txt''''''

步骤2：将这个文件保存到“E：＼我的宏”文件夹下，单击菜单栏中的“宏→自定义”命令，打开“自定义宏”窗口，然后点击“新建”按钮，浏览找到刚才保存的“打开指定文本.vbs”文件，最后单击“确定”按钮，完成宏代码的添加。

这样当我们启动EmEditor后，然后单击菜单栏中的“宏→打开指定文本”命令，就可以打开"E：＼教案"文件夹下的文本文件"教学计划"。

参考文献

[1]凤凰高新教育编著.Office完全自学教程[M].北京大学出版社，2012.

[2]杨阳编著.Office高效办公实战技巧[M].北京希望电子出版社，2013.