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
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