Cambiar nombre fichero por abreviatura

chic@s, tengo un diccionario con las siguientes claves y valores: Primera-Prim, Parte-Par queréis una macro que cambie automáticamente el nombre por las abreviaturas el fichero está estructurado así: _PrimeraParte_fecha y debe quedar _PrimPar.