How to disable copy/paste in Word 2003

[Raymond]

Hi,

I am working on a word 2003 file and try to disable the copy/paste features
(I mainly concern about the copy feature at this moment). I found the
following coding in Web but found that it does not work.

I think the problem is caused by there is no "OnKey" for Application object.

Does anyone know how to do this task?

Thanks in advance,
Raymond

Sub ToggleCutCopyAndPaste(Allow As Boolean)
'Activate/deactivate cut, copy, paste and pastespecial menu items
Call EnableMenuItem(21, Allow) ' cut
Call EnableMenuItem(19, Allow) ' copy
Call EnableMenuItem(22, Allow) ' paste
Call EnableMenuItem(755, Allow) ' pastespecial

'Activate/deactivate drag and drop ability
Application.CellDragAndDrop = Allow

'Activate/deactivate cut, copy, paste and pastespecial shortcut keys
With Application
Select Case Allow
Case Is = False
.OnKey "^c", "CutCopyPasteDisabled"
.OnKey "^v", "CutCopyPasteDisabled"
.OnKey "^x", "CutCopyPasteDisabled"
.OnKey "+{DEL}", "CutCopyPasteDisabled"
.OnKey "^{INSERT}", "CutCopyPasteDisabled"
Case Is = True
.OnKey "^c"
.OnKey "^v"
.OnKey "^x"
.OnKey "+{DEL}"
.OnKey "^{INSERT}"
End Select
End With
End Sub

 

[Paul Herber]

Hi,

I am working on a word 2003 file

Ask in a Word group, this one is for Visio.

 

[Raymond]

Sorry.

Ask in a Word group, this one is for Visio.