mieki256's diary

; Copy text from PDF viewer,
; replace CRLF in clipboard with space,
; paste it into deepl.

#include <GUIConstantsEx.au3>

; Dim $pdfviewer = "[CLASS:Chrome_WidgetWin_1]"
Dim $pdfviewer = "[CLASS:AcrobatSDIWindow]"
Dim $deeplclass = "DeepL"
Dim $state

Local $btn1, $btn2
Local $msg

; create GUI window
Local $hGUI = GUICreate("Copy Paste", 280, 70)
$btn1 = GUICtrlCreateButton("Translation", 8, 8, 180, 50)
GUICtrlSetFont($btn1, 18, 700, 0, "Arial")
$btn2 = GUICtrlCreateButton("Exit", 200, 8, 70, 28)
GUISetState()

; HotKeySet("{ESC}", "Terminate")

While 1
    $msg = GUIGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then
        ; Click window close button
        ExitLoop
    EndIf
    If $msg = $btn1 Then
        ; Click button 1
        trans()
    EndIf
    If $msg = $btn2 Then
        ; Click button 2
        ExitLoop
    EndIf
WEnd

GUIDelete($hGUI)
Exit 0

Func Terminate()
    GUIDelete($hGUI)
    Exit 0
EndFunc

Func trans()
    ; Activate PDF viewer
    $state = WinActivate($pdfviewer)
    If $state = 0 Then
        MsgBox(0, "Error", "Error: Not found PDF viewer")
        Exit 0
    EndIf

    Send("^c")  ; send Ctrl+C
    Sleep(500)

    ; Replace CRLF in clipboard with space
    ClipPut(StringReplace(ClipGet(), @CRLF, " "))

    ; Activate DeepL
    $state = WinActivate($deeplclass)
    If $state = 0 Then
        MsgBox(0, "Error", "Error: Not found DeepL")
        Exit 0
    EndIf

    Send("^a")  ; send Ctrl+A
    Sleep(250)
    Send("{DELETE}")  ; Delete key
    Sleep(250)
    Send("^v")  ; send Ctrl+V
EndFunc

1. copypaste_gui.au3 を実行。
2. ボタンが2つ並んだウインドウが表示されるので、適当な位置に置く。
3. Adobe Acrobat Reader DC と、DeepLデスクトップアプリを起動しておく。
4. Acrobat Reader DC で目的のPDFを開く。
5. (重要) DeepLデスクトップアプリ上で、入力欄をクリックしてフォーカスを与えておく。これをしておかないと変な動作になる。
6. PDF上の、翻訳したいテキストを選択して、copypaste_gui.au3 のウインドウの「Translation」をクリック。

import au3.keywords.user.abbreviations
import au3.UserUdfs

autocompleteword.automatic = 1

# set UTF8
code.page=65001
character.set=128

# set SJIS (Japanese)
# code.page=932
# character.set=128

# code.page=0
# character.set=204

# font setting
if PLAT_WIN
    technology=1
    font.monospace=font:HackGen,size:16
    font.base=$(font.monospace)
    font.small=$(font.monospace)
    font.comment=$(font.monospace)
    font.text=$(font.monospace)
    font.text.comment=$(font.monospace)
    font.embedded.base=$(font.monospace)
    font.embedded.comment=$(font.monospace)
    font.vbs=$(font.monospace)

# .au3 style
# Comment line
style.au3.1=fore:#008000
# Comment block
style.au3.2=fore:#008000

tabbar.visible=1
tabbar.multiline=1
statusbar.visible=1
title.full.path=1

# line number
line.margin.visible=1
line.margin.width=6+
margin.width=4

# tab size
tabsize=4
indent.size=4
use.tabs=0

# recent file
save.recent=1
save.session=1

load.on.activate=1
#save.on.deactivate=1
are.you.sure.on.reload=1

virtual.space=1

visible.policy.strict=1
visible.policy.lines=4

# fold.symbols=3

# shortcut keys
user.shortcuts=\
$(user.shortcuts)\
Ctrl+Space|IDM_COMPLETEWORD|\
Alt+Up|2620|\
Alt+Down|2621|

import au3.keywords.user.abbreviations
import au3.UserUdfs

autocompleteword.automatic = 1

# set UTF8
code.page=65001
character.set=128

# set SJIS (Japanese)
# code.page=932
# character.set=128

# code.page=0
# character.set=204

# font setting
if PLAT_WIN
    technology=1
    font.monospace=font:HackGen,size:16
    font.base=$(font.monospace)
    font.small=$(font.monospace)
    font.comment=$(font.monospace)
    font.text=$(font.monospace)
    font.text.comment=$(font.monospace)
    font.embedded.base=$(font.monospace)
    font.embedded.comment=$(font.monospace)
    font.vbs=$(font.monospace)

# .au3 style
# Comment line
style.au3.1=fore:#008000
# Comment block
style.au3.2=fore:#008000

tabbar.visible=1
tabbar.multiline=1
statusbar.visible=1
title.full.path=1

# line number
line.margin.visible=1
line.margin.width=6+
margin.width=4

# tab size
tabsize=4
indent.size=4
use.tabs=0

# recent file
save.recent=1
save.session=1

load.on.activate=1
#save.on.deactivate=1
are.you.sure.on.reload=1
virtual.space=1
visible.policy.strict=1
visible.policy.lines=4
# fold.symbols=3

# shortcut keys
user.shortcuts=\
$(user.shortcuts)\
Ctrl+Space|IDM_COMPLETEWORD|\
Alt+Up|2620|\
Alt+Down|2621|

• Ctrl+ Spaceを補完キーにした。
• Alt+Up、Alt+Down に、選択範囲の上下移動を割り当て。