Page 1 of 1
MS Word, how to reset display settings to its original scale
Posted: 26 Apr 2024, 03:06
by songdg
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
Posted: 26 Apr 2024, 05:33
by mikeyww
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
Posted: 26 Apr 2024, 07:18
by andymbody
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
Posted: 26 Apr 2024, 09:55
by songdg
mikeyww wrote: ↑26 Apr 2024, 05:33
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
Thanks, your help is really appreciated
