Статьи из блога
Принудительное разбиение строки с помощью макроса
Вопрос от Gojah:
Как создать принудительный разрыв строки (максимум 15 символов на строке) автоматически для всего текста?
Например, строку 111111111111111111 преобразовать в:
111
111
...
111
Для этой цели можно воспользоватся следующим макросом:
Sub razmer_stroki_15() Const chunkSize = 15 Dim oRg As Range Dim actualSize As Long Set oRg = ActiveDocument.Range With oRg .Collapse wdCollapseStart actualSize = .MoveEnd(Unit:=wdCharacter, Count:=chunkSize) Do While actualSize = chunkSize .InsertAfter vbCr .Collapse wdCollapseEnd actualSize = .MoveEnd(Unit:=wdCharacter, Count:=chunkSize) Loop End With End Sub
Если вы не знаете, как подключить к документу и применить этот макрос, изучите следующие заметки с сайта:
Рубрика: Вопрос-Ответ, Макросы, Стили и форматирование
Метки: макросы | форматирование
Просмотров: 16811
Подписаться на комментарии по RSS
Версия для печати
Метки: макросы | форматирование
Просмотров: 16811
Подписаться на комментарии по RSS
Версия для печати
Еще записи по вопросам использования Microsoft Word:
- 10 вопросов и ответов по редактору Word (1 часть)
- 3 способа очистки списка недавно открытых документов
- Word 2007: добавляем свою вкладку и свои команды
- Word 2007: полотно, рисунки, линии
- Word 2007: смена формата сохранения файла
- Word 97 - решение проблемы с отображением символов на линейке
- Word 97. Слияние документов как один из способов упростить свою работу
- Абзац с цветным фоном
- Автозаполняемые колонтитулы
- Автоматизация текстового набора в Word
- Автоматическая запись макроса
- Автоматическая нумерация билетов
- Автоматическая расстановка переносов
- Автоматическое обновление полей при открытии документа
- Автоматическое сохранение документа при его закрытии
- Автотекст с последовательной нумерацией
- Автоформат документов
- Белый текст на синем фоне в Word 2007
- Буквица
- Быстрая смена ориентации страниц документа
- Быстрое изменение стиля форматирования текста
- Быстрое перемещение между открытыми документами Word
- Быстрое создание нового документа на основе шаблона
- Быстрое удаление границ у таблицы
- Быстрый ввод текста с помощью команды =rand()
Комментариев: 2
А почему бы просто не заменить "111" на "111^p"
Подскажите, как сделать принудительный разрыв после 4 и более слов в строке (в этом макросе символы, надо сделать слова, независимо от кол-ва в них символов). Сначала разбить строки, а потом собрать заново