autoit 선택된 문자 복제 함수
Sub GetSelectedText()
On Error Resume Next
Err.Clear
Dim oText As TextRange
' Get an object reference to the selected text range.
Set oText = Activewindow.Selection.TextRange
' Check to see whether error occurred when getting text object
' reference.
If Err.Number <> 0 Then
MsgBox "Invalid Selection. Please highlight some text " _
& "or select a text frame and run the macro again.", _
vbExclamation
End
End If
' Display the selected text in a message box.
If oText.Text = "" Then
MsgBox "No Text Selected.", vbInformation
Else
MsgBox oText.Text, vbInformation
End If
End Sub