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

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

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