Excel VBA Format font using WordDoc.Content.InsertAfter

vba4life

New Member
Joined
Jul 25, 2020
Messages
1
Office Version
  1. 365
Platform
  1. Windows
  2. MacOS
Hi All,

New to the Board, hello to all.
Having trouble with this one.
I'd like the Header.Address value to be font size 12 an bold and the line under (not the vbNewLine) to be font size 10, not bold.
Current code makes the entire page size 12/bold. Tried wrapping this code around just the first line but didn't work.
Any help appreciated.

For Each Header In tbl.HeaderRowRange:

With WordDoc
.Styles(wdStyleHeading1).Font.Name = "Arial"
.Styles(wdStyleHeading1).Font.Size = 12
.Styles(wdStyleHeading1).Font.Bold = True
.Styles(wdStyleHeading1).Font.Color = wdColorBlack
.Range(0).Style = .Styles(wdStyleHeading1)

headerCol = wks.Cells.Find(Header).Column
WordDoc.Content.InsertAfter (vbNewLine)
WordDoc.Content.InsertAfter Range(Header.Address).Value & ": "
WordDoc.Content.InsertAfter (vbNewLine)
WordDoc.Content.InsertAfter (Cells(hiddenCell, headerCol).Value)
'WordDoc.Content.InsertAfter (vbNewLine)
End With

Next
 

Some videos you may like

Excel Facts

Can you AutoAverage in Excel?
There is a drop-down next to the AutoSum symbol. Open the drop-down to choose AVERAGE, COUNT, MAX, or MIN

Watch MrExcel Video

Forum statistics

Threads
1,114,116
Messages
5,546,035
Members
410,721
Latest member
adi772
Top