CAD tip # 12462:

Create a new iLogic rule (macro) and adjust its table of old and new parameter names - dParams (no comma after the last line!):

'Rename parameters
'simple rename: Parameter.Param("oldname").Name = "newname"
Dim dParams(, ) As String
dParams = { _ 
            {"oldname","newname"}, _
            {"d2" ,"usrD2"}, _
            {"d4" ,"usrD4"}, _
            {"d10","usrD10"}, _
            {"d57","usrD57"} _    ' No comma on last entry
          }
For i = LBound(dParams,1) To UBound(dParams,1)
  Try
    Parameter.Param(dParams(i, 0)).Name = dParams(i, 1)
  Catch  
  End Try
Next