VBA macro to rename a word file

[sshishirkumar]

I have a file saved with a name. EX: Create Project Related Purchase Order, I need to change the name (as Create_Project_Related_Purchase_Order_QRG) with underscores after every word in the file name and _QRG at the end of the file. I want to use the VBA code to do this automatically in a macro which I use in the word file. Please help

[6StringJazzer]

I hope this is still helpful.

Please Login or Register  to view this content.

This code assumes that there is only one "." in the filename. It inserts the "_QRG" before the first dot it finds.