Word 2007 и особенно свободный пользовательский интерфейс 2010+ на самом деле довольно настраиваемый. К сожалению, помимо ограниченных возможностей, предоставляемых самой программой, любые расширенные модификации требуют использования VBA, редактирования XML и т.д., Ни одна из которых не является чашкой чая обычного пользователя. Тем не менее, некоторые незначительные, но полезные модификации пользовательского интерфейса, к счастью, могут быть достигнуты без особых проблем или кодирования. Я сосредотачиваюсь здесь на команде « Выделить все» в Word, но ее легко можно распространить и на другие команды в других приложениях Office. В конце я перечислил несколько ресурсов для тех, кто интересуется, и, конечно, есть намного больше, если вы не стесняетесь кодирования.
I. Используйте кнопку Выбрать уже на ленте
Первым шагом было бы проверить, доступна ли команда уже с ленты или в другом месте. Если вы посмотрите на вкладку « Главная », кнопка « Выбрать » уже доступна, и при ее нажатии появится меню, содержащее « Выбрать все»:
II. Кнопка « Выбрать все» на панели быстрого доступа (QAT)
Щелкните правой кнопкой мыши QAT и выберите « Настроить панель быстрого доступа».
Добавьте команду, как показано ниже:
Вы должны увидеть это в QAT, как только закончите:
III. Кнопка « Выбрать все» на ленте
Щелкните правой кнопкой мыши ленту и выберите « Настроить ленту».
Добавьте команду, как показано ниже:
Вы должны увидеть это на ленте, когда закончите:
Внутривенно Добавить опцию Выбрать все в контекстное меню
На вкладке « Вид » нажмите кнопку « Макросы» и создайте новый макрос (имя на самом деле не имеет значения, так как макрос необходимо запустить только один раз, а затем удалить):
Введите код, показанный ниже, и нажмите кнопку « Выполнить макрос» на панели инструментов или нажмите F5:
CustomizationContext = NormalTemplate
CommandBars("Text").Controls.Add ID:=756, Before:=1
Вы должны увидеть это в контекстном меню, когда закончите:
Если вы хотите, чтобы опция была добавлена в конец меню, используйте вместо этого следующий код макроса:
CustomizationContext = NormalTemplate
CommandBars("Text").Controls.Add ID:=756
Чтобы удалить вновь добавленную опцию в верхней части меню, используйте следующий код:
CustomizationContext = NormalTemplate
CommandBars("Text").Controls.Item(1).Delete
Чтобы удалить недавно добавленную опцию из нижней части меню, используйте следующий код:
CustomizationContext = NormalTemplate
CommandBars("Text").Controls.Item(CommandBars("Text").Controls.Count).Delete
Примечание. Макросы можно удалить после их однократного запуска. Кроме того, поскольку они влияют на шаблон « Обычный», вам может быть предложено сохранить изменения при выходе из Word в зависимости от параметров « File / Options / Advanced / Save
:
Просто нажмите « Сохранить» и впредь « Выбрать все» будет отображаться во всех документах на основе шаблона « Обычный» :
Совет: Если вы когда-нибудь испортили свой шаблон Normal, вы можете просто удалить %AppData%\Microsoft\Templates\Normal.dotm
. Word снова создаст шаблон с параметрами по умолчанию при следующем запуске.
Ресурсы, помогающие понять / расширить код макроса: