Add Method (Styles Collection) Example
This example adds a new character style named "Introduction" and makes it 12-point Arial, with bold and italic formatting. The example then applies the new character style to the selection.
Set myStyle = ActiveDocument.Styles.Add(Name:="Introduction", _
Type:=wdStyleTypeCharacter)
With myStyle.Font
.Bold = True
.Italic = True
.Name = "Arial"
.Size = 12
End With
Selection.Range.Style = "Introduction"