Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oFN As Footnote
Dim oRng As Word.Range
Set oFN = Selection.Range.Footnotes.Add(Selection.Range, , Selection.Text & ": ")
Set oRng = oFN.Range
oRng.MoveEnd wdCharacter, -1
oRng.Font.Italic = True
oRng.Collapse wdCollapseEnd
oRng.Move wdCharacter, 2
oRng.Select
End Sub