markierter Text im anderen Programm kopieren
21.02.2008 01:09:17
Franc
mein Makro öffnet ein Programmfenster, markiert per doppelklick ein Wort und das soll nun in die zwischenablage und einer Variable zugeordnet werden. Wie geht das?
Das andere Programm ist entweder der IE oder ein x beliebiges Programm.
Mit Application.SendKeys ("^c") gehts nicht.
Option Explicit
Private Declare Function SetCursorPos Lib "user32" (ByVal _
x As Long, ByVal y As Long) As Long
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags _
As Long, ByVal dx As Long, ByVal dy As Long, ByVal _
cButtons As Long, ByVal dwExtraInfo As Long)
Const MOUSEEVENTF_MOVE = &H1
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10
Const MOUSEEVENTF_MIDDLEDOWN = &H20
Const MOUSEEVENTF_MIDDLEUP = &H40
Const MOUSEEVENTF_ABSOLUTE = &H8000
Private Sub Mausklick()
SetCursorPos 200, 200
Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
End Sub