Steved,

Something like:

Sub Test()
Dim s As String
Dim p As Integer
Dim pPara As Range
Dim i As Long
For i = 1 To ActiveDocument.Paragraphs.Count
Set pPara = ActiveDocument.Paragraphs(i).Range
s = pPara.Text
p = InStr(1, s, " ") ' position of 1st space
p = InStr(p + 1, s, " ") ' position of 2nd space
s = Right(s, Len(s) - p) ' text right of position
pPara.Text = s
Next
End Sub

--
Greg Maxey/Word MVP
A Peer in Peer to Peer Support

Steved wrote:
Hello from Steved

Please how do I write a macro for the below to go to the
next and so on until it reaches the end of the document.

Dim s As String
Dim p As Integer
Selection.Paragraphs(1).Range.Select
s = Selection.Text
p = InStr(1, s, " ") ' position of 1st space
p = InStr(p + 1, s, " ") ' position of 2nd space
s = Right(s, Len(s) - p) ' text right of position
Selection.Paragraphs(1).Range.Text = s

Thankyou.