您好，RC。 如果您想知道我们决定回答您提出的问题的原因，那么告诉您，原因有两个。 首先，我们只是喜欢插入 Wingding 符号这个短语。 （没有为什么，喜欢就是喜欢。） 其次，也是目前最为重要的一个原因，就是这个问题很简单，仅需几行代码便能解决。

正如我们将要看到的，用于将符号插入 Word 文档的代码非常简单，难的是搞清楚要插入的符号（以及该符号的字符代码）。 最简单的方法（在今天专栏的末尾我们将向您介绍另外一种方法）可能就是打开符号对话框，选择所需字体，然后单击要插入的符号：

正如您所看到的，我们选择了笑脸。 这样做以后，笑脸的字符代码将列在字符代码框中。 既然已经知道要使用的字体 (Wingdings) 以及符号的字符代码 (74)，现在便可以编写一个用于将笑脸插入 Word 文档的脚本：

Set objWord = CreateObject("Word.Application")

objWord.Visible = True

Set objDoc = objWord.Documents.Add()

Set objSelection = objWord.Selection



objSelection.InsertSymbol 74, "Wingdings"

我们告诉过您该代码非常简单。 首先创建 Word.Application 对象的一个实例，然后将 Visible 属性设置为 True。 调用 Add() 方法创建新文档，然后创建 Word Selection 对象的一个实例。

此时，我们所需要的只是用于插入笑脸符号的一行代码：

objSelection.InsertSymbol 74, "Wingdings"

就是这样： 调用 InsertSymbol 方法，后跟所需字符代码和所需字体。 运行脚本，然后您应能在文档中看到一个笑脸。 （这确实是个奇迹，难道不是吗？）

如果您喜欢使用符号，则花一段时间创建符号及相应字符代码的目录是非常值得的。 下面提供一个脚本，用于创建其中含有 Wingdings 字体中已有的所有符号及其字符代码（字符代码 32 到 255）的 Word 文档。 通过简单修改该脚本，可为您提供 Wingdings2、Wingdings3、Webdings、Bookdings 以及需要的所有其他 ding-dang 字体的符号目录。

代码如下：

Set objWord = CreateObject("Word.Application")

objWord.Visible = True

Set objDoc = objWord.Documents.Add()

Set objSelection = objWord.Selection



For i = 32 to 255

    objSelection.TypeText i & " -- "

    objSelection.InsertSymbol i, "Wingdings"

    objSelection.TypeParagraph()

Next

它还称不上是真正的 IKEA 目录，但已经非常接近了。