Word宏应用实例
时间：2005-03-28 13:48 来源：未知 作者：未知 阅读：次
一、宏的录制
在这里举一实例。例如，在Word 97中，要插入字符，则往往要到符号框中查找半天。对于一些常用的符号，如“￥”，便可以使用宏来使工作简化。
1.单击“工具”选单中“宏”子选单，再单击“录制新宏”选项。
2.给宏取名为“Yuan”，再单击“键盘”。
3.在弹出的对话框中指定快捷键，可指定为“Ctrl＋Y”，再关闭该对话框回到“录制宏”对话框。单击“确定”按钮启动记录器。
4.运行“插入”选单中的“符号”子选单，从弹出的“符号”框中选择“￥”，插入后再关闭。另外，也可以指定到工具栏，从弹出的“自定义”对话框中的“命令”栏中把“Normal.NewMacro1.Yuan”拖放到工具栏中。
5.单击“停止录制”工具栏中的“停止录制”按钮。
6.单击“工具”选单中“宏”子选单，再单击“宏”命令。
7.选择第二步中的宏名称，再单击“编辑”按钮。
这时我们可以从中看到以下代码：
Sub Yuan()
Selection.InsertSymbol Font:=″楷体—GB2312″,CharacterNumber:=－27,Unicode:=True
End Sub
以后，当你需要插入字符“￥”时，只需按下快捷键“Ctrl＋Y”，或者是在工具栏点击“Normal.NewMacrol.Yuan”便可以了。
二、宏的编辑
宏录制器将以上宏操作翻译为Visual Basic代码。但是，录制宏时会受到一些限制。许多复杂的宏，例如，要用到循环语句，便无法录制。为了提高录制的宏的功能，就可能需要修改录制到模块中的代码。
具体操作为：单击“工具”选单中“宏”子选单，再单击“宏”命令。选择第二步中的宏名称，再单击“编辑”按钮。
然后便加载Visual Basic编辑器，我们可以看到所录制的宏自动生成的Visual Basic代码。
例如，在C:\My Document中有200个Word文档，依次命名为“1.doc”，“2.doc”，“3.doc”，…“200.doc”，我们需要把文件格式改变为文本文件，即txt文件。
先以1.doc为例，录制一个宏，打开文档，另存为txt文件，再关闭该活动文档。生成的Visual Basic代码如下：
Sub Macro1()
ChangeFileOpenDirectory ″C:\My document″
Documents.Open FileName:=″1.doc″
ActiveDocument.SaveAs FileName:=″1.txt″,FileFormat:=wdFormatText
ActiveWindow.Close
End Sub
下一步便进行编辑，用一个循环语句依次打开各个文件，转化后再关闭。代码如下：
Sub Macro1()
dim i
for i=1 to 200
ChangeFileOpenDirectory ″C:\My document″
Documents.Open FileName:=i ＆ ″.doc″
ActiveDocument.SaveAs FileName:
=i ＆ ″.txt″,
FileFormat:=wdFormatText
ActiveWindow.Close
next i
End Sub
再次运行该宏，便可以轻松完成任务。宏的作用由此可略见一斑。
在这里举一实例。例如，在Word 97中，要插入字符，则往往要到符号框中查找半天。对于一些常用的符号，如“￥”，便可以使用宏来使工作简化。
1.单击“工具”选单中“宏”子选单，再单击“录制新宏”选项。
2.给宏取名为“Yuan”，再单击“键盘”。
3.在弹出的对话框中指定快捷键，可指定为“Ctrl＋Y”，再关闭该对话框回到“录制宏”对话框。单击“确定”按钮启动记录器。
4.运行“插入”选单中的“符号”子选单，从弹出的“符号”框中选择“￥”，插入后再关闭。另外，也可以指定到工具栏，从弹出的“自定义”对话框中的“命令”栏中把“Normal.NewMacro1.Yuan”拖放到工具栏中。
5.单击“停止录制”工具栏中的“停止录制”按钮。
6.单击“工具”选单中“宏”子选单，再单击“宏”命令。
7.选择第二步中的宏名称，再单击“编辑”按钮。
这时我们可以从中看到以下代码：
Sub Yuan()
Selection.InsertSymbol Font:=″楷体—GB2312″,CharacterNumber:=－27,Unicode:=True
End Sub
以后，当你需要插入字符“￥”时，只需按下快捷键“Ctrl＋Y”，或者是在工具栏点击“Normal.NewMacrol.Yuan”便可以了。
二、宏的编辑
宏录制器将以上宏操作翻译为Visual Basic代码。但是，录制宏时会受到一些限制。许多复杂的宏，例如，要用到循环语句，便无法录制。为了提高录制的宏的功能，就可能需要修改录制到模块中的代码。
具体操作为：单击“工具”选单中“宏”子选单，再单击“宏”命令。选择第二步中的宏名称，再单击“编辑”按钮。
然后便加载Visual Basic编辑器，我们可以看到所录制的宏自动生成的Visual Basic代码。
例如，在C:\My Document中有200个Word文档，依次命名为“1.doc”，“2.doc”，“3.doc”，…“200.doc”，我们需要把文件格式改变为文本文件，即txt文件。
先以1.doc为例，录制一个宏，打开文档，另存为txt文件，再关闭该活动文档。生成的Visual Basic代码如下：
Sub Macro1()
ChangeFileOpenDirectory ″C:\My document″
Documents.Open FileName:=″1.doc″
ActiveDocument.SaveAs FileName:=″1.txt″,FileFormat:=wdFormatText
ActiveWindow.Close
End Sub
下一步便进行编辑，用一个循环语句依次打开各个文件，转化后再关闭。代码如下：
Sub Macro1()
dim i
for i=1 to 200
ChangeFileOpenDirectory ″C:\My document″
Documents.Open FileName:=i ＆ ″.doc″
ActiveDocument.SaveAs FileName:
=i ＆ ″.txt″,
FileFormat:=wdFormatText
ActiveWindow.Close
next i
End Sub
再次运行该宏，便可以轻松完成任务。宏的作用由此可略见一斑。
(责任编辑：admin)
顶一下
(0)
0%
踩一下
(0)
0%
相关内容
最新内容