Skip table when processing document by paragraph

[Robie]

Hi

I am processing/reading a Word document paragraph at a time. It has lots of table in it.
Is there any way I can skip the tables as soon as I read the 1st paragraph in the table (using iPara.Range.Information(wdWithInTable)) and start reading the document after the table?

Thanks.
Robie

[HansV]

Something like this:

Code: Select all

Sub LoopParagraphs()
    Dim par As Paragraph
    Set par = ActiveDocument.Paragraphs(1)
    Do
        ' Process paragraph
        Debug.Print par.Range.Words(1)
        ' Are we there yet?
        If par.Range.End = ActiveDocument.Range.End Then
            Exit Do
        End If
        ' If table, skip the rest
        If par.Range.Information(wdWithInTable) Then
            Do While par.Range.Information(wdWithInTable)
                Set par = par.Next
            Loop
        Else
            Set par = par.Next
        End If
    Loop
End Sub

[Robie]

Something like this:

Code: Select all

Sub LoopParagraphs()
    Dim par As Paragraph
    Set par = ActiveDocument.Paragraphs(1)
    Do
        ' Process paragraph
        Debug.Print par.Range.Words(1)
        ' Are we there yet?
        If par.Range.End = ActiveDocument.Range.End Then
            Exit Do
        End If
        ' If table, skip the rest
        If par.Range.Information(wdWithInTable) Then
            Do While par.Range.Information(wdWithInTable)
                Set par = par.Next
            Loop
        Else
            Set par = par.Next
        End If
    Loop
End Sub

Thank you - that does it.

[ChrisGreaves]

I am processing/reading a Word document paragraph at a time. It has lots of table in it.
Is there any way I can skip the tables as soon as I read the 1st paragraph in the table (using iPara.Range.Information(wdWithInTable)) and start reading the document after the table?

Hi Robie.
I looked at this for a slew of document layout macros I wrote 10+ years ago. If you want, I can dig out the code.

In essence, Iwrote a slew of macros to AutoFormat, AutoFit, Rebuild tables and devised a scheme to allow the user to nominate, by the Selection, whether all tables in the range were to be processed, only those at the start/end of the selection, or all those BUT the ones at the start-end.

In a similar manner I made the same code work for paragraphs, that is, apply an action to all paregraphs in the selection, only the start/end, or all BUT the start/end.
Cheers
Chris