瑞星卡卡安全论坛

首页 » 技术交流区 » 系统软件 » 巧用Office中的宏让十步并着一步走
时光海滩 - 2011-2-23 11:18:00
在中打开一个文件,一般要经过多个步骤:首先要执行“文件→打开”菜单命令(或单击“打开”按钮),在弹出的打开对话框中,接着再选择目录、选中文件、单击“打开”按钮等。而如果将这个过程记录成宏的话,以后只要单击一次宏按钮,即可自动完成以上所有的步骤。当然这只是一个极端的例子,下面我们再来看看两个实用性非常强的“宏”实例,一定能大大提高我们的工作效率的。
实例1:1秒钟在PPT里插入100张图片
如果要插入几十甚至几百张图片,并且要求每张图片插入到每张幻灯片页面上(即有几张照片就要有几张幻灯片)你会怎么做?按照常用的方法点击“插入→图片→来自文件”菜单命令,然后一个一个选择需要的图片,或者点击“格式→背景”命令,将图片作为的背景导入,这样也太浪费时间了。在这种情况下,可以借助强大的宏功能,将多步操作合并为一步,批量插入图片。
第一步:首先准备好图片,假设在C盘下面的Pictures文件夹内有60张jpg格式的图片,如“C:\Pictures\1.jpg”、“C:\Pictures\2.jpg”、“C:\Pictures\3.jpg”等,文件名是有序的数字。
第二步:启动 2003,按下Alt+F11键打开编辑器窗口,点击“插入→模块”菜单命令,在弹出的代码编辑窗口中输入以下代码:
Sub InsertPic()
    Dim i As Integer
    For i = 1 To ActivePresentation.Slides.Count
        ActivePresentation.Slides(i).Select
        With ActiveWindow.Selection.SlideRange
            .FollowMasterBackground = msoFalse
            .Background.Fill.UserPicture "C:\Pictures\" & i & ".jpg"
            End With
    Next
End Sub
第三步:关闭编辑器窗口,上面的模块代码会自动保存。此时,连续按Ctrl+M键建立与图片数目相等(如:60)的多个空白幻灯片。按Alt+F8键打开宏对话框,选中我们上面建立的InsertPic宏,点击“运行”即可,60张图片很快就自动插入到幻灯片中了。
实例2:为添一本随手就查的百科全书
因特网就像是一本大百科全书,里面的资料应有尽有。所以我在使用编辑文档时,随时要从网上搜索一些资料,只是每次还要先打开IE再输入搜索引擎网址才能完成搜索,非常麻烦。其实可以在Word中直接启动IE,并自动打开搜索引擎主页,用起来很方便。

第一步:启动 2003,按下Alt+F8组合键打开“宏”窗口。在“宏名”中输入搜索引擎的名称,如“Baidu”(这里以添加百度为例,其他搜索引擎的建立方式与此类似),然后单击“创建”按钮,打开编辑器。
第二步:在“Sub Baidu()”与“End Sub”之间输入如下代码:
shell"C:\Program Files\Internet Explorer\iexplore.exe "

如图1所示,单击工具栏上的“保存”按钮,将代码保存在“通用”模板中。


第三步:关闭编辑器返回主界面,点击“工具→自定义”菜单命令,打开“自定义”窗口,切换到“命令”选项卡,然后在“类别”中选择“宏”,并在右侧“命令”中选择“Nomail.Newros.Baidu”(见图2),并把它拖放到工具栏适当的位置,在工具栏上右击按钮,选择“命名”,给该按钮起一个名字,如:“百度搜索”,完成之后关闭“自定义”窗口。


第四步:当需要在网上搜索资料时,只要单击工具栏上的“百度搜索”按钮,就会自动打开IE并出现百度的搜索页面了。

用户系统信息:Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; SV1; Maxthon; .NET CLR 1.1.4322; .NET CLR 2.0.50727)
awilamt - 2011-2-23 13:52:00
不错
量子人类 - 2011-2-26 7:05:00
学习了
1
查看完整版本: 巧用Office中的宏让十步并着一步走