Removing Content Control Quick Part in Microsoft Word

Question

I have a VBA macro that will auto populate a document with content control quick parts that have blocks of text with other content controls within them.

I'm attempting to write a VBA macro that will sift through an entire document to remove the quick part content control box around each inserted quick part so it no longer exists but still keeps the contents that were produced by the quick part and also not remove the content controls within the existing quick part.

So far I have only been able to create a macro that would remove all content controls but I don't know the specific code that would target removing the quick part only but still keeping the quick part contents.

FYI, I can manually do this by right clicking anywhere inside the quick part(besides a content control within the quick part) and it will allow me to remove the quick part content control.

Answer 1

Something like:

Sub removeBuildingBlockCCs()
Dim cc as Word.ContentControl
For Each cc In ActiveDocument.ContentControls
  If cc.Type = wdContentControlBuildingBlockGallery Then
    cc.Delete
  End If
Next

Incidentally, to use a popup context menu when using the Macro recorder, you can usually use either the "context menu" key on a Windows keyboard (looks like a context menu, mine is to the right of the Windows key). AUIU you are supposed to be able to use shift-F10 to do the same, but it doesn't seem to work here, don't know why.