Word VBA: Copy contents of one rich text content control to another without losing formatting?

Well, maybe the simplest solution is the best in this case.  If I select and copy the range of the first content control and paste it into the second, and it brings over the formatting just fine.  

SourceProtocol.SelectContentControlsByTitle("Materials").Item(1).Range.Select
Selection.Copy
TargetReport.SelectContentControlsByTitle("Materials").Item(1).Range.Select
Selection.Paste

Select allOpen in new window

Any reason I can't just do it this way?  Is there a more robust method?

That is fine, attempt 1 just sets the text, not the text attributes

The only reason to avoid copy paste is if you don't want to smite the clipboard, so might not be popular if you are giving to others to use. Fine for personal use though

Well, this is in fact for client use, so if there's a way to avoid the clipboard that would be nice.

I can save a couple lines by shortening to:

SourceProtocol.SelectContentControlsByTitle("Methods").Item(1).Range.Copy
TargetReport.SelectContentControlsByTitle("Methods").Item(1).Range.Paste

Select allOpen in new window

But this still uses the clipboard, doesn't it?  

Is there a direct way to copy and paste in one statement without using the clipboard?  For example, I've used this method in Excel, and assumed this does not use the clipboard, but maybe I'm wrong:

mySheet.Range("A1:D4").Copy Destination:= mySheet.Range("E5")

Select allOpen in new window

Any other thoughts would be appreciated.  Thanks

You can use something like this to clear the clipboard...

Public Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function EmptyClipboard Lib "user32" () As Long
Public Declare Function CloseClipboard Lib "user32" () As Long


Sub EmptyClip()
OpenClipboard (0&)
EmptyClipboard
CloseClipboard
End Sub

Select allOpen in new window

Didn't really answer my question.  I don't need to bother with a custom clipboard.