Changing Font when inputting via VBA

[Guntherm]

Okay,

I am opening a Word Documnet and reading the tables within and then copying certain info into excel.

Question. the info I am gettign is in mulitple areas and have no problems gettign the info, however some of the info I am getting is basically a header. So I want to change to font to Bold on certain parts of the inputting process.
If you look at each strBuild It has something in quotes. Those pieces need to be bold and the rest of the text I am bringing in should be regular.

This is an example of what I want it to be at the end of this:

XXXXX-1-1: (Control Board)
Procedure Objective:
To ensure that the system is under the control of a Control Board that meets regularly IAW Local Policy.
Procedure Preparation:
Obtain a copy of the Plan, the Control Board and the most recent minutes from the previous meetings.
Procedure Script:
1. Review the plan and board plan to ensure the information system is under the control of a board.
2. Ensure all meeting are being held.

<Source Code>

If .Selection <> Chr(13) & Chr(7) Then
strbuild = strbuild & ": (" & ParseOut & ")" & Chr(10)
.Selection.MoveRight Unit:=wdCell, Count:=1
'Must add formating to text
.Selection.Font.Bold = True
ParseOut = .Selection
Call ParseIT(ParseOut)
strbuild = strbuild & "Procedure Objective:" & Chr(10) & ParseOut & Chr(10)
shtIAControls.Cells(intRow, 14) = strbuild

.Selection.Font.Bold = False
shtIAControls.Cells(intRow, 14) = shtIAControls.Cells(intRow, 14).Value & .Selection
'add more info
.Selection.MoveRight Unit:=wdCell, Count:=1
ParseOut = .Selection
Call ParseIT(ParseOut)
strbuild = strbuild & "Procedure Preparation:" & Chr(10) & ParseOut & Chr(10)
'add more info
.Selection.MoveRight Unit:=wdCell, Count:=1
ParseOut = .Selection
Call ParseIT(ParseOut)
strbuild = strbuild & "Procedure Script:" & Chr(10) & ParseOut & Chr(10)
'add more info
.Selection.MoveRight Unit:=wdCell, Count:=1
ParseOut = .Selection
Call ParseIT(ParseOut)
strbuild = strbuild & "Expected Results:" & Chr(10) & ParseOut & Chr(10)
shtIAControls.Cells(intRow, 14) = strbuild

<End of Source Code>