Word允许您调整所选文本的大小写。如果您使用的是Word 2007或更高版本，则可以确保显示功能区的“主页”选项卡，然后单击“字体”组中的“更改大小写”工具（Aa）。

您将看到Word可以调整文本大小写的不同方式的列表。最常见的案例更改之一是标题案例。这种类型的更改会导致所选文本的每个单词均大写，而其余字母均变为小写。唯一的问题是，Word的大写形式相当不分青红皂白。例如，如果选择文本“这是一个测试”，然后使用“更改大小写”对话框将文本更改为标题大小写，则最终会出现“这是一个测试”。但是，常见的大写规则规定“短”字（“ is”和“ a”）不应大写。

这是宏派上用场的地方。您可以创建一个宏，以智能地将标题大小写应用于文本选择。可以对宏进行编程，以便在执行工作时忽略特定的一组单词。请考虑以下宏：

Sub TitleCase()

Dim lclist As String     Dim wrd As Integer     Dim sTest As String

' list of lowercase words, surrounded by spaces     lclist = " of the by to this is from a "



Selection.Range.Case = wdTitleWord

For wrd = 2 To Selection.Range.Words.Count         sTest = Trim(Selection.Range.Words(wrd))

sTest = " " & LCase(sTest) & " "

If InStr(lclist, sTest) Then             Selection.Range.Words(wrd).Case = wdLowerCase         End If     Next wrd End Sub

当您选择一些文本并运行此宏时，它要做的第一件事就是将文本更改为Word的标准标题大小写。然后，它逐步浏览所选内容中的单词（Word使单词在Words集合中可用），检查每个单词。提取每个单词并将其放在sTest变量中，然后将其转换为小写字母。然后对照lclist字符串检查sTest的内容，以查看是否存在匹配项。如果存在，则原始文本中的单词将转换为小写。

宏的键是lclist字符串。此字符串包含您希望始终以小写字母显示的单词列表。这些单词被空格包围，包括字符串的第一个和最后一个单词。

完成sTest比较后，sTest包含一个前导和尾随空格，以便可以成功进行匹配。 （包括空格，以便单词匹配时不会出现错误，例如将“ he”匹配到“ the”的一部分。）

同样要注意，宏的比较部分不会注意文本选择中的第一个单词。假定该单词是短语或句子的第一个单词，应始终以大写字母开头。

注意：

如果您想知道如何使用此页面（或_WordTips_网站上的任何其他页面）中描述的宏，我准备了一个包含有用信息的特殊页面。

点击此处在新的浏览器标签中打开该特殊页面。

_WordTips_是您进行经济有效的Microsoft Word培训的来源。

（Microsoft Word是世界上最流行的文字处理软件。）此技巧（3868）适用于Microsoft Word 2007、2010、2013和2016。您可以在这里找到适用于Word的较早菜单界面的该技巧的版本：

智能标题大小写。