This example formats the sixth word in a new document as bold.
Set newDoc = Documents.Add
Set myRange = newDoc.Content
myRange.InsertAfter "This is a test of bold."
myRange.Words(6).Bold = True
This example makes the entire selection bold if part of the selection is formatted as bold.
If Selection.Type = wdSelectionNormal Then
If Selection.Font.Bold = wdUndefined Then _
Selection.Font.Bold = True
Else
MsgBox "You need to select some text."
End If
This example toggles the bold format for the selected text.
If Selection.Type = wdSelectionNormal Then
Selection.Range.Bold = wdToggle
End If
This example makes the first paragraph in the active document bold.
ActiveDocument.Paragraphs(1).Range.Bold = True