Как сделать большие буквы в ворд


Как сделать большие буквы в ворд

Как сделать большие буквы в ворд

Как сделать большие буквы в ворд


Лучшие новости сайта

Мне иногда не хватает в Excel команды, аналогичной "Регистр" Word'а, которая в один щелчок могла бы превращать текст в читаемый. Например, сделать из полностью строчного текста предложения. Иными словами, менять регистр и превращать заглавные, то есть прописные буквы в строчные и наоборот. Заглавные и строчные буквы в Excel приходится преобразовывать совсем по-другому, а именно с помощью функций.

Функции

В первую очередь обратим внимание на функции, которых в простых случаях хватит:

  1. Функция СТРОЧН(). У нее только один аргумент - текст, который она перебирает и каждую букву которого превращает в строчную.
  2. Функция ПРОПИСН(). Аналогичная предыдущей, только превращает все наоборот в заглавные (прописные) буквы.
  3. Функция ПРОПНАЧ(). Эта функция превращает в заглавную первую букву каждого слова.

В принципе, этого хватает. На рисунке можно посмотреть результат работы этих функций:

Сложные режимы

Конечно, бывают случаи, когда простого использования этих функций недостаточно. Например, уже упомянутая команда "Регистр" содержит 5 режимов:

Как видите, три режима вполне реализуются через текстовые функции. Но остальные две, а именно - "Как в предложениях" и "иЗМЕНИТЬ РЕГИСТР" стандартными средствами не достичь.

У вас есть следующие варианты для того, чтобы получить желаемое:

 

 

  1. Метод простой и грубый :) . Как говорил Принц-Полукровка в "Гарри Поттере": "просто засуньте им в глотку безоар". А именно, копируете нужный текст, переходите в Word, там вставляете, применяете команду "Регистр", потом получившийся текст тащите обратно в Excel. Преимущества - скорость и незамысловатость. Недостаток - с большими таблицами придется повозиться, менять форматирование и т.д.
  2. Использовать макрос или пользовательскую функцию. Лично я пытался реализовать через формулы массива или через комбинации функций, но получалось так громоздко и неэффективно по сравнению с найденным на сайте "Мир MS Excel" способом, что я решил его передать без каких-либо поправок.

Пользовательская функция

Вот сам текст функции:

Function ConvertRegistr(sString As String, Tip As Byte) As String 'Tip = 1 - ВСЕ ПРОПИСНЫЕ 'Tip = 2 - все строчные 'Tip = 3 - Начинать С Прописных 'Tip = 4 - Как в предложениях 'Tip = 5 - иЗМЕНИТЬ рЕГИСТР Dim i& If Tip = 4 Then ConvertRegistr = StrConv(sString, 2) Mid$(ConvertRegistr, 1, 1) = UCase(Mid$(ConvertRegistr, 1, 1)) ElseIf Tip > 4 Then For i = 1 To Len(sString) Mid$(sString, i, 1) = IIf(Mid$(sString, i, 1) = UCase(Mid$(sString, i, 1)), _ LCase(Mid$(sString, i, 1)), UCase(Mid$(sString, i, 1))) Next ConvertRegistr = sString Else ConvertRegistr = StrConv(sString, Tip) End If End Function

Как ею пользоваться, по шагам:

  1. Открываете Excel, нажимаете Alt+F11, откроется окно Visual Basic.
  2. Команда Insert/Module. В открывшееся поле вставляете текст.
  3. Переходите в Excel, теперь в списке функций, в полном алфавитном перечне у вас появилась функция ConvertRegistr.
  4. У этой функции два аргумента - ячейка и режим преобразования регистра. В тексте функции есть комментарии, какой режим обозначен какой цифрой. По сути она заменяет предыдущие три функции, а работает полным аналогом уже упоминавшейся команды "Регистр". Правда, есть нюанс - 4й пункт - "Как в предложениях" - работает только для одного предложения. Если кому нужно, пишите на мэйл, скину рабочий вариант, который переработает нормальный литературный текст.
  5. Если вы хотите, чтобы функция всегда была под рукой, сохраните файл как надстройку Excel в папке Addins. У меня она находится по адресу: C:\Users\user\AppData\Roaming\Microsoft\AddIns.
  6. Активируйте надстройку через Офис/Параметры Excel/Надстройки/Перейти в надстройки. Там появится окно, где надо будет поставить галочку напротив названия файла. Также возможно прописать макрос пребразования регистра в диапазонах, это вы сможете посмотреть .

Удачи в использовании!
«Глаза боятся, а руки делают»

P.S. Понравилась статья? Подпишитесь на рассылку в правой части страницы (Бесплатный курс "Топ-10 инструментов Excel") и будьте в курсе новых событий.

.


Источник: http://excelpractic.ru/zaglavnye-i-strochnye-bukvy-v-excel.html


Как сделать большие буквы в ворд

Как сделать большие буквы в ворд

Как сделать большие буквы в ворд

Как сделать большие буквы в ворд

Как сделать большие буквы в ворд

Как сделать большие буквы в ворд

Как сделать большие буквы в ворд

Как сделать большие буквы в ворд

Читать далее: