9.5.2. CapsLock - текущее состояние Caps Lock

CapsLock показывает текущее состояние режима Caps Lock. Если этот режим активен, по умолчанию при вводе с клавиатуры вводятся прописные буквы. Если режим Caps Lock включен - свойство возвращает True, если выключен - False.

9.5.3. Caption - заголовок окна ms Word

Caption позволяет узнать, и, при желании, изменить заголовок окна Microsoft Word.

Например код в листинге 9.19. меняет словосочетание Microsoft Word в заголовке окна на слова "Моя программа".

Application.Caption = "Моя программа"

Листинг 9.19. Изменение заголовка окна MS Word (html, txt)

9.5.4. CustomizationContext - область сохранения настроек

CustomizationContext позволяет узнавать и задавать документ и шаблон, в котором сохраняются такие настройки, как изменения в настройке меню, панелей инструментов, горячих клавиш. Чтобы узнать текущую область настройки, достаточно выполнить код из листинга 9.20.

MsgBox Application.CustomizationContext

Листинг 9.20. Узнаем область сохранения настроек (html, txt)

Чтобы установить в качестве области настройки шаблон Normal.dotm (то есть - сделать настройки доступными для всех документов), достаточно воспользоваться кодом листинга 9.21.:

CustomizationContext = NormalTemplate

Листинг 9.21. Будем сохранять изменения настроек в Normal.dotm (html, txt)

Обратите внимание на то, что в предыдущих версиях MS Word этот шаблон назывался Normal.dot.

Для сохранения изменений в шаблоне, присоединенном к активному документу, можно воспользоваться командой из листинга 9.22.:

CustomizationContext = ActiveDocument.AttachedTemplate

Листинг 9.22. Сохраняем изменения в присоединенном шаблоне (html, txt)

Для сохранения изменений лишь в текущем документе, можно использовать команду из листинга 9.23.

CustomizationContext = ThisDocument

Листинг 9.23. Сохраняем изменения в присоединенном шаблоне (html, txt)

9.5.5. Dialogs - диалоговые окна ms Word

09-04-Dialogs.docm - пример к п. 9.5.5.

Dialogs возвращает коллекцию Dialogs (Диалоговые окна), которая дает доступ ко всем диалоговым окнам Microsoft Word. Если выполнить код листинга 9.24., можно узнать количество объектов в коллекции Dialogs.

MsgBox ("Количество окон в коллекции Dialogs:" + _

Str(Application.Dialogs.Count))

Листинг 9.24. Количество диалоговых окон в коллекции Dialogs (html, txt)

Чтобы отобразить диалоговое окно поиска строк в документе, можно использовать код, представленный в листинге 9.25.

Dim obj_FindS As Dialog

Set obj_FindS = Dialogs(wdDialogEditFind)

With obj_FindS

.Find = "Строка"

.Show

End With

Листинг 9.25. Запуск диалогового окна поиска строк в документе (html, txt)

Здесь мы объявляем объектную переменную типа Dialog, создаем ссылку на окно поиска строк в документе - это окно представлено константой wdDialogEditFind, после чего присваиваем свойству Find окна поиска значение "Строка" - именно это значение будет отображаться в строке поиска, и показываем окно поиска, используя метод Show. Похожим образом работают и с другими диалоговыми окнами. Их имена (около 230) можно найти в перечислении WdWordDialog.