在超链接中使用邮件合并字段

方法 2：创建动态修改超链接文本的宏

Microsoft 提供编程示例仅供说明，不提供明示或默示担保。 这包括但不限于适销性或针对特定用途的适用性的默示保证。 本文假定你熟悉所演示的编程语言以及用于创建和调试过程的工具。

Microsoft 支持工程师可以帮助解释特定过程的功能，但他们不会修改这些示例以提供附加的功能或构造过程来满足你的特定要求。 如果要动态修改合并的电子邮件中的超链接文本，请创建宏。

执行这些步骤后，超链接将显示基于数据源中的 URL 的文本。 为此，请按照下列步骤操作：

1. 按照“方法 1：在邮件合并字段周围添加超链接字段”中的步骤操作。

2. 在“ 工具 ”菜单上，指向“ 宏”，然后选择“Visual Basic 编辑器”。

3. 按 F7。 此时将显示代码窗口。

4. 将以下代码复制并粘贴到代码窗口中：

   Sub MergeToEmail()
   
       Dim bDone As Boolean
       bDone = False
   
       Do While bDone = False
   
           ActiveDocument.Fields.Update
   
           For Each oHyperlink In ActiveDocument.Hyperlinks
               oHyperlink.TextToDisplay = oHyperlink.Address
               oHyperlink.Range.Font.Color = wdColorBlue
               oHyperlink.Range.Font.Underline = wdUnderlineSingle
               oHyperlink.Range.Font.UnderlineColor = wdColorBlue
           Next oHyperlink
   
           With ActiveDocument.MailMerge
               .Destination = wdSendToEmail
               .SuppressBlankLines = True
               ' You can modify the text "Enter Your Subject Here" or 
               ' remove the following line if you do not want a subject
               ActiveDocument.MailMerge.MailSubject = "Enter Your Subject Here"
               With .DataSource
                   .FirstRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord
                   .LastRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord
               End With
               .Execute Pause:=False
           End With
   
           If ActiveDocument.MailMerge.DataSource.ActiveRecord = _
               ActiveDocument.MailMerge.DataSource.RecordCount Then
               bDone = True
           End If
           ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord
       Loop
   End Sub
   
   

5. 在“ 工具 ”菜单上，指向“ 宏”，然后选择“宏”。

6. 选择“MergeToEmail”，然后选择“运行”。