I think the problem you are encountering is more to do with the order you are deleting CCs in a loop. Your code is effectively saying - here is a stack of Content Controls, moving up the stack and delete each one you come to. The problem is that by deleting the first one causes all the others to advance one position along the stack. Therefore the second one you are deleting used to be the third one and the second one is now the first one. Effectively, this makes the code delete every second CC.
There are two ways to avoid this. The first way moves backwards from the end of the line.
Code: Select all
For i = rng.ContentControls.Count to 1 step -1
rng.ContentControls(i).Delete
Next i
The second way keeps deleting the first one until there are none left
Code: Select all
While rng.ContentControls.Count > 0
rng.ContentControls(1).Delete
Wend
Try either of these options inside your story loops.