Textbox & Edit Paste text

[MikeWM]

Hi,

I have a word (2003) document containing many Activex textboxes which are used to apply a character limit to the users input. Sometimes users want to paste data into the textbox from another source – Ctrl V – works fine, but if they try to do it via the Edit – Paste – menu then the textbox is deleted and replaced with the pasted text.

I tried intercepting the menu option with a selection.paste macro, and also a sendkeys (ctrl v) macro but neither of them worked. Selection.paste still deletes the texbox, and the sendkeys macro allowed paste to work in the textbox but not the rest of the document (other things need to be pasted in the document also). Any ideas?



Many thanks.

[MikeWM]

Sub autoopen()
Application.CommandBars("Edit").Controls.Item("Paste").OnAction = "catcher1"
Application.CommandBars("Edit").Controls.Item("Paste Special...").OnAction = "catcher2"
End Sub
Public Sub catcher1()
SendKeys "^{v}"
End Sub
Public Sub catcher2()
MsgBox ("This option has been disabled by the administrator. Please use the shortcut keys 'ctrl+v' to paste.")
End Sub