Microsoft Office Forums - View Single Post - [Solved] Save as .docx without content controls (just the text that was written in them)

macropod · 09-15-2016, 05:42 PM

Unless you do it manually, one content control at a time, you'll need a macro to delete the content controls. For example:

Code:

Sub Demo()
Application.ScreenUpdating = False
Dim i As Long
With ActiveDocument
  For i = .ContentControls.Count To 1 Step -1
    With .ContentControls(i)
      .LockContentControl = False
      .Delete False
    End With
  Next
End With
Application.ScreenUpdating = True
End Sub

or:

Code:

Sub Demo()
Application.ScreenUpdating = False
With ActiveDocument
  Do While .ContentControls.Count > 0
    With .ContentControls(1)
      .LockContentControl = False
      .Delete False
    End With
  Loop
End With
Application.ScreenUpdating = True
End Sub

Do note that macros can't be stored in docx files, so you'd need to add it to the relevant document's template.