[решено] Вставка символа щелчком мыши

[truvo]

Предположим, мне надо в тексте Word взять по тексту в кавычки по отдельности три десятка слов.

Я нахожу слово, ставлю в нужной место курсор (щелчок левой кнопкой), снимаю руку с мышки, жму на клавиатуре Shift и клавишу ", затем снова хватаюсь за мышку.

И так 60 раз.

Нет ли какой-то программы, в которой можно было бы назначить действие: вставка кавычки по щелчку левой кнопкой?

Чтобы, допустим, висела эта программа в трее, активизировалась при необходимости вручную, после чего бы мне оставалось только клацнуть мышкой 60 раз без использования клавиатуры?

[Казбек]

truvo,

AutoClipX – Copy And Paste Text With Single Mouse Click (http://www.addictivetips.com/windows-tips/autoclipx-copy-and-paste-text-with-single-mouse-click/)

[truvo]

Спасибо, любопытно, но вроде же платная...

[Казбек]

Спасибо, любопытно, но вроде же платная... »

Здесь (http://superuser.com/questions/84550/select-to-copy-and-middle-click-to-paste-in-windows) в качестве альтернативы скрипт халявный предлагают.

[Iska]

truvo, назначьте такой макрос:
Option Explicit

Sub Sample()
Dim strLetters As String
Dim i As Integer

Dim objPrevSelection As Range


strLetters = ""

For i = Asc("a") To Asc("z")
strLetters = strLetters & Chr(i)
Next i

For i = Asc("A") To Asc("Z")
strLetters = strLetters & Chr(i)
Next i

For i = Asc("а") To Asc("я")
strLetters = strLetters & Chr(i)
Next i

For i = Asc("А") To Asc("Я")
strLetters = strLetters & Chr(i)
Next i

strLetters = strLetters & "ё"
strLetters = strLetters & "Ё"


With Selection
Set objPrevSelection = .Range

.MoveStartWhile Cset:=strLetters, Count:=wdBackward
.InsertBefore Text:="«"

.MoveEndWhile Cset:=strLetters, Count:=wdForward
.InsertAfter Text:="»"

.SetRange objPrevSelection.Start, objPrevSelection.End

Set objPrevSelection = Nothing
End With
End Sub

на какую-либо горячую клавишу. Прокручиваете документ до нужного места, щёлкаете мышкой на потребном слове, нажимаете горячую клавишу.

[yurfed]

взять по тексту в кавычки по отдельности три десятка слов. »Слова одинаковые? Что огород городить?
В любом текстовом редакторе есть в Найти,функция Найти всё и заменить искомое на нужное.
Например в Liibre Office выглядит так-
http://s017.radikal.ru/i431/1611/c4/43b739dfac76.png (http://radikal.ru)

[topotun32]

Например в Liibre Office выглядит так »
TC надо "без использования клавиатуры"

[Yewgeniy]

Тут макрос - самое простое решение. Вывести кнопку в меню ворда, вот и будет "без использования клавиатуры".

[Charg]

TC надо "без использования клавиатуры" »
Всё это можно и исключительно мышкой наклацать (один раз) и применить ко всему документу, только не понятно зачем себе палки в колеса ставить.

[526549]

В общем написал я решение тут. Может пригодится потомкам.
https://forum.simplix.ks.ua/viewtopic.php?pid=23231#p23231
На английской раскладке будет лепить @, на русской "

[truvo]

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

Правда, мой вопрос с кавычками временно отпал — договорились, что их не надо ставить там, где я штамповал... но не исключено ведь, что кому-то (или мне в будущем) эта программа когда-либо пригодится.

В свою очередь ответно хочу порекомендовать пользователям oszone ту ветку форума Симпликса, на которую сослался 526549, полезная ветка.

Charg, yurfed, ваши посты мимо. Слова разные, в разных местах (это может быть и не одно слово, а словосочетание), и от файла к файлу — другие слова в другом тексте.

Всем отписавшимся в данной теме: спасибо за советы, когда я их успешно опробую, "полезняшки" непременно вам нажму, не забуду. Просто у меня правило такое — пока сам не убедился, не нажимаю.

[Yewgeniy]

А решение то где? Анонимная прога, о которой известно ноль до инсталляции?

[truvo]

Я ее уже проверил. Инсталляции не требует. Но возможно, что решение и не одно тут (так как не пробовал пока другие советы)