HTML 2 WORD

GroupAdd auo_gruop, ahk_exe msedge.exe 
GroupAdd auo_gruop, ahk_exe chrome.exe
GroupAdd auo_gruop, ahk_exe snipaste.exe
GroupAdd auo_gruop, ahk_exe mspaint.exe
 
#IfWinActive  ahk_group auo_gruop
{
    ; 添加到word
    !`::add2word()
    ; 查词
    `::searchWord()
}
 
add2word(){
    ; 将图片复制到粘贴板
    Send ^c
    ; t 用来存放标题
    InputBox, title, TITLE, , , 600,100,50,100
    ; InputBox, content, CONTENT, , , 600,100,50,100
    if ErrorLevel
        Return
    else
       ; 如果标题为空,则返回
        if title=
        {
            Return
        }
        insertTitle(title)
        insertPic()
}
 
insertTitle(real_title){
    ; active the document was opened
    oWord := ComObjActive("Word.Application")
    oWord.Selection.TypeParagraph
    ; add some split while line
    oWord.Selection.TypeText("# "+real_title)
    ; save the active word document
    oWord.ActiveDocument.Save
}
 
insertPic(){
    ; active the document was opened
    oWord := ComObjActive("Word.Application")
    oWord.Selection.TypeParagraph
    ; paste the clipboard to the word document
    oWord.Selection.Paste
    oWord.Selection.InsertBreak 
    ; save the active word document
    oWord.ActiveDocument.Save
    ToolTip, add
    SetTimer, RemoveToolTip, -1000
    return
    RemoveToolTip:
    ToolTip
    return
}
 
searchWord(){
    Click right
    SendInput, {S}
    SendInput, {Enter}
}
 
 
#s::Suspend