Word Find Heading 1

[Tai Le]

Hi every one,
I'm trying to find all the text in my document, which has format of "Heading
1".
I have recorded a macro to find Heading 1 as follow.
But when I runed this code again, I did not work.
Please help me.

Thanks in advance
Tai Le
---------------------------------
Sub MoveStartandFIND()
'
' MoveStartandFIND Macro
' Macro recorded 10/8/2003 by taile
'
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Style = ActiveDocument.Styles("Heading 1")
Selection.Find.ParagraphFormat.Borders.Shadow = False
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
End Sub