Saving as x6 all the time while using x8

-Open macro manager docker (Alt+shift+F11),
-right click on Visual Basic for Applications & choose New Macro Project
-name it "SaveAsX6" without the quotes and hit ok,
-down at the bottom of the tree you'll see the heading, right click on it and choose new module
-click off of it then right click on it and choose new macro
-copy and paste all the following in that space instead
-right click on the macro in the docker and choose run
-you can also add it to any toolbar for quick use

Sub SaveAsX6()
Dim Path As String
Dim Name As String
Path = ActiveDocument.FilePath
Name = ActiveDocument.FileName

Dim SaveOptions As StructSaveAsOptions
Set SaveOptions = CreateStructSaveAsOptions
With SaveOptions
.EmbedVBAProject = True
.Filter = cdrCDR
.IncludeCMXData = False
.Range = cdrAllPages
.EmbedICCProfile = False
.Version = cdrVersion16
End With

ActiveDocument.SaveAs Path + "\" + Name, SaveOptions
End Sub

I got pointed to this thread when I requested a macro to save as X6.

I did as you said.

Nothing happens when I ran the macro, well, almost. If I run the macro on a new document (not saved before) nothing seem to happen.

If I run the macro on a document that has been saved before, the title bar, where it show the path of the filename, it adds another "\" in the plast for the last backslash position for every time I run the macro.  Like C:\files\\\\test.cdr and the file itself seems to be still in X8 format.

Macro editor: