Chrome에서는 웹페이지의 일부 텍스트를 강조표시하고 마우스 오른쪽 버튼 클릭 컨텍스트 메뉴를 사용하여 새 탭에서 선택한 텍스트에 대한 Google 검색을 열 수 있습니다.
마우스 오른쪽 버튼 클릭 메뉴 대신 키보드 단축키를 사용하여 이 기능에 액세스할 수 있다면 매우 편리할 것입니다. 기존 확장 기능을 검색해 보았고 여기에서 기존 키보드 단축키 목록도 샅샅이 뒤졌습니다.https://support.google.com/chrome/answer/157179?hl=ko
누구든지 이 작업을 수행하는 방법을 알고 있습니까?
답변1
이는 Chrome에서 작동합니다.
- 먼저 일부 텍스트를 강조 표시하십시오.
- Hit CTRL+ C- 텍스트를 복사합니다.
- Hit CTRL+ T- 새 탭을 생성하고 포커스를 둡니다.
- CTRL+를 누르세요 V- 검색주소창에 텍스트를 붙여넣습니다(Chrome은 기본적으로 거기에 커서를 둡니다).
- Hit Enter- 검색주소창의 텍스트를 검색합니다.
자동화하고 싶나요? 사용오토핫키CTRL+ Alt+를 사용하여 자동 매크로로 만들려면 S 다음 스크립트를 사용하세요::
^!s::
Send ^c
Send ^t
Send ^v
Send {Enter}
Return
참고로 이 스크립트를 테스트했는데 Chrome에서 작동합니다.
답변2
AHK에도 이에 대한 두 가지 답변이 있습니다.
이는 크롬뿐만 아니라 어디에서나 전역적으로 적용 가능합니다. 텍스트를 선택하고 Windows+를 누르세요.G
#g:: ;;Google selected text
Send, ^c
Run, http://www.google.com/search?q=%Clipboard%
Return
하나는 내 것에서 나온 거야여기에 대답하세요. 텍스트를 선택하고 Windows+ Shift+ 를 누릅니다 G. 이것은 단지 클립보드에 링크를 제공한다는 점에서 다릅니다.
; Search google for the highlighted word
; then get the first link address and put it on the Clipboard
^!r:: Reload
#+g::
bak = %clipboard%
Send, ^c
;clipboard = %bak%`r`n%clipboard%
Query = %clipboard%
wb := ComObjCreate("InternetExplorer.Application")
;wb := IEGet()
wb.Visible := false
wb.Navigate("www.google.com/search?q=" Query)
While wb.readyState != 4 || wb.document.readyState != "complete" || wb.busy ; wait for the page to load
sleep 100
; loop % (Nodes := wb.document.getElementById("rso").childNodes).length
; Links_urls .= (A_index = 1) ? Nodes[A_index-1].getElementsByTagName("a")[0].href : "`n" . Nodes[A_index-1].getElementsByTagName("a")[0].href
; Msgbox %Links_urls%
Nodes := wb.document.getElementById("rso").childNodes
First_link := Nodes[0].getElementsByTagName("a")[0].href
Clipboard = %First_link%
TrayTip, First Link on Google Search, %First_link% `r`n Ctrl+V to paste the link
return
답변3
Parivar Saraff가 제안한 내용을 바탕으로여기, 다음은 3 in 1 AutoHotKey 스크립트입니다:
;Hotkey Modifier Symbols (for how to customize the hotkeys) https://www.autohotkey.com/docs/Hotkeys.htm#Symbols
#NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases.
; #Warn ; Enable warnings to assist with detecting common errors.
SendMode Input ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir% ; Ensures a consistent starting directory.
; Google-search selected text
; Usage:ctrl+shift+G
^+g::
{
Send, ^c
Sleep 150
Run, http://www.google.com/search?q=%Clipboard% ;(изм.себе на google.com.ua)
Return
}
; Google-dictionary selected text
; Usage:ctrl+shift+D
^+d::
{
Send, ^c
Sleep 150
Run, https://www.google.com/search?q=define:%Clipboard% ;(изм.себе на google.com.ua)
Return
}
; Wikipedia-search selected text by using google "site:" operator
; Usage:ctrl+shift+W
^+w::
{
Send, ^c
Sleep 150
Run, https://www.google.com/search?q=site:wikipedia.org %Clipboard% ;(изм.себе на google.com.ua)
Return
}
또한 강조 표시된 텍스트 변환 스크립트(웹에서 이러한 스크립트 변형의 조합):
;Hotkey Modifier Symbols (for how to customize the hotkeys) https://www.autohotkey.com/docs/Hotkeys.htm#Symbols
;Hotkey Modifier Symbols (for how to customize the hotkeys) https://www.autohotkey.com/docs/Hotkeys.htm#Symbols
#NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases.
SendMode Input ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir% ; Ensures a consistent starting directory.
cycleNumber := 1
#IfWinNotActive ahk_class XLMAIN
;Highlighting any text, and then pressing that HotKey will cycle through the 4 most common text casings, converting the highlighted text right in-line.
;For example:
;If you highlight "This is a test sentence", and then hit that HotKey once, it'll make it all UPPERCASE ("THIS IS A TEST SENTENCE").
;Hit the HotKey again, it'll convert it to lowercase ("this is a test sentence").
;Hit it again and it'll convert it to Sentence case ("This is a test sentence"). (First letter is capitalized, rest is lower-case).
;Finally, hit it one more time and it'll convert it to Mixed case, or what I often call, "camel-case" ("This Is A Test Sentence"). (Each word is capitalized).
; Usage:Ctrl+Shift+C
^+c::
If (cycleNumber==1)
{
ConvertUpper()
cycleNumber:= 2
}
Else If (cycleNumber==2)
{
ConvertLower()
cycleNumber:= 3
}
Else If (cycleNumber==3)
{
ConvertSentence()
cycleNumber:= 4
}
Else
{
ConvertMixed()
cycleNumber:= 1
}
Return
ConvertUpper()
{
clipSave := Clipboard
Clipboard = ; Empty the clipboard so that ClipWait has something to detect
SendInput, ^c ; Copies selected text
ClipWait
StringReplace, Clipboard, Clipboard, `r`n, `n, All ; Fix for SendInput sending Windows linebreaks
StringUpper, Clipboard, Clipboard
Len:= Strlen(Clipboard) ;Set number of characters ;Set number of characters
SendInput, ^v ; Pastes new text
Send +{left %Len%} ;Re-select text
VarSetCapacity(clipSave, 0) ; Free memory
Clipboard := clipSave ;Restore previous clipboard
}
ConvertLower()
{
clipSave := Clipboard
Clipboard = ; Empty the clipboard so that ClipWait has something to detect
SendInput, ^c ; Copies selected text
ClipWait
StringReplace, Clipboard, Clipboard, `r`n, `n, All ; Fix for SendInput sending Windows linebreaks
StringLower, Clipboard, Clipboard
Len:= Strlen(Clipboard) ;Set number of characters
SendInput, ^v ; Pastes new text
Send +{left %Len%} ;Re-select text
VarSetCapacity(clipSave, 0) ; Free memory
Clipboard := clipSave ;Restore previous clipboard
}
ConvertSentence()
{
clipSave := Clipboard
Clipboard = ; Empty the clipboard so that ClipWait has something to detect
SendInput, ^c ; Copies selected text
ClipWait
StringReplace, Clipboard, Clipboard, `r`n, `n, All ; Fix for SendInput sending Windows linebreaks
StringLower, Clipboard, Clipboard
Clipboard := RegExReplace(Clipboard, "(((^|([.!?]+\s+))[a-z])| i | i')", "$u1")
Len:= Strlen(Clipboard) ;Set number of characters
SendInput, ^v ; Pastes new text
Send +{left %Len%} ;Re-select text
VarSetCapacity(clipSave, 0) ; Free memory
Clipboard := clipSave ;Restore previous clipboard
}
ConvertMixed()
{
clipSave := Clipboard
Clipboard = ; Empty the clipboard so that ClipWait has something to detect
SendInput, ^c ; Copies selected text
ClipWait
StringReplace, Clipboard, Clipboard, `r`n, `n, All ; Fix for SendInput sending Windows linebreaks
StringUpper Clipboard, Clipboard, T
Len:= Strlen(Clipboard) ;Set number of characters
SendInput, ^v ; Pastes new text
Send +{left %Len%} ;Re-select text
VarSetCapacity(clipSave, 0) ; Free memory
Clipboard := clipSave ;Restore previous clipboard
}
#IfWinNotActive
; Convert selected text to inverted case
; Ex: THIS_is-a_tESt -> this_IS-A_TesT
; Usage:ctrl+Shift+I
^+i::
Convert_Inv()
RETURN
Convert_Inv()
{
; save original contents of clipboard
Clip_Save:= ClipboardAll
; empty clipboard
Clipboard:= ""
; copy highlighted text to clipboard
Send ^c{delete}
; clear variable that will hold output string
Inv_Char_Out:= ""
; loop for each character in the clipboard
Loop % Strlen(Clipboard)
{
; isolate the character
Inv_Char:= Substr(Clipboard, A_Index, 1)
; if upper case
if Inv_Char is upper
{
; convert to lower case
Inv_Char_Out:= Inv_Char_Out Chr(Asc(Inv_Char) + 32)
}
; if lower case
else if Inv_Char is lower
{
; convert to upper case
Inv_Char_Out:= Inv_Char_Out Chr(Asc(Inv_Char) - 32)
}
else
{
; copy character to output var unchanged
Inv_Char_Out:= Inv_Char_Out Inv_Char
}
}
; send desired text
Send %Inv_Char_Out%
Len:= Strlen(Inv_Char_Out)
; highlight desired text
Send +{left %Len%}
; restore original clipboard
Clipboard:= Clip_Save
}
; Text–only paste from ClipBoard (while the clipboard formatted text itself is being untouched)
; Usage:ctrl+Shift+I
^+v::
Clip0 = %ClipBoardAll%
Clipboard = %Clipboard% ; Convert clipboard text to plain text.
StringReplace, clipboard, clipboard,%A_SPACE%",", All ; Remove space introduced by WORD
StringReplace, Clipboard, Clipboard, `r`n, `n, All ; Fix for Send sending Windows linebreaks
Send ^v ; For best compatibility: SendPlay
Sleep 50 ; Don't change clipboard while it is pasted! (Sleep > 0)
ClipBoard = %Clip0% ; Restore original ClipBoard
VarSetCapacity(Clip0, 0) ; Free memory
Return
; Wrap selected text in double quotes->" "
; Usage:Ctrl+Shift+Q
^+q::
clipSave := Clipboard
Clipboard = ; Empty the clipboard so that ClipWait has something to detect
SendInput, ^c ; Copies selected text
ClipWait
StringReplace, Clipboard, Clipboard, `r`n, `n, All ; Fix for SendInput sending Windows linebreaks
Clipboard := Chr(34) . Clipboard . Chr(34)
Len:= Strlen(Clipboard) ;Set number of characters
SendInput, ^v ; Pastes new text
Send +{left %Len%} ;Re-select text
VarSetCapacity(clipSave, 0) ; Free memory
Clipboard := clipSave ;Restore previous clipboard
Return
; RELOAD
!+^x::
SplashTextOn,,,Updated script,
Sleep,200
SplashTextOff
Reload
Send, ^s
Return
답변4
사용오토핫키위와 같이
^!s::
Send ^c
Sleep 100
Send ^t
Send ^v
Send {Enter}
Return
알아채다: 이전 클립보드 검색을 피하기 위해 'Sleep 100'을 추가했습니다.