MS Word, how to reset display settings to its original scale Topic is solved
MS Word, how to reset display settings to its original scale
I want to reset display settings to its original scale 100%.
Re: MS Word, how to reset display settings to its original scale Topic is solved
Change zoom level in Microsoft Word
Code: Select all
; This script changes zoom level in Microsoft Word
#Requires AutoHotkey v2.0
#HotIf WinActive('ahk_exe WINWORD.exe')
^0:: ; CTRL-0 = Change zoom to 100%
^9:: { ; CTRL-9 = Change zoom to 110%
Static wordZoom := Map(
'0', 100
, '9', 110
)
oWord := ComObjActive('Word.Application')
Try oWord.ActiveWindow.ActivePane.View.Zoom.Percentage := wordZoom[SubStr(ThisHotkey, -1)]
Catch
MsgBox 'An error occurred while zooming the Microsoft Word window.', 'Error', 'Icon!'
}
#HotIf
Re: MS Word, how to reset display settings to its original scale
Thanks @mikeyww. I've been meaning to make Adobe compatible hotkeys for Office apps for awhile. Now I just need to look into how to do this for Excel.
Re: MS Word, how to reset display settings to its original scale
Thanks, your help is really appreciatedmikeyww wrote: ↑26 Apr 2024, 05:33Change zoom level in Microsoft Word
Code: Select all
; This script changes zoom level in Microsoft Word #Requires AutoHotkey v2.0 #HotIf WinActive('ahk_exe WINWORD.exe') ^0:: ; CTRL-0 = Change zoom to 100% ^9:: { ; CTRL-9 = Change zoom to 110% Static wordZoom := Map( '0', 100 , '9', 110 ) oWord := ComObjActive('Word.Application') Try oWord.ActiveWindow.ActivePane.View.Zoom.Percentage := wordZoom[SubStr(ThisHotkey, -1)] Catch MsgBox 'An error occurred while zooming the Microsoft Word window.', 'Error', 'Icon!' } #HotIf