Our numbering system is 1234567890_A1 (10 Digit part number_Rev)

I would like to pull from the file name the part number to auto populate the PART NO. property and the Rev to populate the Revision property.

So if I was to have the part opened and then hit Save As and change the revision it changes in the properties as well.

Can anyone help me out with this issue. Can this be done with a macro?

Thanks for any help