Статьи из блога
Как изменить регистр
Посетитель сайта в комментариях к одной заметке задал вопрос:
Как перевести некий текст в верхний регистр, например, "привет" в "ПРИВЕТ".
Есть очень простое решение, которое подсказали читатели рассылки.
Выделяете нужный текст и нажимаете сочетание клавиш <Shift>+<F3>. Если нужно изменить регистр только у одного слова, то специально выделять его не нужно - достаточно поместить курсор ввода в это слово и воспользоваться тем же сочетанием клавиш. (Спасибо всем приславшим ответы на этот вопрос: Ларисе Ивановне, Виктору Гниденко, Ашлапову В.М. и другим).
Другой способ заключается в выводе специальной кнопки Регистр на панель инструментов либо выбрать одноименную команду Регистр из меню Формат.
И третий способ - воспользоваться простейшим макросом:
Sub LUCase() Selection.Range.Case = wdUpperCase End Sub
Метки: макросы | регистр
Просмотров: 39360
Подписаться на комментарии по RSS
Версия для печати
Еще записи по вопросам использования Microsoft Word:
- 10 вопросов и ответов по редактору Word (1 часть)
- 3 способа очистки списка недавно открытых документов
- Word 2007: добавляем свою вкладку и свои команды
- Word 2007: полотно, рисунки, линии
- Word 2007: смена формата сохранения файла
- Word 97 - решение проблемы с отображением символов на линейке
- Word 97. Слияние документов как один из способов упростить свою работу
- Абзац с цветным фоном
- Автозаполняемые колонтитулы
- Автоматизация текстового набора в Word
- Автоматическая запись макроса
- Автоматическая нумерация билетов
- Автоматическая расстановка переносов
- Автоматическое обновление полей при открытии документа
- Автоматическое сохранение документа при его закрытии
- Автотекст с последовательной нумерацией
- Автоформат документов
- Белый текст на синем фоне в Word 2007
- Буквица
- Быстрая смена ориентации страниц документа
- Быстрое изменение стиля форматирования текста
- Быстрое перемещение между открытыми документами Word
- Быстрое создание нового документа на основе шаблона
- Быстрое удаление границ у таблицы
- Быстрый ввод текста с помощью команды =rand()
Форум
Читают
Обсуждают
страницы
сайты
статистика
Комментариев: 21
Спасибо огромное, способ простейший, но я о нем не знал, будет теперь над чем подумать...
А не подскажете как написать макрос, который бы менял все слова написанные В ВЕРХНЕМ РЕГИСТРЕ на нижний регистр?
Анатолий, вот навскидку простейший макрос на ваше требование:
Sub wUpcase() Dim sW As Range For Each sW In ActiveDocument.Words If sW.Case = wdUpperCase Then sW.Case = wdLowerCase End If Next sW End SubБудет менять все слова написанные прописными, на строчные, независимо от того, является ли слово первым в предложении или нет.
А подскажите, как ПОДНЯТЬ текст, принадлежащий определённому стилю в документе.
Если он действительно одного стиля, тогда зайдите в оформление стиля и в параметрах шрифта отметьте галочку «ВСЕ ПРОПИСНЫЕ». Визуально буквы будут большими, но если этот текст попадет куда-нибудь по ссылке, например в содержание, то там он отобразиться так, как был набран.
Если же вам нужно физически перевести все буквы в верхинй регистр, тогда в панели «Стили и форматирование» кликните правой кнопкой на имени стиля и выберите пункт «Выделить все вхождения». Когда выделите, то нажимаете Shift+F3
Спасибо Александр, за ответ. Да, нужно физически поднять. И как это решить на программном уровне? Пока, я допетрил до такого варианта:
Dim r As Range Dim sStyleName As String sStyleName = "header" For Each r In ActiveDocument.Words If Not r.Paragraphs.Style Is Nothing Then If r.Paragraphs.Style = sStyleName Then r.Case = wdUpperCase End If NextНе знаю. насколько он синтаксически верный, но вроде работает. Как Вы считаете?
хм, я тут подумал, а может перебирать не слова, а сразу параграфы? надо попробовать
да! отлично. работает параграфами на ура.
ведь, правильно ли я думаю, что стиль может быть принемим только к параграфу, а не к отдельным словам в нём?
Нет не правильно. Когда вы задаете стиль, то там есть поле «Стиль:» (сразу после имени стиля). Так вот там мы и указываем куда применять этот стиль: к абзацу, символу, списку, таблице, символу или абзацу в зависимости от выделения.
А если нужно макросом, то перебирать каждый абзац это, конечно, можно, но не продуктивно. Процессор это грузит по полной программе.
Предлагаю такой вариант. Пользуемся стандартным поиском, только в макросной реализации.
With ActiveDocument.Range.Find .ClearFormatting: .Style = ActiveDocument.Styles("Заголовок 1") .Text = "" While .Execute .Parent.Case = 1 'wdUpperCase WendСпасибо. Попробую вдуматся и разобратся.
Александр, скажите пожалуйста, как определить количество строк в параграфе, и, количество слов в последней строке этого параграфа?
По статистике из сервиса колво строк выдаёт. Но как это кодом заполучить ума не приложу.Уже везде пересмотрел всё. нигде не могу найти этих данных.
Никак. А зачем это нужно? Может стоит искать другой путь решения вашей проблемы? Зачем нужно количество слов в последней строке абзаца?
редакторы, когда заполняют название главы, размещают слова так, чтобы на последней строке определённого стиля не находилось слово отдельно, т.е.
КАК ИЗМЕНИТЬ РЕГИСТР В MICROSOFT
WORD ?
так не правильно, нужно, чтобы на последней строке размещались по меньшей мере два слова, например:
КАК ИЗМЕНИТЬ РЕГИСТР В
MICROSOFT WORD ?
Предлагаю делать так. Ищем абзац. Берем его последнее слово и заменяем пробел перед этим словом на неразрывный пробел. Все.
хм, оригинально.
надо продумать этот вариант
karabas, попробуйте такой макрос. У меня работает.
Sub UnbreakLastTwoWords() 'Ищем абзац нужного стиля With ActiveDocument.Range.Find .ClearFormatting: .Style = ActiveDocument.Styles("Глава") .Text = "" While .Execute 'Если нашли 'Ищем в этом абзаце последний пробел и заменяем его на неразрывный With .Parent.Paragraphs(1).Range.Find .Text = " ": .Forward = False .Replacement.Text = ChrW(160) .Execute Replace:=wdReplaceOne End With Wend End With End Subспасибо большое александр.
тут возникла новая дилема,
как оказалось, в абзаце не может быть более 50 символов, если больше, то слово нужно переносить на новую строку
Мне кажется, что вам лучше воспользоваться верстальными программами PageMaker, QuarkXpress и т.п. Там это настраивается просто.
Можно, конечно, и в Word макросами попробовать, но будет очень медленно. Считать символы в каждой строке На странице в среднем 30 строк. На 100 страниц уйдет около получаса времени.
А каким сочетанием клавиш можно поменять язык уже написанного слова. Так часто бывает, что при наборе слова не смотришь какой язык используется и приходится целиком все переписывать. Я слышала, что такое сочетание клавиш существует...
Для этого есть программа Punto Switcher, хотя мне больше нравится Setup KeySwitcher 25.
Подскажите, пожалуйста, каким макросом можно поменять регистр текста, заключенного в кавычки, стоящего перед определённым словом? Например,
Сериал "Богатые тоже плачут" - макрос должен менять все названия сериалов на прописные буквы: Сериал "БОГАТЫЕ ТОЖЕ ПЛАЧУТ". Заранее спасибо.