OZ77
10-18-2023, 12:53 PM
Hi all,
I am new here and new to VBA coding. I am using and modifying an Excel VBA subroutine that generates, from an Excel file, a Word document with tables populated with information. Now I'm looking to add a snipet of code that lets me turn text in selected cells into hyperlinks.
This is what imo relevant parts of the current code look like:
(...)
Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
(...)
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Add
wrdDoc.PageSetup.Orientation = wdOrientLandscape
(...)
Set objTable = wrdDoc.Tables(wrdDoc.Tables.Count)
objTable.Style = "Table Grid"
(...)
With objTable
.Cell(2, 2).Range.Text = Chr(10) & "TEXT A"
.Cell(2, 2).Range.Font.Bold = True
.Cell(4, 2).Range.Text = "TEXT B"
.Cell(4, 2).Range.Font.Bold = True
(...)
Now I'd like to encode that e.g. hyperlink X is added to TEXT A in Cell (2,2).
Does someone know which code to use?
I am new here and new to VBA coding. I am using and modifying an Excel VBA subroutine that generates, from an Excel file, a Word document with tables populated with information. Now I'm looking to add a snipet of code that lets me turn text in selected cells into hyperlinks.
This is what imo relevant parts of the current code look like:
(...)
Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
(...)
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Add
wrdDoc.PageSetup.Orientation = wdOrientLandscape
(...)
Set objTable = wrdDoc.Tables(wrdDoc.Tables.Count)
objTable.Style = "Table Grid"
(...)
With objTable
.Cell(2, 2).Range.Text = Chr(10) & "TEXT A"
.Cell(2, 2).Range.Font.Bold = True
.Cell(4, 2).Range.Text = "TEXT B"
.Cell(4, 2).Range.Font.Bold = True
(...)
Now I'd like to encode that e.g. hyperlink X is added to TEXT A in Cell (2,2).
Does someone know which code to use?