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

I'm using Word 2010.  Trying to use Word VBA to copy the contents of one rich text content control to another rich text content control in a second document.  Using this method below.  But the destination CC does not retain the formatting (specifically list numbering, bold, italics) that were in the source CC.  
TargetReport.SelectContentControlsByTitle("Materials").Item(1).Range.Text = _
SourceProtocol.SelectContentControlsByTitle("Materials").Item(1).Range.Text

Open in new window

Below is the result I get.
sourcecc.PNGdestinationcc.PNGDo I need to be using a different method to accomplish this without losing the formatting?

Thanks!
Bryce BassettFreelance VBA programmerAsked:
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Bryce BassettFreelance VBA programmerAuthor Commented:
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

Open in new window

Any reason I can't just do it this way?  Is there a more robust method?
DrTribosCommented:
That is fine, attempt 1 just sets the text, not the text attributes
DrTribosCommented:
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
Determine the Perfect Price for Your IT Services

Do you wonder if your IT business is truly profitable or if you should raise your prices? Learn how to calculate your overhead burden with our free interactive tool and use it to determine the right price for your IT services. Download your free eBook now!

Bryce BassettFreelance VBA programmerAuthor Commented:
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

Open 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")

Open in new window

Any other thoughts would be appreciated.  Thanks
DrTribosCommented:
Yup. It use clipboard. Google for vba clipboard and you should find the code for a custom clipboard. . .  Sorry on phone right now

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
Subodh Tiwari (Neeraj)Excel & VBA ExpertCommented:
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

Open in new window

Bryce BassettFreelance VBA programmerAuthor Commented:
Didn't really answer my question.  I don't need to bother with a custom clipboard.
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft Word

From novice to tech pro — start learning today.