Replace font in Normal Style

Italophile · #4 09-18-2024, 10:11 AM

Changing the font of the Normal style is as simple as:

Code:

Function ChangeFont(oDoc As Document) As Boolean
    Dim oStory As Range
    On Error GoTo err_Handler
    oDoc.Styles(wdStyleNormal).Font.Name = "Calibri"
    ChangeFont = True
lbl_Exit:
    Exit Function
err_Handler:
    ChangeFont = False
    Resume lbl_Exit
End Function

However, changing the Normal style in this way means it will no longer be the same as the document defaults which may lead to Table Styles not working correctly. It is not possible to set the document defaults using VBA.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Creating a text style which only changes the font and font size?	Jenson	Word	3	03-04-2024 02:54 AM
Check the font attached to a template's "Normal" style and report if it's not installed	Matt C	Word VBA	3	10-31-2021 05:54 AM
Replace table and figure caption style to another style Word VBA	laith93	Word VBA	7	08-27-2021 11:37 PM
Change Normal Style	JohnM	Word	2	03-23-2016 07:40 AM
Outlook2013 Normal Style	sus4n	Outlook	3	08-07-2014 06:17 PM