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"