Hi dorogoi,

Try something along the lines of:
Sub Test()
Dim oRng As Range
Set oRng = Selection.Range
With oRng
  .Start = .End
  .Footnotes.Add oRng, , "Footnote text"
  .MoveEnd wdCharacter, 1
  MsgBox "The footnote you just inserted is # " & .Footnotes(1).Index & "."
End With
End Sub