Макрос для WORD по проставлению абзацев

Баг-репорты, вопросы, переклички и голосования - всё тут.
Для поднятия рейтинга игры, каждый день кликнуть сюда и сюда.

Макрос для WORD по проставлению абзацев

 #1  Сообщение Rayne » 14 май 2012, 23:01

Вернуться в стартовую тему

Инструкция (проверено на WORD 2010, русский):
- запускаете программу, открываете меню Вид =- макросы;
- набираете в верхнем поле название "Paragraph" и нажимаете кнопку "Создать";
- в открывшемся поле готовый код
Код: выделить все
Sub Paragraph()
'
' Paragraph Макрос
'
'

End Sub

заменяем на следующий:
Код: выделить все
Sub Paragraph()
'
' Paragraph Макрос
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^p"
        .Replacement.Text = "^p[nbsp][/nbsp]"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.EndKey Unit:=wdStory
    Selection.MoveLeft Unit:=wdCharacter, Count:=13, Extend:=wdExtend
    Selection.Cut
    Selection.HomeKey Unit:=wdStory
    Selection.PasteAndFormat (wdFormatOriginalFormatting)
End Sub

- жмём ctrl+s, закрываем окно редактирования.
Теперь в WORD при нажатии на меню макросов в списке должен появиться макрос "paragraph".

Как использовать:
Вызываете меню макросов, нажимаете "выполнить".
Я вампир, Я демон, Я херня с хвостом и большими ушами...

- Мама, он такой белый...
- Нет, детка, это мы белые. А он - мертвый (с) True Blood

За это сообщение автора Rayne поблагодарил:
Максимилиан Дрезден
Аватар пользователя
Rayne
Муза
 
Возраст на вид: 0
Статус: Админ
D.Rate: C

Выпито: 65 БП.
Пожертовано: 108 БП.
Сообщений: 1135
Зарегистрирован: 14 дек 2013

Вернуться в Технический раздел


Кто сейчас на форуме

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 2

cron