Loop stuck

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

JayCharms - 04 Jun 2007 16:35 GMT

The following loop (used to tighten up pagraphs, since I need an
accurate first character later in the process) gets stuck as soon as
the style condition ("if parchk.style=..."is met.

Dim par as paragraph
Dim parchk as range
Dim newtext as string
Dim oldstyle as style
For Each par In ActiveDocument.Paragraphs
Set parchk = par.Range
If parchk.Style = "BNormal" Or parchk.Style = "Summary" Or
parchk.Style = "bucknormal" Then
Set oldstyle = parchk.Style
newtext = Trim(parchk.Text)
par.Range.Text = newtext
par.Range.Style = oldstyle
End If
Next

If I replace the "For each..." with "For x=1 to
activedocument.paragraphs.count", setting
parchk=ActiveDocument.paragraphs(x), the loop processes all the
paragraphs but the style ends up incorrect. Taking out
par.range.style=oldstyle also doesn't work. Any ideas would be
appreciated.

Reply to this Message

Bear - 04 Jun 2007 17:15 GMT

JayCharms:

This is one of the things about VBA and the Word document object model that
baffles me from time to time. Some operations on a collection either cause
the collection to be rebuilt or the object in question to be reindexed or
something.

At any rate, I've grown accustomed to just accepting that I have to use "For
x = 1 to activedocument.paragraphs.count" sorts of loops sometimes.

Bear

Signature

Windows XP, Word 2000

Reply to this Message

David Sisson - 04 Jun 2007 22:39 GMT

Try running the loop backwards.

For x = activedocument.paragraphs.count to 1 step -1

When the object is set in the collection (ActiveDocument.Paragraphs ),
and when you delete paragraphs, the collection isn't updated in the
loop. So your document is getting shorter but your loop doesn't know
that, hence the error.

Reply to this Message