Delete Footnote Separators In Word 2010

[Maciej]

Hey,

I insert a lot of footnotes in Word, and I don't want the separetors. But I find that I just can't delet the footnote separators in it. It's annoying. Is there a way to quickly delete them ? Thanks in advance.

 

[Wolfie]

Hi Maciej,

is this any help?:

https://support.office.com/en-us/ar...eparator-4183cd36-a421-4dba-aa4c-fa511bba4b3f

 

[Kreymily]

Hi, Maciej,

As the way Wolfie give above, you can delete the footnote separators, but there will be a blank line left which you can't delete directly.

If you also want to delete the blank line, after delete the footnote separators, you need to choose “Multiple” for “Line spacing”, then set the value at “0.06”in "Paragraph" group.

You can also use VBA to do that for you, below is the macro:

Sub DeleteTheFootnoteSeparator()

  If ActiveWindow.View.SplitSpecial = wdPaneNone Then
    ActiveWindow.ActivePane.View.Type = wdNormalView
  Else
    ActiveWindow.View.Type = wdNormalView
  End If
 
  If ActiveWindow.ActivePane.View.Type = wdPrintView Or ActiveWindow.ActivePane.View.Type = wdWebView Or _
    ActiveWindow.ActivePane.View.Type = wdPrintPreview Then
    ActiveWindow.View.SeekView = wdSeekFootnotes
  Else
    ActiveWindow.View.SplitSpecial = wdPaneFootnotes
  End If
 
  '  Delete the footnote separator.
  ActiveWindow.View.SplitSpecial = wdPaneFootnoteSeparator
  Selection.MoveRight Unit:=wdCharacter, Count:=1
  Selection.TypeBackspace
  Selection.TypeBackspace
 
  '  Eliminate the blank line after deleting the footnote separator.
  With Selection.ParagraphFormat
    .LineSpacingRule = wdLineSpaceMultiple
    .LineSpacing = LinesToPoints(0.06)
  End With

  '  Delete the footnote continuation separator.
  ActiveWindow.View.SplitSpecial = wdPaneFootnoteContinuationSeparator
  Selection.MoveRight Unit:=wdCharacter, Count:=1
  Selection.TypeBackspace
  Selection.TypeBackspace

  '  Eliminate the blank line after deleting the footnote continuation separator.
  With Selection.ParagraphFormat
    .LineSpacingRule = wdLineSpaceMultiple
    .LineSpacing = LinesToPoints(0.06)
  End With
 
  If ActiveWindow.View.SplitSpecial = wdPaneNone Then
    ActiveWindow.ActivePane.View.Type = wdPrintView
  Else
    ActiveWindow.View.Type = wdPrintView
  End If
End Sub

More details at:

https://www.datanumen.com/blogs/4-methods-remove-footnote-endnote-separator-word-document/

Good luck.

 

[Jscott09]

Wow! Great method learned from the upstairs reply.

 

[Maciej]

Forget to say Thanks! It's amazing!