Word позволяет настроить регистр выделенного текста. Если вы используете Word 2007 или более позднюю версию, вы можете убедиться, что отображается вкладка «Главная» ленты, а затем щелкнуть инструмент «Изменить регистр» (Aa) в группе «Шрифт».
Вы увидите список различных способов, которыми Word может изменить регистр текста. Одно из самых распространенных изменений в регистре – это заглавный регистр. Этот тип изменения приводит к тому, что каждое слово выделенного текста отображается в верхнем регистре, а остальные буквы – в нижнем регистре. Единственная проблема с этим состоит в том, что Word довольно неразборчив в том, что написано с заглавной буквы. Например, если вы выберете текст «это тест», а затем используете диалоговое окно «Изменить регистр», чтобы изменить текст на регистр заголовка, вы получите «Это тест». Однако общие правила использования заглавных букв диктуют, что «короткие» слова («есть» и «а») не должны начинаться с заглавной буквы.
Вот здесь и пригодится макрос. Вы можете создать макрос, чтобы разумно применить регистр заголовка к выделенному тексту. Макрос можно запрограммировать так, чтобы он игнорировал определенный набор слов при выполнении своей работы. Рассмотрим следующий макрос:
Sub TitleCase () Dim lclist As String Dim wrd As Integer Dim sTest As String 'список слов в нижнем регистре, окруженный пробелами lclist = "от символа by до "Selection.Range.Case = wdTitleWord For wrd = 2 To Selection.Range.Words.Count sTest = Trim (Selection.Range.Words (wrd)) sTest =" "& LCase (sTest) &" "Если InStr (lclist, sTest) Then Selection.Range.Words (wrd) .Case = wdLowerCase End If Next wrdEnd Sub
Когда вы выбираете текст и запускаете этот макрос, первое, что он делает, это изменяет текст на Стандартный регистр заголовка Word. Затем он перебирает слова в выделенном фрагменте (Word делает слова доступными в коллекции слов), исследуя каждое из них. Каждое слово извлекается и помещается в переменную sTest, которая затем переводится в нижний регистр. Затем содержимое sTest сравнивается со строкой lclist на предмет совпадения. Если есть, то слово в исходном тексте преобразуется в нижний регистр.
Ключом к макросу является строка lclist. Эта строка содержит список слов, которые должны всегда отображаться в нижнем регистре. Эти слова окружены пробелами, включая первое и последнее слова строки. Когда сравнение sTest выполнено, sTest содержит начальный и конечный пробелы, так что могут быть сделаны успешные совпадения. (Пробелы включены, чтобы не было ошибок в сопоставлении слов, например, сопоставление «он» части «the».)
Также обратите внимание, что часть сравнения макрос не обращает внимания на первое слово в выделенном тексте. Предполагается, что это слово является первым словом фразы или предложения, которое всегда должно начинаться с символа верхнего регистра.