Insert a HyperLink in to Word using VBA - ADO DAO RDO RDS

This is a discussion on Insert a HyperLink in to Word using VBA - ADO DAO RDO RDS ; Using MS Access 2003. I'm able to insert text in to the 2nd column of the 11th row of a table in a word doc. I'd like to insert a hyperlink in to that 2nd column of the 11th row ...

+ Reply to Thread
Results 1 to 3 of 3

Insert a HyperLink in to Word using VBA

  1. Default Insert a HyperLink in to Word using VBA

    Using MS Access 2003.

    I'm able to insert text in to the 2nd column of the 11th row of a table in a
    word doc.
    I'd like to insert a hyperlink in to that 2nd column of the 11th row of a
    table in a word doc.

    Below is a quick sample of the code I'm currently using:

    Dim objWord As Word.Application
    Dim objWordDoc As Word.Document

    Set objWord = GetObject("", "word.application")
    objWord.Documents.Open "C:\MyWord.doc"

    With
    objWord.ActiveDocument.Range(objWord.ActiveDocument.Tables(1).Rows(11).Cells(2).Range.Start, _

    objWord.ActiveDocument.Tables(1).Rows(11).Cells(2).Range.End)
    .InsertAfter "This is Some Text"

    End With

  2. Default RE: Insert a HyperLink in to Word using VBA

    Take a look at the following post and see if it doesn't answer your question.

    http://groups.google.ca/group/micros...63527f49668d80
    --
    Hope this helps,

    Daniel Pineault
    http://www.cardaconsultants.com/
    For Access Tips and Examples: http://www.devhut.net
    Please rate this post using the vote buttons if it was helpful.



    "TADropik" wrote:

    > Using MS Access 2003.
    >
    > I'm able to insert text in to the 2nd column of the 11th row of a table in a
    > word doc.
    > I'd like to insert a hyperlink in to that 2nd column of the 11th row of a
    > table in a word doc.
    >
    > Below is a quick sample of the code I'm currently using:
    >
    > Dim objWord As Word.Application
    > Dim objWordDoc As Word.Document
    >
    > Set objWord = GetObject("", "word.application")
    > objWord.Documents.Open "C:\MyWord.doc"
    >
    > With
    > objWord.ActiveDocument.Range(objWord.ActiveDocument.Tables(1).Rows(11).Cells(2).Range.Start, _
    >
    > objWord.ActiveDocument.Tables(1).Rows(11).Cells(2).Range.End)
    > .InsertAfter "This is Some Text"
    >
    > End With


  3. Default RE: Insert a HyperLink in to Word using VBA

    Yes, that is very helpful.

    However, I'm struggleing with getting it to work with inserting multiple
    hyperlinks in to a specific cell of that table.

    "Daniel Pineault" wrote:

    > Take a look at the following post and see if it doesn't answer your question.
    >
    > http://groups.google.ca/group/micros...63527f49668d80
    > --
    > Hope this helps,
    >
    > Daniel Pineault
    > http://www.cardaconsultants.com/
    > For Access Tips and Examples: http://www.devhut.net
    > Please rate this post using the vote buttons if it was helpful.
    >
    >
    >
    > "TADropik" wrote:
    >
    > > Using MS Access 2003.
    > >
    > > I'm able to insert text in to the 2nd column of the 11th row of a table in a
    > > word doc.
    > > I'd like to insert a hyperlink in to that 2nd column of the 11th row of a
    > > table in a word doc.
    > >
    > > Below is a quick sample of the code I'm currently using:
    > >
    > > Dim objWord As Word.Application
    > > Dim objWordDoc As Word.Document
    > >
    > > Set objWord = GetObject("", "word.application")
    > > objWord.Documents.Open "C:\MyWord.doc"
    > >
    > > With
    > > objWord.ActiveDocument.Range(objWord.ActiveDocument.Tables(1).Rows(11).Cells(2).Range.Start, _
    > >
    > > objWord.ActiveDocument.Tables(1).Rows(11).Cells(2).Range.End)
    > > .InsertAfter "This is Some Text"
    > >
    > > End With


+ Reply to Thread