I'm using the following code:
It will find the first heading but it won't go to the next heading. Anyone have any idea what the problem is?Set R1 = ActiveDocument.GoTo(What:=wdGoToHeading, Which:=wdGoToFirst) R1.Expand Unit:=wdCharacter Set R1 = ActiveDocument.GoTo(What:=wdGoToHeading, Which:=wdGoToNext) R1.Expand Unit:=wdCharacter