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