VBA для тех кто любит думать


VBA и Office XP - часть 135


Записать список всех установленных в системе шрифтов в массив можно таким способом:

 

ReDim shrifti(FontNames.Count) As String

For r = 1 To FontNames.Count

shrifti(r) = FontNames(r)

Next r

WordBasic.SortArray shrifti()

 

(В массив "shrifti()" размером в количество шрифтов в системе помещается список имен всех установленных в системе шрифтов.  Команда "WordBasic.SortArray" сортирует его по алфавиту.)

 

*       *       *

Условие "If Selection.Type = wdSelectionIP Then …" выполнится, только если в документе не выделен фрагмент текста.

 

*       *       *

Если вы решили хранить какую-нибудь информацию, нужную при работе программы, в отдельном файле, не стоит экспериментировать с командами чтения и открытия файла типа "open", "write" и др. Просто открывайте файл в Word как текстовый с помощью команды "Documents.Open …" и пишите в него обычными средствами записи текста: "Selection.Text = "Мой текст"".

 

*       *       *

Посмотрите повнимательнее свойства, объекты и методы таких объектов, как "Application" и "System" (для этого достаточно набрать название объекта и поставить после него точку, - список возможных продолжений отобразится сам - рис.8.1). Среди них можно найти немало весьма интересных и полезных, вроде средства задания и получения значений ширины и высоты окна Word, информации о языке данной версии Office, метод чтения данных из произвольного места реестра и многое другое.

 

08_01.bmp

Рис. 8.1. Свойства и методы обьекта System - склад весьма интересных вещей....

 

Вот некоторые полезные свойства обьекта Application.

Application.CapsLock - показывает, горит ли на клавиатуре индикатор CapsLock.

Application.NumLock - показывает, горит ли на клавиатуре индикатор NumLock.

Application.Caption - сообщает заголовок окон запущенной программы (для Word, например, это - "Microsoft Word"). Этот заголовок можно поменять: так, команда "Application.Caption = "Мой Word"" заменит традиционный заголовок окна Word'а на тот текст, что указан в скобках.




Начало  Назад  Вперед