Sub Test() With ActiveDocument .Unit = cdrFoot .SaveSettings "Settings1" .Unit = cdrMillimeter .SaveSettings "Settings2" .Unit = cdrAgate .RestoreSettings "Settings1" End WithEnd Sub