Hi

I think you'll need to clarify what you're doing and what you're aiming for
before we can help you.

Headings are the short paragraphs that introduce a new part of content and
are generally styled with Heading 1, Heading 2, ... Heading 9.

Headers are the text at the top (well, generally the top) of a page that is
the same on each page and might include a field to generate a page number.
They are closely related to footers, which provide the same text at the
bottom of each page. Headers and footers are properties of a Section, of
which your document as at least one. And each Section has exactly 3 headers
and 3 footers (first page, odd and even) whether or not you've chosen to
display all 3.

So, are we talking about headings or headers?

And, what version of Word are you using?

Hope this helps.

Shauna Kelly.  Microsoft MVP.
http://www.shaunakelly.com/word

So i've written this loop to go through and find all paragraphs that are
Heading 2 and then pulls out all text form additonal paragraphs until a new
Heading 2 is found.  I cant seem to figure out how to pull out the following
text as a table instead of just paragraph text.

So.. The Outline of a page area looks similar to this

Heading 2 Text
________________

But My Output is this

Heading 2 Text
text1 text2 text3 TEXT text4 text5 text6

Here's the loop Ive written to get this far

       Dim H2ParaFound As Boolean = False
       Dim ExtraTitleChunks As Integer = 0
       Dim NrmlParaChunks As Integer = 0
       Dim tempPgHdrText As String = String.Empty
       Dim tempParaText As String = String.Empty
       Dim txtfound As Boolean = False

       For Each p As Word.Paragraph In doc.Paragraphs
           Dim stype As String = CType(p.Style, Word.Style).NameLocal
           If stype = "Heading 2" Then
'if this is the second part of a title
               If H2ParaFound = True And ExtraTitleChunks > 0 Then
                   tempPgHdrText &= "," & p.Range.Text
                   H2ParaFound = True
                   ExtraTitleChunks += 1
                   NrmlParaChunks = 0
               Else
'First part of a title found
                   If txtfound = True Then
                       Me.txtResults.Text &= tempParaText & vbCrLf
                       tempParaText = String.Empty
                       txtfound = False
                   End If
                   tempPgHdrText = "Page Title: " & p.Range.Text
                   H2ParaFound = True
                   ExtraTitleChunks += 1
                   NrmlParaChunks = 0
               End If
           Else
'if this is not Heading 2
               If H2ParaFound = True Then
                   Me.txtResults.Text &= tempPgHdrText & vbCrLf
                   tempPgHdrText = String.Empty
                   tempParaText = p.Range.Text
                   txtfound = True
                   H2ParaFound = False
                   ExtraTitleChunks = 0
                   NrmlParaChunks += 1
               Else
                   tempParaText &= p.Range.Text
                   txtfound = True
                   tempPgHdrText = String.Empty
                   H2ParaFound = False
                   ExtraTitleChunks = 0
                   NrmlParaChunks += 1
               End If
           End If
       Next
       If tempParaText.Length > 0 Then
           Me.txtResults.Text &= tempParaText & vbCrLf
           tempParaText = String.Empty
       End If

Any thoughts or insight?

DrewG

I'm starting to see why pople complain about the word Doc Obj Model