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

addFullStop = False
noteNumberNotSuperscript = True

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
    Selection.MoveStart , 1
    Selection.End = Selection.start + 1
    If Selection.Text = " " Then Selection.Delete
    
  ' 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