For loop not moving to next paragraph

Guessed · #2 11-14-2022, 12:32 AM

Whenever you are iterating through objects it is not good to delete any objects that are in the remainder of that collection.

You can fix it by moving backwards so that any deletions don't matter because the next loop only hits paragraphs you haven't changed yet.

Code:

Private Sub secHeading()
  Dim para As Paragraph, iPar As Long

  For iPar = ActiveDocument.Paragraphs.Count - 1 To 1 Step -1
    Set para = ActiveDocument.Paragraphs(iPar)
    If Trim(UCase(para.Range.Words(1))) = "RCW" Then
      With para.Range
          .Collapse (wdCollapseEnd)
          .Move Unit:=wdCharacter, Count:=-1
          .Delete
          .InsertAfter ("  --  ")
          .Style = "Heading 1"
      End With
    End If
  Next
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Loop to Insert Comments Moving Slowly	AntCTAZ	Word VBA	1	11-02-2022 07:17 PM
Inserting text from a Userform into a Field in a paragraph in a paragraph in a word document	storemaz	Word VBA	1	03-13-2020 08:11 AM
Moving up/ down a paragraph within a Table Cell by using keyboard	Joey Cheung	Word Tables	1	08-12-2014 05:19 PM
Moving cell content without moving borders & shading?	unittwentyfive	Excel	1	10-25-2013 12:56 PM
Moving formula range multiple cells when moving sum over one cell	FraserKitchell	Excel	4	02-26-2010 10:38 AM