Sub InsertFootnote()
Dim Rng As Range: Set Rng = Selection.Range
Application.Dialogs(wdDialogInsertFootnote).Execute
Rng.End = Rng.End + 1: Rng.InsertBefore "[": Rng.InsertAfter "]": Rng.Style = wdStyleFootnoteReference
Selection.Start = Selection.Start - 1
Set Rng = Selection.Range: Rng.Collapse wdCollapseStart
Rng.Start = Rng.Start - 1: Rng.InsertBefore "[": Rng.InsertAfter "]": Rng.Style = wdStyleFootnoteReference
Selection.Collapse wdCollapseEnd
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
End Sub