Reply
 
Thread Tools Display Modes
  #1   Report Post  
Posted to microsoft.public.word.docmanagement
John Gregory John Gregory is offline
external usenet poster
 
Posts: 38
Default How do I change font in all styles?

I have a large number of styles - some default, others I created. I want to
change the default font used in all styles, but not change the other style
properties.

Is there an easy way to do this? or do I have to edit every document style
and template over again?
  #2   Report Post  
Posted to microsoft.public.word.docmanagement
TedMi TedMi is offline
external usenet poster
 
Posts: 155
Default How do I change font in all styles?

You can do this with programming in VBA, but it is far from trivial. Your
program could open each .doc or .dot in a folder, loop through its Styles
collection. Each Style object has a Font object whose properties (name, size)
you can change. Details of how to go about that depend on which styles you
want to change and which to leave alone.
--
Ted

  #3   Report Post  
Posted to microsoft.public.word.docmanagement
John Gregory John Gregory is offline
external usenet poster
 
Posts: 38
Default How do I change font in all styles?

Is there a way to do this with a macro within each document? even that could
save a lot of time.

"TedMi" wrote:

You can do this with programming in VBA, but it is far from trivial. Your
program could open each .doc or .dot in a folder, loop through its Styles
collection. Each Style object has a Font object whose properties (name, size)
you can change. Details of how to go about that depend on which styles you
want to change and which to leave alone.
--
Ted

  #4   Report Post  
Posted to microsoft.public.word.docmanagement
TedMi TedMi is offline
external usenet poster
 
Posts: 155
Default How do I change font in all styles?

Sure, macros are merely containers for VBA code. But there is no way to
simply record this, because you need to write For Each... loops which cannot
be recorded because they are not available from the UI of a doc. You need to
open the VBA editor and write code. You could, however, record changes you
want for ONE style, then edit that macro to make it loop through all styles:

Dim myStyle as Style
For each myStyle in ActiveDocument.Styles
' Recorded code goes here, with these changes:
' Change every instance of:
' ActiveDocument.Styles("NameOfStyle")
' to: myStyle
' Remove any lines that refer to properties you don't want to change
' End of Recorded Code
Next myStyle

This, of course, assumes you want to apply the SAME IDENTICAL changes to all
styles of the doc.
Good luck!
--
Ted

  #5   Report Post  
Posted to microsoft.public.word.docmanagement
TedMi TedMi is offline
external usenet poster
 
Posts: 155
Default How do I change font in all styles?

Clarification:
The FOR EACH statement goes just before the first WITH statement.
The NEXT statement goes just after the last END WITH statement.
--
Ted



  #6   Report Post  
Posted to microsoft.public.word.docmanagement
Suzanne S. Barnhill Suzanne S. Barnhill is offline
external usenet poster
 
Posts: 33,624
Default How do I change font in all styles?

If the styles are all based on Normal, you need only change the font of
Normal: Format | Font: Default...

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
Word MVP FAQ site: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

"John Gregory" wrote in message
...
I have a large number of styles - some default, others I created. I want

to
change the default font used in all styles, but not change the other style
properties.

Is there an easy way to do this? or do I have to edit every document

style
and template over again?


  #7   Report Post  
Posted to microsoft.public.word.docmanagement
John Gregory John Gregory is offline
external usenet poster
 
Posts: 38
Default How do I change font in all styles?

Suzanne, TedMi,

Thank you for your response, I was able to change all of the fonts in styles
by just changing the "Normal" font. Much easier than I suspected.

"Suzanne S. Barnhill" wrote:

If the styles are all based on Normal, you need only change the font of
Normal: Format | Font: Default...

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
Word MVP FAQ site: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

"John Gregory" wrote in message
...
I have a large number of styles - some default, others I created. I want

to
change the default font used in all styles, but not change the other style
properties.

Is there an easy way to do this? or do I have to edit every document

style
and template over again?



  #8   Report Post  
Posted to microsoft.public.word.docmanagement
John Gregory John Gregory is offline
external usenet poster
 
Posts: 38
Default How do I change font in all styles?

Suzanne, TedMi,

Thank you for your responses, I was able to change the font styles simply by
changing the normal style font. Simple solution if you know how to do it.

Thank you both for your responses

"Suzanne S. Barnhill" wrote:

If the styles are all based on Normal, you need only change the font of
Normal: Format | Font: Default...

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
Word MVP FAQ site: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

"John Gregory" wrote in message
...
I have a large number of styles - some default, others I created. I want

to
change the default font used in all styles, but not change the other style
properties.

Is there an easy way to do this? or do I have to edit every document

style
and template over again?



  #9   Report Post  
Valdacious Valdacious is offline
Junior Member
 
Posts: 0
Default

Quote:
Originally Posted by John Gregory View Post
I have a large number of styles - some default, others I created. I want to
change the default font used in all styles, but not change the other style
properties.

Is there an easy way to do this? or do I have to edit every document style
and template over again?
Try this, works for me, just change the name of the font to what you want (note it may take a little while to complete):
Code:
Sub MakeStylesArialfont()
'gets rid of annoying fonts
For i = ActiveDocument.Styles.Count To 1 Step -1
ActiveDocument.Styles(i).Font.Name = "Arial"
Next i
End Sub
Reply
Thread Tools
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
change the default font size for footnotes jonathanmenn Microsoft Word Help 11 October 29th 08 04:05 PM
I have a document in one font, but it won't change to another angehiker Microsoft Word Help 1 September 23rd 06 12:34 AM
Font box on format bar --is it supposed to be wysiwyg?? montauklite Microsoft Word Help 7 May 18th 06 04:10 AM
Change default table of contents linked styles and styles [email protected] Formatting Long Documents 2 February 16th 06 01:58 PM
I can't change the font styles. lmr Microsoft Word Help 2 December 22nd 05 10:06 AM


All times are GMT +1. The time now is 02:51 PM.

Copyright ©2000 - 2023, Jelsoft Enterprises Ltd.
Copyright 2004-2023 Microsoft Office Word Forum - WordBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Word"