Hello from Steved

If I remove from the below macro

Dim i As Long, pararange As Range
For i = 1 To ActiveDocument.Paragraphs.Count
   Set pararange to ActiveDocument.Paragraphs(i).Range
Next i

it works fine, please what do i need to do to make it
work.

Thankyou.

Sub RaceDictionary()
Dim i As Long, pararange As Range
For i = 1 To ActiveDocument.Paragraphs.Count
Set pararange to ActiveDocument.Paragraphs(i).Range
  Selection.Extend
   Selection.Find.ClearFormatting
   With Selection.Find
       .Text = "^$^$"
       .Format = False
       .MatchWildcards = False
   End With
   Selection.Find.Execute
   Selection.MoveLeft Unit:=wdCharacter, Count:=2,
Extend:=wdExtend
   Selection.Delete Unit:=wdCharacter, Count:=1
   Selection.Find.ClearFormatting
   With Selection.Find
       .Text = "\(*by"
       .Replacement.Text = ""
       .Forward = True
       .Wrap = wdFindContinue
       .Format = False
       .MatchWildcards = True
   End With
   Selection.Find.Execute
   Selection.MoveLeft Unit:=wdCharacter, Count:=2,
Extend:=wdExtend
   Selection.Delete Unit:=wdCharacter, Count:=1
   Selection.TypeBackspace
   Selection.TypeText Text:="= "
   Selection.EndKey Unit:=wdLine
   Selection.TypeBackspace
   Selection.TypeText Text:=", "
   Selection.Find.ClearFormatting
   With Selection.Find
       .Text = "*$"
       .Replacement.Text = ""
       .Forward = True
       .Wrap = wdFindContinue
       .Format = False
       .MatchWildcards = True
   End With
   Selection.Find.Execute
   Selection.MoveLeft Unit:=wdCharacter, Count:=1,
Extend:=wdExtend
   Selection.Delete Unit:=wdCharacter, Count:=1
   Selection.HomeKey Unit:=wdLine
   Selection.MoveDown Unit:=wdLine, Count:=1
   Selection.TypeParagraph
   Selection.MoveUp Unit:=wdLine, Count:=2
   Selection.TypeText Text:="X"
   Selection.Extend
   Selection.HomeKey Unit:=wdLine
   Selection.Find.ClearFormatting
   Selection.Find.Font.Size = 30
   With Selection.Find
       .Text = ""
       .Replacement.Text = ""
       .Forward = True
       .Wrap = wdFindAsk
       .Format = True
       .MatchCase = False
       .MatchWholeWord = False
       .MatchWildcards = False
       .MatchSoundsLike = False
       .MatchAllWordForms = False
   End With
   Selection.Find.Execute
   Selection.MoveLeft Unit:=wdCharacter, Count:=1,    
Extend:=wdExtend
   Selection.Delete Unit:=wdCharacter, Count:=1
   Selection.HomeKey Unit:=wdLine
   Selection.Delete Unit:=wdCharacter, Count:=1
   Selection.Delete Unit:=wdCharacter, Count:=1
Next i
End Sub