Build a path string.

I don't see code that creates a new folder. I only see a hard-coded path string.

Try retrieving document name with ActiveDocument.Name