Microsoft Office Forums - View Single Post - [Solved] Find number and words without a period and bold

Guessed · 08-20-2019, 04:55 PM

Try this one for a different approach which applies styles which is the direction you 'should' be taking.

Code:

Sub FormatMyLists()
  With Options
    .AutoFormatApplyHeadings = True
    .AutoFormatApplyLists = True
    .AutoFormatApplyBulletedLists = True
    .AutoFormatApplyOtherParas = True
    .AutoFormatReplaceQuotes = False
    .AutoFormatReplaceSymbols = False
    .AutoFormatReplaceOrdinals = False
    .AutoFormatReplaceFractions = False
    .AutoFormatReplacePlainTextEmphasis = False
    .AutoFormatReplaceHyperlinks = True
    .AutoFormatPreserveStyles = False
    .AutoFormatPlainTextWordMail = True
  End With
  
  ActiveDocument.Kind = wdDocumentNotSpecified
  ActiveDocument.Range.AutoFormat
  ActiveDocument.Styles("List").Font.Bold = True

End Sub