1. We have moved from vBulletin to XenForo and you are viewing the site in the middle of the move. Though the functional aspect of everything is working fine, we are still working on other changes including the new design on Xenforo.
    Dismiss Notice

word hyperlinks

Discussion in 'Visual Basic ( VB )' started by catman, Jun 30, 2008.

  1. catman

    catman New Member

    Joined:
    Jun 30, 2008
    Messages:
    2
    Likes Received:
    0
    Trophy Points:
    0
    My current challenge is creating a hyperlink in word from two components in Access - the link and the address. I get the merge info into word, by exporting from Access to a TXT document in csv. Then open WORD and merge the doc with the TXT file to create a form letter.

    I use this code in a Word MACRO to merge with the doc
    Code:
    Sub CatMerge()
    '
    ' CatMerge Macro   Macro recorded 3/15/2004 by pmh
    '
        ActiveDocument.MailMerge.OpenDataSource Name:= _
            "C:\catsys\mail\catmergeprop.txt", ConfirmConversions:=False, ReadOnly:=False _
            , LinkToSource:=True, AddToRecentFiles:=False, PasswordDocument:="", _
            PasswordTemplate:="", WritePasswordDocument:="", WritePasswordTemplate:= _
            "", Revert:=False, Format:=wdOpenFormatAuto, Connection:="", SQLStatement _
            :="", SQLStatement1:=""
        With ActiveDocument.MailMerge
            .Destination = wdSendToNewDocument
            .SuppressBlankLines = True
            With .DataSource
                .FirstRecord = wdDefaultFirstRecord
                .LastRecord = wdDefaultLastRecord
            End With
            .Execute Pause:=False
        End With
    End Sub
    
    
    The LINK and the address come over fine. Right now the user has to fiddle about in the newly created document with CTRL + K to make the hyperlink.

    Is there any way to do this in code behind the scenes?

    cheers Catman
     
    Last edited by a moderator: Jun 30, 2008

Share This Page