Footnotes.ContinuationSeparator (Word)

Returns a Range object that represents the footnote continuation separator.

With ActiveDocument.Footnotes.ContinuationSeparator 
 .Delete 
 .InsertBefore "____" 
End With