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