Hi
You could try this code with an OnSaveRequest - Tools, Form Options, Open and Save, Save using custom code - it works for me and you may be able to adapt it for your button.
Sub XDocument_OnSaveRequest(eventObj)
Dim PositionName
Dim InnovationUnit
Dim SaveFile
PositionName = ...