通常，您在键入时在文本中添加引号。但是，有时候您想在以后添加引号。

例如，在编辑文档时，您可以选择一些文本，然后希望在所选文本周围添加引号。您可以使用以下宏完成此任务：

Sub AddQuotes()

Dim sBegQ As String     Dim sEndQ As String

If Options.AutoFormatAsYouTypeReplaceQuotes Then         sBegQ = Chr(147)

sEndQ = Chr(148)

Else         sBegQ = Chr(34)

sEndQ = Chr(34)

End If

Selection.InsertBefore sBegQ     Selection.InsertAfter sEndQ End Sub

宏会根据您是否打开Word的SmartQuotes来确定要使用的引号的正确类型。然后在选择之前和之后放置正确的引号。

注意：

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

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

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

（Microsoft Word是世界上最流行的文字处理软件。）本技巧（13326）适用于Microsoft Word 2007、2010、2013、2016、2019和Office 365中的Word。 Word的旧菜单界面在这里：

添加引号。