У меня слабовидение, и поэтому я плохо читаю текстовые документы, если я не установил уровень масштабирования на "Подогнать ширину текста". Я делал это вручную, и мне было интересно, как установить его в качестве уровня масштабирования по умолчанию для всех документов, когда я их открываю
2 ответа
Это сложнее, чем кажется, причина в том, что при открытии документа не используется один масштаб по умолчанию, а каждый документ открывается с масштабом, который был установлен в последний раз, когда он редактировался (даже при поступлении документов). с других машин).
Следующим лучшим вариантом будет быстрый способ изменить настройки масштабирования для "подгонки текста" для любого загруженного документа, однако по какой-то причине эта команда отсутствует в меню параметров настройки клавиатуры, где обычно можно назначить комбинацию клавиш для конкретная команда. Вместо этого вы можете использовать встроенные команды клавиатуры, чтобы перейти к меню, нажав Alt + W + Q + Arrow, чтобы перейти к нужной опции, или настроить собственный макрос для этого и привязать его к сочетанию клавиш:
Sub SetFitTextZoom()
ActiveWindow.View.Zoom.PageFit = wdPageFitTextFit
End Sub
Добавление нового модуля с этими двумя макросами в шаблон документа (как описано здесь), кажется, работает для меня:
Sub AutoOpen()
ActiveWindow.View.Type = 3
ActiveWindow.View.Zoom.PageFit = wdPageFitBestFit
End Sub
Sub AutoNew()
ActiveWindow.View.Type = 3
ActiveWindow.View.Zoom.PageFit = wdPageFitBestFit
End Sub
Вы должны разрешить макросы.
Офис 2010