йцукен кот

Aug. 2nd, 2011 11:23 am
[identity profile] fafnire.livejournal.com posting in [community profile] useful_faq
В qip если ты случайно  набрал текст не в той раскладке можно его выделить и нажать ctrl+r - и раскладка текста автоматом преобразуется. Есть ли такое же сочетание клавиш или макрос или кнопка для Word? Или может настроить как то можно?
Punto switcher не предлагать.
  • Add Memory
  • Share This Entry
Flat | Top-Level Comments Only

Date: 2011-08-02 08:29 am (UTC)
From: [identity profile] withoutsun.livejournal.com
а что в Punto switcher не устраивает? оставляя в ней функцию только выделить текст и по нажатию 1 клавиши поменять раскладку - остальные проблемы как то незапланированные переключения её никак себя не проявляют.

Date: 2011-08-02 08:43 am (UTC)
From: [identity profile] pumpphonia.livejournal.com
можно даже не выделять и все равно раскладка поменяется)))

Date: 2011-08-02 10:07 am (UTC)
From: [identity profile] roquefort-tln.livejournal.com
есть очень хорошая программа - punto Ыцшесрук (С)

Date: 2011-08-02 10:54 am (UTC)
From: [identity profile] dendrr.livejournal.com
>>Есть ли ... макрос ... для Word?
Напишите сами. Долго ли?

Эххх. Чем объяснять, быстрее самому сделать (там полно других действий, помимо самого написания). Значит так - в своем ворде (если он, конечно, не младше 2007 - в противном случае придется искать самостоятельно) жмете на риббоне на "Разрабочик", "Макросы", "Создать", вписываете имя макроса (предлагаю - "Раскладка") потом вставляете код из следующего моего сообщения, "Сохранить".

Потом закрываете текущее окно, жмакаете на большой кругляш в левом верхнем углу "Ворда" (он же кнопка "Офис"). В самом низу справа - кнопка "Параметры Word", выбираете в меню слева - "Настройка", потом справа внизу - "Сочетания клавиш - Настройка". В "Категориях" выбираете "макросы", потом справа - "Раскладка" (или имя макроса, которое вы придумали чуть раньше), кликаете в окошке "Новое сочетание клавиш", нажимаете требуемое сочетание, далее закрываете все окна.

Готово! Теперь вы можете менять раскладку в выделенном блоке текста с английской на русскую.
В обратном направлении, правда, этот макрос работать не будет, надо делать второй. Как - можно понять, прочитав код этого макроса.

Date: 2011-08-02 10:55 am (UTC)
From: [identity profile] dendrr.livejournal.com
With Selection.Find
.Text = "a"
.Replacement.Text = "ф"
.Forward = True
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "s"
.Replacement.Text = "ы"
.Forward = True
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "d"
.Replacement.Text = "в"
.Forward = True
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "f"
.Replacement.Text = "а"
.Forward = True
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "g"
.Replacement.Text = "п"
.Forward = True
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With

Date: 2011-08-02 10:57 am (UTC)
From: [identity profile] dendrr.livejournal.com
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "h"
.Replacement.Text = "р"
.Forward = True
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "j"
.Replacement.Text = "о"
.Forward = True
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "k"
.Replacement.Text = "л"
.Forward = True
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With

Date: 2011-08-02 10:57 am (UTC)
From: [identity profile] dendrr.livejournal.com
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "l"
.Replacement.Text = "д"
.Forward = True
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = ";"
.Replacement.Text = "ж"
.Forward = True
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "'"
.Replacement.Text = "э"
.Forward = True
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "q"
.Replacement.Text = "й"
.Forward = True
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "w"
.Replacement.Text = "ц"
.Forward = True
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "e"
.Replacement.Text = "у"
.Forward = True
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "r"
.Replacement.Text = "к"
.Forward = True
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "t"
.Replacement.Text = "е"
.Forward = True
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "y"
.Replacement.Text = "н"
.Forward = True
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "u"
.Replacement.Text = "г"
.Forward = True
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With

Date: 2011-08-02 10:58 am (UTC)
From: [identity profile] dendrr.livejournal.com
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "i"
.Replacement.Text = "ш"
.Forward = True
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "o"
.Replacement.Text = "щ"
.Forward = True
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "p"
.Replacement.Text = "з"
.Forward = True
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "["
.Replacement.Text = "х"
.Forward = True
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "]"
.Replacement.Text = "ъ"
.Forward = True
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "z"
.Replacement.Text = "я"
.Forward = True
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "x"
.Replacement.Text = "ч"
.Forward = True
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "c"
.Replacement.Text = "с"
.Forward = True
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "v"
.Replacement.Text = "м"
.Forward = True
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "b"
.Replacement.Text = "и"
.Forward = True
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "n"
.Replacement.Text = "т"
.Forward = True
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With

Date: 2011-08-02 10:58 am (UTC)
From: [identity profile] dendrr.livejournal.com
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "m"
.Replacement.Text = "ь"
.Forward = True
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = ","
.Replacement.Text = "б"
.Forward = True
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
With Selection.Find
.Text = "<"
.Replacement.Text = "Б"
.Forward = True
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "."
.Replacement.Text = "ю"
.Forward = True
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
With Selection.Find
.Text = ">"
.Replacement.Text = "Ю"
.Forward = True
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With

+100

Date: 2011-08-02 12:18 pm (UTC)
From: [identity profile] 0832.livejournal.com
Ржу. Во весь голос.

Date: 2011-08-03 04:53 am (UTC)
From: [identity profile] rambalac.livejournal.com
Вот что значит индийский код

Date: 2011-08-03 05:41 am (UTC)
From: [identity profile] rambalac.livejournal.com
findString = "qwertyuiop[]asdfghjkl;'zxcvbnm,./QWERTYUIOP{}ASDFGHJKL:""ZXCVBNM<>?"

replaceString = "йцукенгшщзхъфывапролджэячсмитьбю.ЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮ,"

For i = 1 To Len(findString)

With Selection.Find
.Text = Mid(findString, i, 1)
.Replacement.Text = Mid(replaceString, i, 1)
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next i


Вот и весь код

Date: 2011-08-03 05:43 am (UTC)
From: [identity profile] rambalac.livejournal.com
И ваш код перепутает большие/маленькие буквы

Date: 2011-08-02 09:31 pm (UTC)
From: [identity profile] mindgames4ever.livejournal.com
Есть. LayoutFix.
  • Add Memory
  • Share This Entry
Flat | Top-Level Comments Only