Sub FootnoteEndnoteFiddle()
' Paul Beverley - Version 06.03.26
' Tidies up start/end of each footnote or endnote

addFullStop = False
noteNumberNotSuperscript = False
' removeLeadingSpace = True
removeLeadingSpace = False

Set rngWas = Selection.Range.Duplicate
For myRun = 1 To 2
  numNotes = 0
  If myRun = 1 Then
    numNotes = ActiveDocument.Footnotes.count
  Else
    myRun = 2
  End If
  If myRun = 2 Then numNotes = ActiveDocument.Endnotes.count
  For i = 1 To numNotes
    If myRun = 1 Then
      Set rng = ActiveDocument.Footnotes(i).Range
    Else
      Set rng = ActiveDocument.Endnotes(i).Range
    End If
    rng.Select
  ' Remove leading space
    Selection.Collapse wdCollapseStart
    Selection.HomeKey wdLine
    If noteNumberNotSuperscript = True Then
      Selection.MoveEnd , 1
      Selection.Range.Font.Superscript = False
      Selection.Collapse wdCollapseStart
    End If
    If removeLeadingSpace = True Then
      Selection.MoveStart , 1
      Selection.End = Selection.start + 1
      If Selection.text = " " Then Selection.Delete
    End If
    
  ' Remove trailing 'things'
    rng.Collapse wdCollapseEnd
    rng.MoveStart , -1
    Do While InStr(" " & vbTab & vbCr, rng) > 0
      rng.Delete
      rng.MoveStart , -1
      DoEvents
    Loop
  
  ' Add full stop if none
    If addFullStop Then
      rng.Collapse wdCollapseEnd
      rng.MoveStart , -1
      If InStr(ChrW(8217) & ChrW(8221), rng) > 0 Then
        rng.MoveStart , -1
        rng.MoveEnd , -1
      End If
      If UCase(rng) <> LCase(rng) Then rng.InsertAfter text:="."
      DoEvents
    End If
  Next i
Next myRun
rngWas.Select
End Sub