Microsoft Office Forums - View Single Post - MS Word Macro - Infinite Spinning Wheel

Guessed · 12-03-2023, 11:02 PM

Try this version

Code:

Sub B_A_RemoveRT_ExceptMe()
  Dim i As Integer, oCC As ContentControl, sTag As String
  
  For i = ActiveDocument.ContentControls.Count To 1 Step -1
    Set oCC = ActiveDocument.ContentControls(i)
    If oCC.Type = wdContentControlRichText Then
      sTag = " " & oCC.Tag & " "
      If InStr(sTag, " Me ") > 0 Then
        oCC.LockContentControl = False
        oCC.Range.Bookmarks("\Page").Range.Delete
      End If
    End If
  Next i
lbl_Exit:
  Exit Sub
End Sub

Note that there are scenarios where you might see unintended results - such as you delete a section break which changes page setups and therefore page content gets deleted that you didn't think about. Also, if the Rich Text Content Control spans across a page then I would expect an error or only some of its contents getting deleted.