Серый форум — AHK: Окрашивание слова в определенный цвет

Re: AHK: Окрашивание слова в определенный цвет

null@example.com (kornerupin) — Thu, 06 Aug 2020 15:57:17 +0000

teadrinker, Благодарю.
Теперь все нормально.

Re: AHK: Окрашивание слова в определенный цвет

null@example.com (teadrinker) — Wed, 05 Aug 2020 21:44:21 +0000

#If WinActive("ahk_class OpusApp")
:*b0:программа1::
   try Word := ComObjActive("Word.Application")
   catch
      throw "Failed to get Word Application object"
   RegExMatch(A_ThisHotkey, "O)[^:]+$", m)
   Sel := Word.Selection
   end := Sel.Start
   Rng := Word.ActiveDocument.Range(end - m.Len, end)
   Rng.Font.ColorIndex := wdBlue := 2
   Sel.Font.ColorIndex := wdBlack := 1
   Return

Re: AHK: Окрашивание слова в определенный цвет

null@example.com (kornerupin) — Wed, 05 Aug 2020 20:24:48 +0000

А вот в коде для ворда - там после окраски ключевого слова - можно как-нибудь цвет сделать обычным черным ?
Потому что ворд - так и продолжает печатать синим цветом.

Re: AHK: Окрашивание слова в определенный цвет

null@example.com (teadrinker) — Wed, 05 Aug 2020 20:04:21 +0000

По Экселю не разбирался. Дерзайте: 1, 2.

Re: AHK: Окрашивание слова в определенный цвет

null@example.com (kornerupin) — Wed, 05 Aug 2020 16:18:21 +0000

teadrinker А как для экселя это применить ?

Я вот так записал - не работает.

#If WinActive("ahk_class XLMAIN")
:*b0:программа1::
   try Excel := ComObjActive("Excel.Application")
   catch
      throw "Failed to get Excel Application object"
   RegExMatch(A_ThisHotkey, "O)[^:]+$", m)
   end := Excel.Selection.Start
   Rng := Excel.Activesheets.Range(end - m.Len, end)
   Rng.Font.ColorIndex := wdBlue := 2
   Return

Re: AHK: Окрашивание слова в определенный цвет

null@example.com (teadrinker) — Wed, 05 Aug 2020 07:40:44 +0000

Для Ворда так примерно:

#If WinActive("ahk_class OpusApp")
:*b0:программа1::
   try Word := ComObjActive("Word.Application")
   catch
      throw "Failed to get Word Application object"
   RegExMatch(A_ThisHotkey, "O)[^:]+$", m)
   end := Word.Selection.Start
   Rng := Word.ActiveDocument.Range(end - m.Len, end)
   Rng.Font.ColorIndex := wdBlue := 2
   Return

Re: AHK: Окрашивание слова в определенный цвет

null@example.com (kornerupin) — Wed, 05 Aug 2020 03:51:28 +0000

teadrinker, мне там нужно всего три слова.

Re: AHK: Окрашивание слова в определенный цвет

null@example.com (teadrinker) — Wed, 05 Aug 2020 01:03:45 +0000

То-есть, все слова, которые нужно окрашивать, нужно будет прописать в скрипте? А если какое-то другое понадобится?
Бросьте, вручную проще.

AHK: Окрашивание слова в определенный цвет

null@example.com (kornerupin) — Wed, 05 Aug 2020 00:25:48 +0000

Здравствуйте.
Есть скрипт который при последовательном нажатии клавиш - запускает скрипт.
А само набранное слово при этом стирает.

Как изменить этот скрипт, чтобы он не стирал слово, а вместо запуска скрипта - окрашивал бы данное слово в синий цвет ?
Разумеется если набрать в блокноте это слово - то он ничего не покрасит, но вот если его набирать в ворде или экселе - то да.


:*:программа1:: 
Sleep, 500
   Run C:\1\tada.wav
   Return