Autoit 선택된 문자 복제 함수
DB CAFE
thumb_up 추천메뉴 바로가기
- DBA { Oracle DBA 명령어 > DBA 초급 과정 > DBA 고급 과정 }
- 튜닝 { 오라클 튜닝 목록 }
- 모델링 { 데이터 모델링 가이드 }
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