Sub Folly()
Dim lngIndex As Long
  MsgBox Selection.Words.Count
  For lngIndex = 1 To Selection.Words.Count
    MsgBox Selection.Words(lngIndex)
  Next
End Sub

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey, http://gregmaxey.com/word_tips.html, 7/30/2017
Dim oRng As Range
Dim lngIndex As Long
  Set oRng = ActiveDocument.Range
  oRng.Collapse wdCollapseStart
  Do
    For lngIndex = 1 To 25
      oRng.MoveEnd wdWord, 1
      'Deal with hyhenated words e.g., twenty-one
      On Error GoTo lbl_Skip
      If oRng.Characters.Last.Next = "-" And oRng.Characters.Last.Next.Next Like "[A-Za-z]" Then
        oRng.MoveEnd wdWord, 2
      End If
      'Deal with sentence punctuation.
      If oRng.Characters.Last.Next Like "[.,:;/?/!]" And oRng.Characters.Last.Next.Next Like "[" & Chr(11) & "," & Chr(13) & "]" Then
        oRng.MoveEnd wdWord, 1
      End If
      If oRng.Characters.Last Like " " And oRng.Characters.Last.Previous Like "[.,:;/?/!]" Then
        oRng.MoveEnd wdWord, 1
      End If
lbl_Skip:
      On Error GoTo 0
      If oRng.Text Like Chr(13) Then oRng.MoveEnd wdWord, 1
      If oRng.Text Like Chr(11) Then oRng.MoveEnd wdWord, 1
      If lngIndex = 25 Then
        oRng.Collapse wdCollapseEnd
        oRng.InsertBefore "~*~"
        oRng.Collapse wdCollapseEnd
      End If
      If oRng.End = ActiveDocument.Range.End - 1 Then Exit For
    Next
    If oRng.End = ActiveDocument.Range.End - 1 Then Exit Do
  Loop
  Set oRng = ActiveDocument.Range
  With oRng.Find
    .Text = "~*~"
    .Replacement.Text = "/"
    .Execute Replace:=wdReplaceAll
  End With
lbl_Exit:
  Exit Sub
End Sub