DefaultWebOptions Property Example

This example checks to see whether the default document encoding is Western. If it is, the string strDocEncoding is set accordingly.

Set objAppWebOptions = Application.DefaultWebOptions
With objAppWebOptions
    If .Encoding = msoEncodingWestern Then
        strDocEncoding = "Western"
    End If
End With