Сообщения без ответов | Активные темы


Список форумов » Общекомпьютерные форумы » Программное обеспечение

Часовой пояс: UTC + 3 часа




Начать новую тему Новая тема / Ответить на тему Ответить  Сообщений: 4 
  Пред. тема | След. тема 
В случае проблем с отображением форума, отключите блокировщик рекламы
Автор Сообщение
  desoto

Member
Статус: Не в сети
Регистрация: 23.12.2002
Откуда: Toronto
как выполнить автоматически автозамену в тексте?
например: букву "ш" на "п" т.е. это можно было бы сделать просто подстановкой - "поиск-замена", но такой вариант меня не устраивает. В Ворде 2003 есть опция - автозамена, заменить одну букву на другую, но это работает только во время набивания текста, а как можно это правило применить на уже готовом тексте?

_________________
Alta petunt!

Реклама

Партнер
  Artemk@

На готовом тексте это применяется (и во всех версиях применялось) Поиском заменой.
Или макросом типа.
Код:
Sub МакросЗамены()
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "ш"
        .Replacement.Text = "п"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = True
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Что есть суть одно и тоже :)

Добавлено спустя 10 минут, 56 секунд:
А если хочешь очень круто выпендриться, то можно
нарисовать вообще что то ужасное типа
Код:
Sub МакросЗаменыИзБазыАвтозамены()
For Each acEntry in AutoCorrect.Entries
  Selection.Find.ClearFormatting
  Selection.Find.Replacement.ClearFormatting
  With Selection.Find
      .Text = acEntry.Name 
      .Replacement.Text = acEntry.Value
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = True
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
  End Sub
  AutoCorrect.Entries.Name
Next acEntry

Круть будет вплоть до изврата :D

Добавлено спустя 3 минуты, 36 секунд:
и повесить сей макрос на кнопку в тулбаре, Эх... самому чтоли тоже такое повесить.
Хотя не рискну :)
  desoto

Member
Статус: Не в сети
Регистрация: 23.12.2002
Откуда: Toronto
to Artemk@
спасибки, помогло. только вот как приспособить кнопу в панель инструментов (то что вверху ворда), а то пришлось вставить кнопу прямо в документ - получилось не гибко, кнопа завязывается за конкретный документ, а хотелось бы чтобы она постоянно была в панели инструментов.

_________________
Alta petunt!

  Artemk@

Иногда бывает полезно F1 понажимать.
  1. Сделай макрос в общем шаблоне а не в документе (как объяснять не буду, это тривиально)
  2. В меню - Сервис - Настройка...
  3. в открывшимя окне
    • закладка "Команды"
    • Категория - Макросы
    • Нужный макрос перетаскиваешь в ту панель, каторая тебе нравится
    • Не закрвывая это окно кликни правой кнопкой на получившуюся кнопку и сделай с ее внешним видом то, что тебе надо
  4. наслаждайся
Показать сообщения за:  Поле сортировки  
Начать новую тему Новая тема / Ответить на тему Ответить  Сообщений: 4 
-

Список форумов » Общекомпьютерные форумы » Программное обеспечение

Часовой пояс: UTC + 3 часа


Кто сейчас на конференции

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

Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Перейти:  
Создано на основе phpBB® Forum Software © phpBB Group
Русская поддержка phpBB | Kolobok smiles © Aiwan