Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oFld As Word.Field
Dim oRng As Range
For Each oFld In ActiveDocument.Fields
  Set oRng = oFld.Code.Words.First.Previous.Previous
  oRng.MoveStart wdWord, -1
  If oRng.Text = "Section" Then
    oFld.Code.Text = oFld.Code.Text & " \* Charformat"
    oFld.Code.Characters(2).Font.Bold = True
    oFld.Update
  End If
Next
lbl_Exit:
  Exit Sub
End Sub