So I recently had to upgrade to a new computer because my old one was very old, and as a consequence I lost a lot of programs including the Word 2008 I was stubbornly clinging to. I've been working on customizing what I can of updated programs, like the current version of Word. The default zoom level was stuck at 100% and it looked tiny and it was driving me up the wall to have to manually change it every time. So I stayed up way too late and with the help of some internet research I cobbled together a macro to fix it! In case it helps anyone else:
Sub AutoExec() ' Application.OnTime DateAdd("s", 1, Now), "Zoom" ' End Sub ' ' Zoom Macro Sub Zoom() ' ActiveDocument.ActiveWindow.View.Zoom = 200 ActiveWindow.ActivePane.View.Zoom.Percentage = 200 ' End Sub
(honestly it probably don't need both the ActiveDocument and ActiveWindow lines but I put both just in case and it works fine)
Being able to change default text size is an accessibility issue! You shouldn't have to learn to code! Anyway I got the pieces of this from other people on the internet, so I'm sending back my franken-code in case anyone else needs it. This works on Word 2021 and on Mac Sonoma.














