Delete Strikeout Text

i used this loop to delete all strikeout text and was working fine, the problem is that, when it comes to large files, this becomes very slow

is there a more faster and effective way of removing strikeout text?

Thanks

For i = .TextLength To 1 Step -1
   .Select(i, 1)
   If .SelectionFont.Strikeout Then
      .SelectedText = ""
   End If
Next