厌倦了在Microsoft Word中执行重复的任务吗？在程序中嵌入了一个强大的自动化工具，它可以让你不必操心这些工作。我们说的是宏，虽然这个功能依赖于微软的visualbasicforapplicati***（VBA），但是即使编码的思想给了你很大的便利，你也可以使用它。

只需单击一个按钮，Word就会记录下您的操作，生成一个宏，您可以随时回放。如果你喜欢冒险，你可以很容易地修改宏以获得更高的自动化程度。

这里我们将向您展示一个简单但有用的示例：如何自动执行Word的查找和替换函数。

录制宏

在这个例子中，你是古董牙科用具保护协会的尊敬的主席。你有几十个关于历史假牙之类的Word文档，都突出提到了社会的名字。突然，董事会投票决定将名称改为牙科古董保护联盟。现在你需要一个简单的方法来更新文档。

您可以从新的空白文档开始，也可以打开现有文档。如果您还没有这样做，就必须启用“开发人员”选项卡。

转到“文件”&gt；“选项”&gt；“自定义功能区”。在右侧的“主选项卡”下，选中“开发人员”选项。选择OK并退出。

现在让我们创建宏。

1. 单击“开发人员”&gt；“录制宏”。
2. 系统将提示您命名宏。输入“ChangeSocietyName”或任何其他适合您的名称。命名宏时，请避免使用空格、句点、感叹号和特殊字符，否则会出现错误消息。可以使用数字，但第一个字符必须是字母。
3. 可以将宏指定给按钮和/或键盘快捷键，但这不是必需的。如果您选择按钮，Word将允许您将其添加到快速访问工具栏。还可以添加宏的简要说明。
4. 单击OK，Word现在将记录您的操作。按Ctrl+H以打开“查找和替换”对话框。
5. 在寻找中进入“牙科古董保存协会”，在更换中进入“牙科古董保存联盟”。
6. 单击全部替换以执行查找和替换操作。这是你想录制的唯一动作。宏是否替换了任何文本并不重要。关键是要保存它以供其他文档使用。
7. 这一点很重要：单击“开发人员”&gt；“停止录制”。否则，宏将包含所有后续操作。

现在让我们看看你的作品。打开包含社团名称的文档。单击“开发人员”&gt；“宏”。如果双击ChangeSocietyName，Word将自动执行查找和替换操作。

提示：录制宏时，可能需要执行不希望录制的操作。例如，您可能希望将文本复制并粘贴到“查找和替换”对话框中，而不是手动键入文本。没问题：只需单击“开发人员”&gt；“暂停录制”，复制并粘贴文本，然后单击“开发人员”&gt；“继续录制”。然后，您可以完成上述宏录制。

虽然我们在这里重点讨论的是MicrosoftWord，但您也可以使用宏来提高Excel中的工作效率。而且微软OneNote有很多省时的宏。

潜入密码

现在我们将深入研究我们的新词宏。转到“开发人员”&gt；“宏”，但不要双击宏，而是选择它并单击“编辑”。这将打开visualbasic编辑器，这是一个用于构建VBA应用程序的自包含环境。

它可能看起来令人望而生畏，但您可以忽略菜单和大多数面板。而应该关注包含代码的窗口。如您所见，Word刚刚编写了一个宏来执行查找和替换。

Sub ChangeSocietyName()'' ChangeSocietyName Macro' Rename Society for the Preservation of Antique Dental Appliances' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "Society for the Preservation of Antique Dental Appliances" .Replacement.Text = "Dental Antiques Preservation League" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAllEnd Sub

让我们解释一下这里发生了什么。

第一行的“sub”是“subroutine”的缩写，这是一个可以独立运行或作为更大VBA应用程序一部分运行的小程序。带单引号的行用于注释。引号告诉VBA忽略这些行上的任何语句。

然后我们进入代码的核心：执行查找和替换操作的代码。如您所见，它为“查找和替换”对话框中的每个选项指定值，包括引号中的文本和替换文本。这个选择.查找.执行接近结尾的命令相当于单击“全部替换”按钮。

修改宏

要使用宏，您不必弄乱代码，甚至不必查看它。但如果你愿意深入研究，你可以从这个功能中得到更多。例如，假设您在录制宏时输入了一个拼写错误。您可以进入visualbasic并修复它，而不是重新录制它。

您还可以调整宏使其更有用，这就是我们在这里要做的。当您手动或通过宏运行Find and Replace时，Word会记住Find and Replace文本。下次打开“查找和替换”对话框时，它将如下所示。

最好清除这些值，这样我们就可以得到一个干净的对话框。我们将使用第二个宏来实现这一点，但这次，我们将直接在visualbasic中实现。

1. 在visualbasic编辑器中，选择从第一行到结束子例程的整个子例程。按Ctrl+C将其复制。
2. 将光标放在endsub下面，按Ctrl+V。您刚刚复制了子例程。
3. 将名称从ChangeSocietyName更改为ClearFindReplace（或任何其他适合您的名称）。这一点很重要，因为如果您尝试使用重复的名称运行宏，VBA将生成错误消息。
4. 在.Text和替换。文本值，删除文本，但保留引号。本质上，你告诉Word什么都找不到，用什么都没有来代替它，但你也在清除那些值。

结果应该是这样的：

Sub ClearFindReplace()'' ClearFindReplace Macro' Clear Text from Find and Replace dialog' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAllEnd Sub

现在我们回到ChangeSocietyName宏。在Find和Replace代码下面，但在End Sub之前，输入ClearFindReplace（末尾没有括号）。

没错：您不必输入刚刚创建的所有代码，只需输入宏的名称。

Sub ChangeSocietyName()'' ChangeSocietyName Macro' Rename Society for the Preservation of Antique Dental Appliances' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "Society for the Preservation of Antique Dental Appliances" .Replacement.Text = "Dental Antiques Preservation League" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ClearFindReplace End Sub

当Word运行ChangeSocietyName时，首先它将执行原始的Find和Replace函数。然后它将ClearFindReplace解释为运行第二个宏的命令。

vba的进一步发展

正如你所看到的，Word的宏录制功能可以帮助你节省无数的时间。您可以创建宏来自动化几乎所有的操作，并且在visualbasic编辑器中，您可以调整宏，将一个宏嵌入另一个宏中，或者创建一个子例程来逐个执行多个宏。

因为VBA是一种成熟的编程语言，所以您可以将子程序合并到具有变量、循环、条件语句等的大型应用程序中。一旦你在Word中学习了VBA的基本知识，你就可以在microsoftexcel和Access中创建宏了。

为了更进一步，您需要了解有关VBA约定和visualbasic编辑器的更多信息，例如如何组织代码以及如何处理bug。但是，即使您想坚持使用这里描述的简单功能，您也可以在很大程度上提高工作效率。