Continuous Loop

macropod · #1 01-06-2011, 08:44 PM

Hi cksm4,

Assuming you're appending rows, try the following:

Code:

Sub Test()
With ActiveDocument.Range
  With .Find
    .ClearFormatting
    .Text = "DO NOT PUBLISH ACTIVITY"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindStop
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Execute
  End With
  Do While .Find.Found
    MsgBox .Text
    .MoveStart Unit:=wdRow, Count:=-1
    .MoveEnd Unit:=wdRow, Count:=3
    .Font.Hidden = True
    .Collapse wdCollapseEnd
    .Find.Execute
  Loop
End With
End Sub

I've kept the -1 and +3 moves you originally had, but they might need adjustment to target the correct ranges.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How do you imbed a continuous play mp3 into a ppt	Joe Damore	PowerPoint	2	09-15-2010 11:13 PM
Excel recovery loop problem	fatman57	Excel	1	09-08-2010 03:57 AM
Creating text that scrolls continuous	Mogogo	PowerPoint	0	02-04-2010 11:41 AM
continuous sound	boutells	PowerPoint	2	11-27-2009 12:06 AM
Outlook 2003 restart in a loop	Stegel	Outlook	0	06-29-2007 12:34 PM