Batch renamen

[Danieli]

Hallo,

Ik heb en vraag die gaat over het renamen van een 200 tal batch documenten.
Het volgende, ik heb documenten gescaned deze krijgen een unike naam fafafffvxc_0001.pdf deze file kan ook nog uit meerdere sheets bestaan.
ik het een excellijst met daarin de nwe nam die het moet krijgen in diverse kolommen.
Dus (scan) asgetdv4gdevd_0001.pdf => pooxyz0001 rev 0 80-wdge-000.pdf worden

Wie weet hoe dit op een snelle en eenvoudige manier kan, ik moet ong. 2000 docs "hernoemen"

 

[snb]

stel: oude namen in kolom A
Nieuwe namen in kolom B:

Sub M_snb()
  sn=sheets(1).cells(1).currentregion
  for j=1 to ubound(sn)
    name sn(j,1) as sn(j,2)
  next
end sub