MS Word, how to reset display settings to its original scale Topic is solved

[songdg]

I want to reset display settings to its original scale 100%.

[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

[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.

[songdg]

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