To goto end of document

  • Thread starter Thread starter Steved
  • Start date Start date
S

Steved

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.
 
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
 
Thankyou.
-----Original Message-----
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



.
Click to expand...
 
Back
Top