Office Word 宏运用15例

Office Word 宏运用15例2011年5月15日星期日siqin。

hou@gmail。

comhttp：//www。

qdnbp。

com/zhanghui/Blogs/office/201002/20100205201330。

Html宏是什么？VBA是什么？在微软的Office帮助文档里关于宏、VBA是这样定义的：宏：可用于自动执行任务的一项或一组操作。

Visual Basic 编辑器：一种环境，用于编写新的Visual Basic for Applications 代码和过程，并编辑已有的代码和过程。

Visual Basic 编辑器包括完整的调试工具集，用于查找代码中的语法、运行时和逻辑问题。

具体的讲以Word 2003为例：在文档编辑过程中，经常有某项工作要多次重复，这时可以利用Word 的宏功能来使其自动执行，以提高效率。

宏将一系列的Word 命令和指令组合在一起，形成一个命令，以实现任务执行的自动化。

用户可以创建并执行一个宏，以替代人工进行一系列费时而重复的Word 操作。

宏可以完成以下一些工作：•加速日常编辑和格式设置。

•组合多个命令。

•使对话框中的选项更易于访问。

•使一系列复杂的任务自动执行。

Word 提供了两种创建宏的方法：宏录制器和Visual Basic 编辑器。

宏录制器可帮助用户快速创建宏。

用户可以在Visual Basic 编辑器中打开已录制的宏，修改其中的指令。

也可以直接用Visual Basic 编辑器创建新宏，这时可以输入一些无法录制的指令。

启动宏录制器，并进行一系列操作，即可在Word 中录制宏。

可以将一些经常使用的宏指定到工具栏、菜单或快捷键中，以后运行宏就可以直接单击工具栏按钮或菜单项，或按快捷键，不必使用宏对话框。

录制宏时，可单击工具栏按钮和菜单选项。

但是，宏录制器不能录制文档窗口中的鼠标运动，如果要移动插入点、选定文本，滚动文档，必须用键盘录制这些操作。

那么我们在哪里去找宏和VBA呢？下面是Word 2003中宏和VBA的位置：Word 2003中的宏和VBA是在“工具”-“宏”下接菜单中.(VBA就是上图中的visual basic 编辑器)宏命令实现下载文档统一Word阅读样式好多时候，我们会在网上复制、粘贴一些资料，但是在不同的网站，下载的样式、格式都不一样，自己在Word中，还要整理、排版、修正，有没有什么方法让我们复制的网页上的内容一放到Word里，就已经成为我们想要的样式、格式呢？宏命令实现下载文档统一Word阅读样式(图)可以为你解决这个问题，提高你的工作效率。

下面是具体的方法，让我们一起来运用Word中的宏命令来实现我们的目的。

1. 任意打开一篇文挡，用鼠标任选一段文字。

2. 执行“工具→宏→录制新宏”命令，打开如图1所示对话框。

3. 在“录制宏”对话框的“宏名”文本框中输入宏的名称“读前设置”，在“将宏保存在”下拉列表框中选择“所有文档（normal.dot）”，然后单击〔工具栏〕按钮，打开下图所示“自定义”对话框。

4. 在“自定义”对话框中选择“命令”选项卡，在“命令”列表框中将显示输入的宏名。

在该名称上按下鼠标左键将其拖到“常用”工具栏上，这样工具栏上就多了一个〔统一格式〕按钮了。

5. 单击〔关闭〕进入宏的录制过程。

此时，“停止”浮动工具栏将出现在屏幕上，此工具栏上有两个按钮，左边是〔停止〕，右边是〔暂停）。

6. 执行“格式→字体”命令，在打开的“字体”对话框中选择“字体”选项卡，在对话框的“中文字体”下拉列表中选择“宋体”，在“字形”下拉列表中选择“常规”，在“字号”下拉列表中选择“四号”，在“字体颜色”下拉列表中选择“灰度-80%”，单击〔确定〕。

7. 单击“停止”工具栏上的〔停止〕按钮结束录制。

这样，在你复制了网上的资料后，只要再粘贴到Word中，点击工具栏上的“统一格式”，就会发现，现在你的格式、样式都是你喜欢的了，快点自己实现吧！看一下，我的宏命令应用：Word宏：实现本机Word打印密码保护有的时候我们都有自己的打印机，用来打印文档。

如果在工作中，有人常常用你的电脑，打印机打印非正常使用的文档，在你不在的时候，如用你的喷墨打印机打印照片，也没有和你打个招呼，几张下来，你的打印机墨水可能就空了，你还要和老板申请新墨盒，老板也许会责怪你，如果你直接和同事说呢，又不大好，也许你也不知道是谁用了你的打印机，现在用Word宏，就可以实现给你的Word打印加上密码保护，除非你的授权，别人是不能用你的电脑打印的。

下面是具体的方法：1）点击Word菜单中的“工具”-“宏”-“宏”。

2）在出现的对话框中“宏名”中输入“ Fileprint".3)点击“创建”，在出现的normal模板中粘贴下面的代码：Sub FilePrint()pass$ = InputBox("请输入打印密码：")If pass$ = "abcd" ThenDialogs(wdDialogFilePrint).ShowElseMsgBox ("密码错误，请与管理人员联系！") End IfEnd SubSub FilePrintdefault()pass$ = InputBox("请输入打印密码：")If pass$ = "abcd" ThenDialogs(wdDialogFilePrint).ShowElseMsgBox ("密码错误，请与管理人员联系！") End IfEnd SubWord宏实现记录本机打印历史记录在前面的[Word宏：实现本机Word文档打印密码保护] 中，我们实现了密码保护本机Word打印，下面我们再介绍一下，如何实现记录本机打印历史记录。

操作步骤：1）打开VBA编辑器。

2）右单击“normal工程”-“插入”-“模块”。

3）将下面的代码粘贴到“normal-模块”中，保存，回到Word文档。

Sub FilePrint()Dialogs(wdDialogFilePrint).ShowDName = ActiveDocument.Path + "\" + If ActiveDocument.Path = "" Then DName = "未保存文档"Tim = Str(Date) + " 日" + Str(Time)Open "c:\print.txt" For Append As #1Print #1, "于" + Tim+ " 打印" + DNameClose #1End Sub4）打印，打开C：\print.txt,查看结果。

Word宏实现删除Word文档所有超链接好多时候，我们在网上收集资料，常常保留着许多超链接，下面的方法告诉我们如何使用Word宏实现删除Word文档中的所有超链接。

1）打开Word的菜单工具->宏->Visual Basic 编辑器，或直接按快捷键Alt+F11，打开Visual Basic 编辑器。

2）在左侧的工程中右单击你要实现删除超链接的文档工程，“插入”-“模块”。

注：一般我们是设置在normal模板工程中3)在打开的模块窗口中粘贴下面的代码：Sub RemoveHyperlinks()Dim oField As FieldFor Each oField In ActiveDocument.FieldsIf oField.Type = wdFieldHyperlink ThenoField.UnlinkEnd IfNextSet oField = NothingEnd Sub4）保存，返回到你的当前文档。

5）测试使用：打开“工具”-“宏”-"宏命令”，找到刚完成的"RemoveHyperlinks",单击“运行”，就看到效果了。

这个时候就会看到刚才的超链接已经去掉，测试成功。

Word中英文标点符号互换-VBA源码实现通常我们在使用Word编辑文档时、都会遇到过输入法的切换过程式、最简单的有时我们我们录入汉字、有时又录入一定的英文字母、这样就在不经意间、我们混用了中英文的标点符号、如果一个一个找出来、Word文档不长还可以、如果我们录入的是几千字、几万字、一个一个地找出标点的错误、就不容易了。

对于这种情况、为什么我们不开动脑筋、想出办法？Word里面的宏命令、可以帮我们做这件事情、我们如果一个一个去找、费的时间太多了、让它来处理、没问题、只是几秒钟。

现在让我们一同来学习如何用Word宏来实现Word文档中的中英文标点符号互换。

在这里我们要遇到VBA、就是Visual Basic for Applications、实际就是VB应用程序、理不理解不要紧、只要实现就达到我们高效办公的目标了。

下面是我们要复制的代码：Sub ToggleInterpunction()'中英文标点互换Dim ChineseInterpunction() As Variant, EnglishInterpunction() As VariantDim myArray1() As Variant, myArray2() As Variant, strFind As String, strRep As StringDim msgResult As VbMsgBoxResult, N As Byte'定义一个中文标点的数组对象ChineseInterpunction = Array("、","。

", "，", "；", "：", "？", "！", "……", "—", "～", "（", "）", "《", "》")'定义一个英文标点的数组对象Engl ishInterpunction = Array(",",".", ",", ";", ":", "?", "!", "…", "-", "~", "(", ")", "<", ">")'提示用户交互的MSGBOX对话框msgResult = MsgBox("您想中英标点互换吗?按Y将中文标点转为英文标点,按N将英文标点转为中文标点!", vbYesNoCancel)Select Case msgResultCase vbCancelExit Sub '如果用户选择了取消按钮,则退出程序运行Case vbYes '如果用户选择了YES,则将中文标点转换为英文标点myArray1 = ChineseInterpunctionmyArray2 = EnglishInterpunctionstrFind =""" (*)"""strRep = """\1"""Case vbNo '如果用户选择了NO,则将英文标点转换为中文标点myArray1 = EnglishInterpunctionmyArray2 = ChineseInterpunctionstrFind = """(*)"""strRep = """\1"""End SelectApplication.ScreenUpdating = False '关闭屏幕更新For N = 0 To UBound(ChineseInterpunction) '从数组的下标到上标间作一个循环With ActiveDocument.Content.Find.ClearFormatting '不限定查找格式.MatchWildcards = False '不使用通配符'查找相应的英文标点,替换为对应的中文标点.Execute findtext:=myArray1(N), replacewith:=myArray2(N), Replace:=wdReplaceAll End WithNextWith ActiveDocument.Content.Find.ClearFormatting '不限定查找格式.MatchWildcards = True '使用通配符.Execute findtext:=strFind, replacewith:=strRep, Replace:=wdReplaceAllEnd WithApplication.ScreenUpdating = True '恢复屏幕更新End Sub有了代码、看看我们还要怎么去做？1）打开“Visual Basic编辑器”、如下图所示、或用快捷键Alt+F11。