Save as .docx without content controls (just the text that was written in them)

macropod · #3 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.

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Rich text/Plain text Content Controls in Template	michael.fisher5	Word	9	11-19-2014 06:36 AM
Turning a manual written Table of content into automatic one.	amronaxon	Word	3	09-20-2014 11:29 AM
Moving between Rich text content controls	Sammie0Sue	Word	4	03-12-2014 01:43 AM
Rich Text Content Controls: Formatting?	tinfanide	Word VBA	8	03-04-2013 04:15 AM
Animation: text appears as if written by pen	ionas.iona	PowerPoint	0	03-31-2011 05:23 PM