ハイパーリンク内での差し込み印刷フィールドの使用

方法 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] を選択し、[実行] を選択します。