Статьи из блога

Перестановка соседних букв: макрос

Василий задал вопрос:

Подскажите, как поменять местами две соседние буквы одной клавишей или сочетанием двух-трех, чтобы долго не возиться? У меня, как и у многих активно пишущих, это самая рапространенная ошибка/опечатка.

Василий, ответ на ваш вопрос описывается в книге Microsoft Word: комфортная работа с помощью макросов.

Собственно, вот простейший вариант макроса.

 

Допустим, у вас есть слово "выпей" и ошибившись в наборе вы напечатали "впыей". Ставите курсор ввода перед буквой "ы" и выполняете следующий макрос:

Sub chaChar()
With Selection
   .MoveLeft unit:=wdCharacter, Count:=1, Extend:=wdExtend
   .Copy
   .Delete
   .MoveLeft wdCharacter, 1
   .Paste
End With
End Sub

Ради справедливости, приведу также код макроса, опубликованный в указанной выше книге. Он практически идентичен предыдущему макросу. Вам необходимо поместить курсор ввода между двумя буквами, которые надо поменять местами и выполнить макрос:

Sub chaChar()
'Перестановка соседних букв: курсор между буквами
With Selection
   .MoveRight wdCharacter, 1, wdExtend
   .Cut
   .MoveLeft wdCharacter, 1
   .Paste
   .MoveRight wdWord, 1
End With
End Sub

twitter.com facebook.com vkontakte.ru odnoklassniki.ru mail.ru ya.ru rutvit.ru myspace.com technorati.com digg.com friendfeed.com pikabu.ru blogger.com liveinternet.ru livejournal.ru memori.ru google.com bobrdobr.ru mister-wong.ru yahoo.com yandex.ru del.icio.us

Еще записи по вопросам использования Microsoft Word:

Оставьте комментарий!

(обязательно)

^ Наверх