Opt("MustDeclareVars", 1)
Opt("WinTitleMatchMode", 1)
Opt("WinWaitDelay", 100)
Opt("TrayIconDebug", 1)

Dim $Wpos, $Xkoordinata, $Ykoordinata, $sleep = "100", $Mpos

While 1
    $Mpos = MouseGetPos()
    If  WinActive("WordWeb Pro") Then
        Sleep($sleep)
        Send("^c")
        $Wpos = WinGetPos("WordWeb Pro")
        $Xkoordinata = $Wpos[0] + 490
        $Ykoordinata = $Wpos[1] + 56
        MouseMove($Xkoordinata, $Ykoordinata, 0)
        MouseClick("left")
        Sleep(500)
        If WinExists("WordWeb Pro", "WordWeb failed to use") Then
            WinActivate("WordWeb Pro", "WordWeb failed to use")
            WinWaitActive("WordWeb Pro", "WordWeb failed to use")
            ControlFocus("WordWeb Pro", "WordWeb failed to use", "Button1")
            ControlClick("WordWeb Pro", "WordWeb failed to use", "Button1")
        EndIf
        $Xkoordinata = $Wpos[0] + 548
        $Ykoordinata = $Wpos[1] + 10
        MouseMove($Xkoordinata, $Ykoordinata, 0)
        Do
            Sleep($sleep)
        Until WinActive("WordWeb Pro") = 0
        MouseMove($Mpos[0], $Mpos[1], 0)
        Opt("WinTitleMatchMode", 2)
        If WinActive("Microsoft Word") Then
            MouseClick("left")
            $Wpos = WinGetPos("Microsoft Word")
            $Xkoordinata = $Wpos[0] + 365
            $Ykoordinata = $Wpos[1] + 105
            MouseMove($Xkoordinata, $Ykoordinata, 0)
            MouseClick("left")
            MouseMove($Mpos[0], $Mpos[1], 0)
        EndIf
        Opt("WinTitleMatchMode", 1)
    EndIf
    Sleep(500)
WEnd