1. After:
.Paragraphs.First.Style = "Normal"
insert:
.Paragraphs.First.Range.Style = "Strong"
2. Before 'With wdDoc.Range', add:
Code:
With wdDoc.Styles("Normal").ParagraphFormat
.SpaceBefore = 0
.SpaceAfter = 0
End With
3. After '.Style = "BulletB"', insert:
Code:
With .Paragraphs.First.Range.Words.First
.Style = "Emphasis"
.Next.Words.First.Style = "Emphasis"
End With