Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Сообщений [ 6 ]
- fasheta
- рядовой
- Неактивен
- Зарегистрирован: 12.08.2010
- Сообщений: 3
Тема: Замена латинских букв на русские согласно клавиатуре
Можно ли в выделенной части текста заменить латинские символы на русские с той же клавиши? Т.е. q на й, w на ц, . на ю и т.д.
- viter.alex
- Модератор
- Неактивен
- Откуда: Харьков, Украина
- Зарегистрирован: 21.12.2009
- Сообщений: 884
- Поблагодарили: 140
Re: Замена латинских букв на русские согласно клавиатуре
Если без учёта регистра, тогда так:
Sub KeyboardTranslit()
Const Lat = "qwertyuiop[]asdfghjkl;'zxcvbnm,./"
Const Rus = "йцукенгшщзхъфывапролджэячсмитьбю."
Dim i As Integer
For i = 1 To Len(Lat)
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = Mid(Lat, i, 1)
.Replacement.Text = Mid(Rus, i, 1)
.Execute Replace:=wdReplaceAll
End With
DoEvents
Next
End Sub
Лучше день потерять — потом за пять минут долететь!
- fasheta
- рядовой
- Неактивен
- Зарегистрирован: 12.08.2010
- Сообщений: 3
Re: Замена латинских букв на русские согласно клавиатуре
Большое спасибо! Обзовите меня как угодно, но что с этим делать?
- viter.alex
- Модератор
- Неактивен
- Откуда: Харьков, Украина
- Зарегистрирован: 21.12.2009
- Сообщений: 884
- Поблагодарили: 140
Re: Замена латинских букв на русские согласно клавиатуре
А какой ответ вы хотели получить?
Лучше день потерять — потом за пять минут долететь!
- ЮВ
- генерал-лейтенант
- Неактивен
- Зарегистрирован: 28.07.2010
- Сообщений: 284
- Поблагодарили: 43
Re: Замена латинских букв на русские согласно клавиатуре
fasheta пишет:... но что с этим делать?
Создайте макрос с этим текстом, а потом выполните его.
- fasheta
- рядовой
- Неактивен
- Зарегистрирован: 12.08.2010
- Сообщений: 3
Re: Замена латинских букв на русские согласно клавиатуре
Я догадался, что это макрос для word, только я им (word) ни разу не пользовался. Но все получилось! Спасибо!
Сообщений [ 6 ]
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Замена латинских букв на русские согласно клавиатуре
Вам приходилось, к примеру, редактировать текст, весом с хороший булыжник, где нерадивый наборщик поставил по сорок пробелов между словами? Наш сайт о Microsoft Office Word даст ответ про: мигает курсор мыши в word 2010 32.
Пытались ли вы когда-нибудь вручную поменять в Microsoft Word стили? Вы перешли на новую версию программы, все непривычно и непонятно? На портале о Microsoft Office Word вы узнаете про: вставка коментариев в word.
А может, наоборот, вам пришли в голову оригинальные решения, которыми вы хотите поделить с другими пользователями? На портале о Microsoft Office Word вы узнаете про: сноска в word 2010.
Приглашаем вас посетить форум Ворд Эксперт, где собраны все основные вопросы по этой программе, касательно настроек, работы с документами, в том числе и сложные случаи исправления чужих ошибок и косяков. На портале о Microsoft Office Word вы узнаете про: error 429.
Побывав на форуме, вы поймете, что написать макрос – легко и просто, а при желании найдете литературу на этой теме (список прямо на главной). Наш сайт о Microsoft Office Word даст ответ про: как включить линейку в excel 2007.
Возможно, ответ на свой вопрос или решение проблемы вы отыщете в разделах автоматизации или готовых решений. На портале о Microsoft Office Word вы узнаете про: скачать базу синонимов для русского языка бесплатно редактор word.
Если ваша проблема уникальна, можно всегда сделать заявку в соответствующем разделе. Также в этих разделах вы можете выложить свои наработки. На портале о Microsoft Office Word вы узнаете про: ошибка при попытке открытия файла попробуйте выполнить следующие действия 2003.
Что приятно, на форуме довольно строгий контроль спама и флуда, на Ворд Эксперт общаются профессионально, но на доступном и понятном языке. Наш сайт о Microsoft Office Word даст ответ про: шрифты гост тип а тип б применение.
Для общих тем существует «курилка», для пожеланий по работе предусмотрен свой раздел.
