Microsoft's definition of what is a 'word' apparently includes punctuation but this might get you started
Code:
Sub ExpandWords()
Dim x As Integer
x = InputBox("How many words?", "Counter", 10)
If x > 0 Then
Selection.MoveRight Unit:=wdWord, Count:=x, Extend:=True
End If
End Sub