What's the wrong with this code?

[champs]

Hi,

I have many paragraphs in my document. Each Paragraph begins various number as text. I want to re-numbering all of them as text. It's working when I press F8 button one by one in the VB section. But It's not working when I press RUN on my current document!
Yken
Sub renumbering()
Dim par As Paragraph
Dim Words As String
Selection.HomeKey Unit:=wdStory
Words = 1
For Each par In ActiveDocument.Paragraphs
Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
If IsNumeric(Selection) Then
Selection = Words
Words = Words + 1
End If
Selection.EndOf Unit:=wdParagraph, Extend:=wdMove
Next par
End Sub

[Webtekr]

Hi,

You have confused the use of ranges and selections.

I m sending you the code this will helps u just check it....

For Each par In ActiveDocument.Paragraphs
then you should not go on to manipulate the selection with lines like
Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
Instead you should manipulate the paragraph by using the variable par with code such as

Sub renumbering()
Dim par As Paragraph
Dim Words As String
Selection.HomeKey Unit:=wdStory
Words = 1
For Each par In ActiveDocument.Paragraphs
If IsNumeric(par.Range.Words(1)) Then
par.Range.Words(1).Text = Words & " "
Words = Words + 1
End If
Next par
End Sub

[mudraker]

champs & Webtekr

Both of your posting in this thread break Forum rule 3

Please take a couple of minutes and read ALL theForum Rules then wrap your VBA code (Rule 3)