Copy Text only of a Content Control

gmayor · #4 07-28-2016, 08:59 PM

In that case you will need a macro. The following should do the job, copying the formatted text of the content control containing the cursor to the clipboard.

Code:

Sub CopyCC_Content()
Dim oCC As ContentControl
Dim oRng As Range
    On Error GoTo lbl_Exit
    For Each oCC In ActiveDocument.ContentControls
        If Selection.InRange(oCC.Range) Then
            Set oRng = oCC.Range
            oCC.Delete
            oRng.FormattedText.Copy
            ActiveDocument.Undo 1
            Exit For
        End If
    Next oCC
lbl_Exit:
    Exit Sub
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Content Control Copy - Copies Data and CC itself	shammi_raj	Word	3	03-30-2016 07:01 PM
Is there VBA to paste text into content control?	kintap	Word VBA	2	07-02-2014 07:42 AM
Copy content control entries to next table next page	Mel_Herndon	Word VBA	2	05-22-2014 05:07 PM
Deleting a table from a content control -- preserving the content control	BrainSlugs83	Word Tables	8	11-14-2013 03:06 AM
Templates: automatic text generation from Rich Text content control	Chickenmunga	Word	0	10-01-2008 11:16 AM