Hi Colleen,

It's even a bit weirder:
If more than 50% of the characters in the first paragraph are bold, bold is
removed in all the selection.
Else, bold is kept.

I don't like it either. But Word has quite a few such features where it
tries to guess what the user wants, and uses rules that are hard to fathom.

You could replace CG Times with TNR (using Edit > Replace).

Maybe it would be easier to simply remove the CG Times font file from your
machine(s), and set TNR as the default replacement for it in "Tools >
Options > Compatibility > Font substitution". It's enough to do that once.
And all old documents will then use TNR without your needing to change a
thing.
The documents will still use CG Times if you send them to someone who has CG
Times installed though.

Regards,
Klaus

Hi Colleen

If you apply Normal style to the entire document, then every paragraph will
be in Normal style, which may not be what you want.

If you want to be more selective you can cycle through all the paragraphs in
the range, test to see what style the paragraph is, then reapply the style to
that paragraph to change the font name without affecting attributes like
bold, italic, etc.

Note that you need to cycle through all the "story ranges" as well to make
sure you hit all headers, footers, footnotes, endnotes, etc.

Here's some sample code to get you started thinking about ways you can use
active document ranges and story ranges...  The sample uses "Arial" and
"Batang" font names but obviously will work with any font names, sizes etc
you choose.

sub ChangeStyles()

   Dim aPara As Paragraph
   Dim aStyle As Style
   Dim aStoryRange As Range
   Dim sParaStyleName As String
   
   On Error Resume Next
   
   With ActiveDocument
   
       With .Styles("Normal").Font
           .Name = "Arial"
           .Size = 12
       End With
       
       For Each aStoryRange In .StoryRanges
   
           For Each aPara In .Paragraphs
           
               For Each aStyle In .Styles
                       aPara.Style.Name = aPara.Style.Name
                       'this reapplies all styles so font
                       'changes if style is based on Normal
               Next aStyle
               
           Next aPara
           
           With aStoryRange.Find
               With .Replacement
                   With .Font
                       .Name = "Batang"
                   End With
                   .Font.Name = "Arial"
               End With
               .Text = "*"
               .Forward = True
               .Wrap = wdFindContinue
               .MatchWildcards = True
               .Execute Replace:=wdReplaceAll
           End With
   
       Next aStoryRange
   
   End With
   
end sub