[решено] Вставка символа щелчком мыши - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Хочу все знать (http://forum.oszone.net/forumdisplay.php?f=23)

- - [решено] Вставка символа щелчком мыши (http://forum.oszone.net/showthread.php?t=320834)

Вставка символа щелчком мыши

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

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

И так 60 раз.

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

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

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

Цитата:

Цитата truvo

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

Здесь в качестве альтернативы скрипт халявный предлагают.

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

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

Цитата:

Цитата truvo

взять по тексту в кавычки по отдельности три десятка слов. »

Слова одинаковые? Что огород городить?
В любом текстовом редакторе есть в Найти,функция Найти всё и заменить искомое на нужное.
Например в Liibre Office выглядит так-

Цитата:

Цитата yurfed

Например в Liibre Office выглядит так »

TC надо "без использования клавиатуры"

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

Цитата:

Цитата topotun32

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

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

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

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

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

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

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

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

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

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