Footnotes.Separator (Word)

Returns a Range object that represents the footnote separator.

With ActiveDocument.Footnotes.Separator 
 .Delete 
 .Borders(wdBorderTop).LineStyle = wdLineStyleSingle 
 .ParagraphFormat.RightIndent = InchesToPoints(3) 
End With