Основы офисного программирования и документы Word


Языковые предпочтения и шрифты Web-страниц


Нововведения в Office 2000 полезны разработчикам, использующим разные языки. Одно из таких замечательных качеств - возможность изменять язык интерфейса, справочной системы буквально "на лету". Раз языковые установки можно менять, то появился общий для приложений Office 2000 объект LanguageSettings, свойства которого позволяют проверить, какие именно установки приняты для интерфейса, справочной системы, инсталляционные установки, определяющие, например, вид цифр. Используя свойства этого объекта, можно также определить, какие языки (их может быть несколько) являются предпочтительными при редактировании текстов. Вот процедура, проверяющая все эти установки:

Public Sub LangSet() 'Проверка языковых установок With Application.LanguageSettings If .LanguagePreferredForEditing(msoLanguageIDRussian) _ And .LanguagePreferredForEditing(msoLanguageIDEnglishUS) Then MsgBox "Русский и Английский - оба являются предпочтительными языками редактирования" End If MsgBox "Для данного документа выбраны следующие языковые установки " & _ vbCrLf & "Язык инсталляции - " & .LanguageID(msoLanguageIDInstall) & _ vbCrLf & " Язык интерфейса - " & .LanguageID(msoLanguageIDUI) & _ vbCrLf & " Язык справки - " & .LanguageID(msoLanguageIDHelp)

End With End Sub

Листинг 5.10.

Появление нового объекта WebPageFont и соответствующей коллекции связано с уже многократно упоминавшейся тенденцией представления документов Office 2000 в виде Web-страниц. Объект WebPageFont позволяет установить, какой шрифт будет использоваться по умолчанию на Web-страницах в качестве пропорционального шрифта и шрифта фиксированной ширины, а также размер этих шрифтов. Вот простая процедура, изменяющая эти установки:

Public Sub ChangeFonts() 'Изменение свойств Web-шрифтов With Application.DefaultWebOptions .Fonts(msoCharacterSetCyrillic) _ .ProportionalFont = "Arial Cyr" .Fonts(msoCharacterSetCyrillic) _ .FixedWidthFont = "Times New Roman Cyr" .Fonts(msoCharacterSetCyrillic) _ .ProportionalFontSize = 12 .Fonts(msoCharacterSetCyrillic) _ .FixedWidthFontSize = 14 Debug.Print .Fonts(msoCharacterSetCyrillic).ProportionalFont Debug.Print .Fonts(msoCharacterSetCyrillic).ProportionalFontSize Debug.Print .Fonts(msoCharacterSetCyrillic).FixedWidthFont Debug.Print .Fonts(msoCharacterSetCyrillic).FixedWidthFontSize End With End Sub

Листинг 5.11.




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



Книжный магазин