ClickAndTypeParagraphStyle Property Example

This example sets the default paragraph style applied by Click and Type to Plain Text.

With ActiveDocument
    x = "Plain Text"
    If .Styles(x).InUse Then
        .ClickAndTypeParagraphStyle = x
    Else
        MsgBox "Sorry, this style is not in use yet."
    End If
End With