在超連結中使用合併列印功能變數

方法 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]，然後選取 [執行]。