Creating Hyperlinks after a Mail Merge

[jeffreybrown]

After running the mail merge, I use the code below to turn e-mail addressed into hyperlinks, but the text gets indented.

Sub MakeLinks()
    Application.ScreenUpdating = False
    Dim Rng As Range
    With ActiveDocument
        Set Rng = .Range
        With .Range
            With .Find
                .ClearFormatting
                .Replacement.ClearFormatting
                .text = "<[0-9A-ÿ.\-]{1,}\@[0-9A-ÿ\-.]{1,}"
                .Replacement.text = ""
                .Forward = True
                .Wrap = wdFindStop
                .Format = False
                .MatchWildcards = True
                .Execute
            End With
            Do While .Find.Found
                .Duplicate.AutoFormat
                .Collapse wdCollapseEnd
                .Find.Execute
            Loop
            .End = Rng.Start
            With .Find
                .text = "http://[! ]{1,}"
                .Execute
            End With
            Do While .Find.Found
                .Duplicate.AutoFormat
                .Collapse wdCollapseEnd
                .Find.Execute
            Loop
        End With
    End With
    Application.ScreenUpdating = True
End Sub

Without creating a table for each mail merge field, can this be overcome? In the mail merge template, the e-mail is preceded by a phone number, which is this case is blank. I have tab stops setup in the mail merge template to space out the phone number followed by the e-mail.

[macropod]

You don't need a macro for this! See Mailmerge Hyperlink ‘Click Here’ Insertion in the Mailmerge Tips and Tricks 'Sticky' thread at the top of this forum:
https://www.msofficeforums.com/mail-...ps-tricks.html

[jeffreybrown]

Thanks Paul...Got it now, however, it seems right after the merge to a new document, I go back to the template and the field is no longer a hyperlink.

If I create the hyperlink in the template and perform the merge, all works good, but again, after the merge or when selecting save before the merge I lose the hyperlink.

Does this sound like what you've experienced before?

[macropod]

Hyperlink fields can be finicky that way. Simply save mailmerge main document before doing the merge but don't re-save it afterwards. If you need to make changes to the mailmerge main document, don't make/save them after doing a merge; make/save them beforehand.

[jeffreybrown]

Okay thanks. For awhile there it was driving me nuts. Couldn't see what I was doing wrong.