How to change Headings and Body Font in Microsoft Word

Here I explain how to change headings and body font in Microsoft Word. I used Microsoft Word for Mac Version 16.70.

In Microsoft Word, there are default fonts and I couldn’t find a way to change them via GUI. When I change the theme, they are changed but it was hard to find a theme that uses the font I wanted to use. Then I changed them with VBA.

Code

I changed the default font as follows.

ActiveDocument.DocumentTheme.ThemeFontScheme.MajorFont(msoThemeLatin).Name = "Times New Roman"
ActiveDocument.DocumentTheme.ThemeFontScheme.MinorFont(msoThemeLatin).Name = "Times New Roman"

1 2	ActiveDocument.DocumentTheme.ThemeFontScheme.MajorFont(msoThemeLatin).Name = "Times New Roman" ActiveDocument.DocumentTheme.ThemeFontScheme.MinorFont(msoThemeLatin).Name = "Times New Roman"