OFFICE学习资料 | OFFICE资源下载 | OFFICE知识问答      
设为首页
加入收藏
联系站长
  当前位置:Office学院 >> Word >> Word编程实例 >> 正文

我要提问
Word宏应用实例
[2006年10月27日]  点击数: 【字体: 】【双击滚屏
 
一、宏的录制

  在这里举一实例。例如,在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做名片 三步轻松搞定
最新文章
妙用Word宏输入特殊符号12/06
Word宏应用实例10/27
用Word2003轻松制作桌面日历10/27
用Word做名片 三步轻松搞定10/27
用Word实现统计文本打开的总次数10/27
Word里怎么把分数打出来10/27
用Word统计文字出现的次数10/27
宏应用实例:怎样让Word统计文字出现的次数10/27
热门文章
相关文章
利用Excel 的宏功能来做学生成绩
PowerPoint课件动画制作三例
在Word中使用艺术字实现“福到了
用Word宏记录打印机的使用情况
从Word工具栏也能启动应用程序
巧妙更改Excel批注的默认格式
利用“数据透视表”实现课表生成
妙用Word宏输入特殊符号
office知识问答 | office资源下载
备案许可证号: 津ICP备06003561号
版权所有:Office学院 www.officeXY.com
OFFICE学院致力于成就华人社区最受欢迎的office办公软件学习园地;为大家提供word、excel、access、FrontPage、PowerPoint等Office各个系列产品的最全的教程、用法、技巧、方案;并竭力打造最方便的问题解答系统