Автозамена в Ворде работает с багом

[Scrooge3]

Всем привет!

Никак не могу разобраться с автозаменой текста в Ворде. Речь идет о замене одного слова на другое автоматически с предварительным указанием в настройках какое слово на какое менять. Замена слова происходит только тогда, когда ставишь курсор после слова и жмешь пробел или Enter, а вот автоматической замены одного слова на другое в автоматическом режиме нету. Что это, баг? Или я что-то не понимаю. Неужели автозамена фактически выполняется в ручном режиме? У меня версия Ворд 2010 года. Хотелось бы, чтобы программа меняла сама слова при открытии файла, без того, чтобы по каждому слово пройтись вручную и нажать пробел.

Спасибо за ответы!

[Sasha_Smirnov]

То, что происходит при открытии и закрытии документов Word, надо описывать в VBE кодами под названием AutoOpen и AutoClose соответственно.

Пример: http://www.cyberforum.ru/vba/thread790698.html#5.

Вот, кстати, корректировка набора, подобную которой я использую уже лет 17: http://www.cyberforum.ru/ms-word/thread1119483.html#8. Если обозвать её AutoOpen — будет выполняться при открытии.

Например, буквосочетание (не слово!) сталинград (независимо от «заглавности» его букв) на Волгоград меняется при открытии так:

Sub autoopen () 'должен находиться в шаблоне normal либо в VBE открываемого документа

With Selection.Find         'соответствует нажатию Ctrl-h в документе Word (диалог поиска и замены)
    .Text = "сталинград"                'ищет сталинград
    .MatchCase = 0                      'не обращает внимания на регистр букв искомого текста
    .Replacement.Text = "Волгоград"     'меняет на Волгоград
    .Execute Replace:=wdReplaceAll      'во всём основном тексте
End With

End Sub

А та автозамена (по ходу ввода), которой вы недовольны, так и задумана (гл. обр. для борьбы с опечатками). В настройках меню Сервис она так и называется: Автозамена при вводе (или: заменять при вводе).

[Scrooge3]

Сообщение от Sasha_Smirnov

... которой вы недовольны, так и задумана (гл. обр. для борьбы с опечатками). В настройках меню Сервис она так и называется: Автозамена при вводе (или: заменять при вводе).

Спасибо огромное! Вы не представляете, как много времени Вы мне сэкономили! Я вставляю готовую таблицу с одними и теми же наименованиями, которые до этого вручную очень долго менял. Теперь после того, как я постепенно начал добавлять все наименования в макрос, преобразование таблиц происходит моментально. Я никогда ранее макросами не пользовался. Это здорово! Спасибо Вам!

Кстати, забыл написать. Немного еще злоупотреблю Вашим вниманием. А Вы не знаете, как в макросе прописать код так, чтобы я одну заглавную букву, пример - "S", менял на сокращенное слово "станд.", только, чтобы в словах, начинающихся на букву "S", замены не происходило.

[Sasha_Smirnov]

Scrooge3, это должен знать каждый…

[Scrooge3]

Сообщение от Sasha_Smirnov

Scrooge3, это должен знать каждый (кто не хочет целый день пропадать на работе).

А серьёзно, то пока я переутомился (над нижележащей темой).

(Кстати, я очень рад, что получился сразу рабочий вариант!)

Спасибо! Да я не настаиваю. И так большое дело сделали. Теперь столько времени удалось сэкономить.

[Serge_Bliznykov]

Сообщение от Scrooge3

А Вы не знаете, как в макросе прописать код так, чтобы я одну заглавную букву, пример - "S", менял на сокращенное слово "станд.", только, чтобы в словах, начинающихся на букву "S", замены не происходило.

я не спец.
но я бы попробовал так:

With Selection.Find         'соответствует нажатию Ctrl-h в документе Word (диалог поиска и замены)
    .Text = "S"                'ищем S
    .MatchCase = True      ' только прописную букву ищем, регистрозависимый поиск
    .MatchWholeWord = True 'только одиночная буква
    .Replacement.Text = "станд."     'меняем на станд.
    .Execute Replace:=wdReplaceAll      'во всём основном тексте
End With

[Sasha_Smirnov]

Нет-нет, Serge_Bliznykov ещё какой спец!

Просто Word’ом обычно занимаются самоучки и любители. А профи обращаются сюда.