go to next heading, if there is one

[Tommes93]

Hi as in the title, my code is going through a word document, heading by heading.
and i need to know if the next heading is the last heading, because with every heading i am opening a <case> in XML and i need to close them at the end</case>.
So if you have an idea, let me know.
thanks!

[macropod]

Is this for a particular Heading Style, or for any Heading Style?

[Tommes93]

Originally Posted by macropod

Is this for a particular Heading Style, or for any Heading Style?

For any.
And an other question: how do i select a header, to print it somewhere else?

i used to write
Selection.GoTo what:=wdGoToHeading, which:=wdGoToNext
Selection.HomeKey Unit:=wdLine
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
but what if the header has two or three lines?
Do i need to take "Selection."?
Thanks

[macropod]

The basic tagging can be done with Find/Replace code like:

Sub TagHeadings()
Dim i As Long
For i = 1 To 9
  With ActiveDocument.Range
    With .Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Text = ""
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindStop
      .Format = True
      .MatchWildcards = False
      .Style = "Heading " & i
      .Execute
    End With
    Do While .Find.Found
      .InsertBefore "<case>"
      .Characters.Last.InsertBefore "</case>"
      .Collapse wdCollapseEnd
      .Find.Execute
    Loop
  End With
Next
End Sub

As for printing somewhere else, there's no need to select anything. In the above code, for example, you could output each heading to another location by adding code within the Do While ... Loop. That would output the headings by level, not by order within the document. The simplest method for outputting them in order, is to add a Table of Contents to the document - right where you want them to appear.

[fumei]

Do While .Find.Found
.InsertBefore "<case>"
.Characters.Last.InsertBefore "</case>"
.Collapse wdCollapseEnd
.Find.Execute
Loop

Would that not be InsertAfter? Or am I missing something....again.

[macropod]

Hi Gerry,

I was intentionally inserting the "</case>" into the end of the heading paragraph, rather than into the start of the one after it; otherwise, I'd have just used .InsertAfter without reference to .Characters.Last.

I also deliberately implement a loop in anticipation that the OP might want to add some other content in or around either or both of the "<case>" and "</case>" strings (e.g. the heading level and/or the index # of that heading). It would actually be more efficient to use ReplaceAll for what has been specified.