This is three very simple macros, which implement a secondary clipboard. While not everyone would use it, I have found to be quite useful.
Example: I use Ctrl+C, Ctrl+V and Ctrl+X for the Windows clipboard, and map these macros in as Ctrl+Shift+C, Ctrl+Shift+V and Ctrl+Shift+X.
‘ Three simple macros to implement a secondary clipboard
‘ Global to act as clipboard
Dim g_lpszSecondClipBoard
g_lpszSecondClipBoard = “”
Sub SecondaryClipBoardCut()
‘DESCRIPTION: Performs a cut of current selection to a secondary clipboard.
g_lpszSecondClipBoard = ActiveDocument.Selection.Text
ActiveDocument.Selection.Text = “”
End Sub
Sub SecondaryClipBoardCopy()
‘DESCRIPTION: Performs a copy of current selection to a secondary clipboard.
g_lpszSecondClipBoard = ActiveDocument.Selection
End Sub
Sub SecondaryClipBoardPaste()
‘DESCRIPTION: Performs a paste of secondary clipboard to the current selection.
ActiveDocument.Selection = g_lpszSecondClipBoard
End Sub