VBA: How to add a hyperlink to text in a table cell

[OZ1977]

Hi,

I have a bit of VBA code to add text to particular cells in a table generated in Word:

With objTable
.Cell(4, 2).Range.Text = Chr(10) & "TEXT 1"
.Cell(4, 2).Range.Font.Bold = True
.Cell(5, 2).Range.Text = "TEXT 2"
.Cell(5, 2).Range.Font.Bold = True
.Cell(2, 3).Range.Text = "TEXT 3"
.Cell(2, 3).Range.Font.Bold = True
etc.
End With

Does anyone know how I need to adapt this to add hyperlinks, e.g hyperlink X to TEXT 1, hyperlink Y to TEXT 2, etc.?

 

[Legacy 143009]

Hi, welcome to the forum!

Maybe like this:

With objTable
.DataBodyRange(4, 2).Hyperlinks.Add Anchor:=.DataBodyRange(4, 2), Address:="https://example.microsoft.com", TextToDisplay:=Chr(10) & "TEXT 1"
.DataBodyRange(4, 2).Font.Bold = True
End With

 

[OZ1977]

Hi, welcome to the forum!

Maybe like this:

With objTable
.DataBodyRange(4, 2).Hyperlinks.Add Anchor:=.DataBodyRange(4, 2), Address:="https://example.microsoft.com", TextToDisplay:=Chr(10) & "TEXT 1"
.DataBodyRange(4, 2).Font.Bold = True
End With

Thanks so much for the tip, Flashbond. Unfortunately, I get the error "Object doesn't support this property or method". Seems the Table object doesn't support this hyperlinking command. Any other idea?

 

[Legacy 143009]

I see.. I have no idea. It is working for me:

The only problem I am facing is I can not alter the text value if the cell is occupied previously.

 

[OZ1977]

Thanks so much for the fast feedback and for testing, Flashbond. But I am doing this in a Table object, generated in a Word document (not Excel). Possibly another solution is needed in a Word objTable?

 

[Legacy 143009]

I am not familiar with Word objects. Maybe you should wait for another answer.

 

[OZ1977]

Thanks nevertheless, Flahsbond, for trying. Much appreciated!

Below is what I am trying at the moment but what seems not to work (FYI in a table Object of a Word document).
I'm trying to have the text displayed in Cell (2,2) of the Table object contain a hyperlink to a website:

Does someone know how to solve this?