Replicate the copy/paste function, without involving the clipboard

macropod · #1 11-08-2020, 01:40 PM

Why not create a custom undo record? For example:

Code:

Sub Demo()
Dim objUndo As UndoRecord
Set objUndo = Application.UndoRecord
With objUndo
  If .IsRecordingCustomRecord = False Then
  .StartCustomRecord ("Demo")
  'insert whatever processing you want to perform here
  .EndCustomRecord
End With
ActiveDocument.Undo
End Sub

alex100 · #2 11-09-2020, 01:59 AM

Quote:

Originally Posted by macropod

Why not create a custom undo record?

Well, this may work too, but the copy/paste function that I'd like to replicate is already integrated in a much larger macro. Switching to another solution would probably involve some other changes to this macro, and I'd like to avoid that as much as possible. Not to mention I never used Undo Record before...

The 'FormattedText' property seems perfect for what I need, only that I also need to be able to delete the original content prior to writing it back to the document, just like the copy/paste function works... you copy something with Ctrl + C, and then you are free to delete that content without automatically deleting it from the clipboard too. That's what I'm looking for.

Alex

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Need to copy specific formated text from Word and paste from clipboard into a console application	Userx	Word VBA	0	10-09-2020 05:58 AM
How to paste as a single para from clipboard having multiple paragraph	PRA007	Word VBA	8	12-04-2015 04:48 AM
Replicate a function from MS Visio?	CamSTAR1	Excel	0	08-20-2013 07:13 PM
If Function Challenge involving date	no1texan	Excel	6	07-15-2012 12:58 PM
copy without using clipboard?	g48dd	Excel	3	07-16-2011 10:28 PM