![]() |
#5
|
||||
|
||||
![]()
I would presume it doesn't work for you because the font name has been locally overridden on your instances of that style. Certainly the following works for me if there is no local font formatting.
Code:
Sub ChangeStyleDef() ActiveDocument.Styles("Normal").Font.Name = "Times New Roman" End Sub ActiveDocument.Range.Font.Reset
__________________
Andrew Lockton Chrysalis Design, Melbourne Australia |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
How Do I stop automatic style updates for Word 2013 | Lupe71903 | Word | 2 | 02-27-2018 01:48 PM |
![]() |
markh10178 | Word | 3 | 11-26-2015 04:07 PM |
![]() |
jlumbtx | Office | 1 | 03-13-2015 04:50 PM |
![]() |
Ricyteach | Word VBA | 6 | 03-09-2015 07:11 PM |
Automating document updates with new text | wordfoolish2 | Word | 0 | 01-04-2011 01:01 PM |