change tab stops on all footers

[mouac01]

I need help to change the tab stops on all the footers in the document.
We upgraded from 2000 to 2003 and somehow that messed up the tab
stops. Here's what I have so far. It only works one page at a time.
Thanks... CM

Sub Macro1()

Dim objSection As Section

For Each objSection In ActiveDocument.Sections
With objSection.Footers(wdHeaderFooterPrimary)
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
If Selection.HeaderFooter.IsHeader = True Then
ActiveWindow.ActivePane.View.SeekView =
wdSeekCurrentPageFooter
Else
ActiveWindow.ActivePane.View.SeekView =
wdSeekCurrentPageHeader
End If
Selection.MoveUp Unit:=wdLine, Count:=1
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.MoveDown Unit:=wdLine, Count:=10, Extend:=wdExtend
ActiveDocument.DefaultTabStop = InchesToPoints(0.5)
With Selection.ParagraphFormat
.TabStops.ClearAll
.TabStops.Add Position:=InchesToPoints(3.25),
Alignment:=wdAlignTabCenter, Leader:=wdTabLeaderSpaces
.TabStops.Add Position:=InchesToPoints(6.5),
Alignment:=wdAlignTabRight, Leader:=wdTabLeaderSpaces
.LeftIndent = InchesToPoints(0)
.RightIndent = InchesToPoints(0)
.FirstLineIndent = InchesToPoints(0)
.SpaceBeforeAuto = False
.SpaceAfterAuto = False
End With
End With
Next

End Sub