ActiveDocument.Variables("DOR").Value = Format(oXL.ActiveWorkbook.Worksheets("Docvariables").Range("E3").Value, "dd/mm/yyyy")