Sub RangeText()
Dim wdApp As Word.Application
Dim wdDoc As Document
Dim wdRng As Word.Range
Set wdApp = GetObject(, "Word.Application")
Set wdDoc = wdApp.ActiveDocument
Set wdRng = wdDoc.Range(0, 22)
wdRng.Select
Set wdApp = Nothing
Set wdDoc = Nothing
Set wdRng = Nothing
End Sub