Loop Until End of Document

Guessed · #10 02-15-2023, 07:01 PM

The Selection doesn't move if there is nothing else found so your Selection could only match the document end if the last paragraph was a Heading 5 - and then your 'next paragraph' wouldn't exist. Also, the find command has 'sticky' settings which could be affecting the search direction or other parameters. You do need to be explicit to ameliorate the impact of previous searches. eg

Code:

Sub Create_Collapsed_Heading6()
  Dim aRng As Range, aRngNext As Range
  Set aRng = ActiveDocument.Range
  With aRng.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Forward = True
    .Wrap = wdFindStop
    .Text = ""
    .Style = ActiveDocument.Styles(wdStyleHeading5)
    Do While .Execute = True
      Set aRngNext = aRng.Paragraphs(1).Next.Range
      aRngNext.Style = wdStyleHeading6
      aRngNext.Paragraphs(1).CollapsedState = True
      aRng.Collapse Direction:=wdCollapseEnd
    Loop
  End With
  ActiveDocument.PrintOut
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to loop once through document	PrincessApril	Word VBA	4	04-12-2020 06:06 AM
Loop thru document and create bookmarks	jeffreybrown	Word VBA	3	09-22-2018 06:04 AM
Loop true all opned word document	elbartje	Word VBA	1	06-12-2017 05:27 PM
VB for Word - Need macro to loop each line in a document	NDeane	Word VBA	5	12-22-2015 08:12 PM
Loop through files and Copy Table Row and Paste into Different Document	spiderman1369	Word VBA	2	10-15-2014 08:30 AM