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

Excel Wisdom
Using a mouse in Excel is the work equivalent of wearing a lanyard when you first get to college

Watch MrExcel Video

Forum statistics

Threads
1,114,655
Messages
5,549,243
Members
410,905
Latest member
Extjel
Top