1 Тема от chigai

  • chigai
  • рядовой
  • Неактивен
  • Зарегистрирован: 04.06.2012
  • Сообщений: 1

Тема: Помогите камрады в написании макроса.

макрос, который после запятой будет ставить "опа", а после точки "нафиг". Большое спасибо, а то шеф наш на девушек наших всегда матерится, хотим проучить его..

2 Ответ от aap77

  • aap77
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 12.09.2011
  • Сообщений: 925
  • Поблагодарили: 243

Re: Помогите камрады в написании макроса.

Вот пожалуйста!!!

Sub ОпаНафиг()
'
' ОпаНафиг Макрос
' После запятой ставит "опа!!!", после точки "нафиг!!!"
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ", ""опа!!!"""
        .Replacement.Text = ", "
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = ", "
        .Replacement.Text = ", ""опа!!!"""
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = ". ""нафиг!!!"""
        .Replacement.Text = "."
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "."
        .Replacement.Text = ". ""нафиг!!!"""
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

big_smile

3 Ответ от Alex_Gur

  • Помогите камрады в написании макроса.
  • Alex_Gur
  • Модератор
  • Неактивен
  • Откуда: Москва
  • Зарегистрирован: 28.07.2011
  • Сообщений: 2,758
  • Поблагодарили: 492

Re: Помогите камрады в написании макроса.

Макрос должен быть добавлен в AutoExec - тогда он будет загружаться автоматически при запуске Word. big_smile

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.