Pop Up Menus and File Names

[cwalshe]

Hi there,

I'd like to have a pop up menu that will allow the following:

* if text is highlighted, allow me to copy the text and also the file path (or webaddress) of where it is coming from. I'd rather not change the original Copy function, but if I knew the code for it, then well and good.

*Also I'd like to store the text and original document filepath in either a database or word doc.

Any ideas.

Thx,

Cormac.

 

[vb5prgrmr]

Private Sub Text1_MouseDown(Button As Integer, _
Shift As Integer, X As Single, Y As Single)

Dim StartPos As Integer
Dim SelectedLen As Integer
Dim SelectedText As String

If Button = vbRightButton Then

StartPos = Text1.SelStart + 1
SelectedLen = Text1.SelLength

SelectedText = Mid(Text1.Text, StartPos, SelectedLen)

MsgBox SelectedText

End If

End Sub