Статьи из блога
Статьи из блога
Макрос вставки текста перед каждым абзацем
Рубрика: Макросы, Стили и форматирование
Метки: макросы | форматирование
Воскресенье, 16 марта 2008 г.
Просмотров: 1101
Подписаться на комментарии по RSS
Версия для печати
Метки: макросы | форматирование
Воскресенье, 16 марта 2008 г.
Просмотров: 1101
Подписаться на комментарии по RSS
Версия для печати
Александр спрашивает:
Как вставить (автоматически!) по всему документу в начале каждой строки один и тот же текст? Вручную это очень долго если документ много строк.
Можно воспользоваться следующим макросом для вставки некоего текста перед первым предложением каждого абзаца.
Sub insertBefore()
'Вставка текста из поля ввода перед каждым абзацем
Dim par As Paragraph
Dim Str As String
Str = InputBox("Введите текст", "Ввод текста в начало каждого абзаца") 'Диалог с полем ввода текста
For Each par In ActiveDocument.Paragraphs
par.Range.insertBefore (Str & vbTab) 'Вставляем текст из поля ввода и добавляем табуляцию
Next
End Sub
Если вы не знаете, как подключить к документу и применить этот макрос, изучите следующие заметки с сайта:
Создание макроса из готового кода
Поиск
Рубрики
Подписка
Читают
Обсуждают
страницы
сайты
статистика
Комментариев: 5
Если "перед первым предложением каждого абзаца", то проще обычной заменой: знак абзаца заменяем на знак абзаца + текст . Но челевеку, похоже, надо перед каждой строчкой?
А как можно вставить 3 строки после нахождения определенного слова.
Например я хочу находить в документе слова ПРИВЕТ и ниже этих слов вставить 3 строчки (ВАСЯ ПЕТЯ МИША). Слов "ПРИВЕТ" в тексте много.
Вот так должно все выглядеть.
ПРИВЕТ
ВАСЯ
ПЕТЯ
МИША
Ctrl + H
В поле Найти: привет
В поле Заменить: ^&^pВАСЯ^pПЕТЯ^pМИША
Простите забыл один момент.
Необходимо чтобы поиск и вставка текста начиналась с того текста где стоит курсор, а не с начала документа.
Нужно чтобы это был макрос. Так как вместо слов ВАСЯ ПЕТЯ МАША будут предложения. И такие замены необходимо делать очень часто. Я думаю что проще будет запускать макрос чем делать это через писк и замену. БЛАГОДАРЮ ВАС ЗА ОТВЕТ. Этот вариант меня тоже спасет. И еще я не ожидал, что так быстро ответите. СПАСИБО.