Software

Ask something
Question Locked

Changing font default in Word

0 helpful
8 replies

by kasia_p

Closed to new repliesThis discussion is closed. It stays readable, but it takes no new replies.
Is there a way to default font in MS Word? Every time document is opened, it defaults to 'Calibri'. Can this default be changed to other (as opposed to always having have to change it manually)?

8 replies

by 93961

it has instructions for all Major Versions of Word till now including Word 2010 and also has links to articles for versions of Word not supported in this article.

by kasia_p

Thanks a lot. This is very helpful :)

by Member 25348569

Const wdStyleNormal = -1

sTargetfont = "Arial"
iTargetSize = 11

Set oWord = CreateObject("Word.Application")
oWord.visible = False
Set oDoc = oWord.NormalTemplate.OpenAsDocument

sOriginalFont = oDoc.Styles(wdStyleNormal).Font.Name
iOriginalSize = oDoc.Styles(wdStyleNormal).Font.Size

oDoc.Styles(wdStyleNormal).Font.Name = sTargetFont
oDoc.Styles(wdStyleNormal).Font.Size = iTargetSize
oDoc.Close

by 93961

Why you want to run scripts if you can simply change the settings permanently for default as mentioned in previous posts.

by Member 25348569

because you can use it in a login script to apply the change across a company. You can do it in a GPO as well but it's nice to have different ways to do things.

You know, you don't HAVE to use the script. I merely offer it as an option.

Have a nice day.

And calm DOWN!!!!

This discussion is closed to new replies.