Trying to write a sub to reset all content controls to its original status, I met the error 424 on the code : ct1.Range.Text = ""



Could you please help me out, many thanks.

the complete code as below:

Sub ResetCC()
Dim ctl As ContentControl
Dim String1 As String
For Each ctl In ActiveDocument.ContentControls
If ctl.Type = wdContentControlRichText Then

ct1.Range.Text = ""

End If
Next
End Sub

ctl is different to ct1
The lowercase letter L is not the same as the numeral 1

__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia

thanks a ton. You have sharp eyesight.