Sub Test() MsgBox Format(ActiveDocument.BuiltInDocumentProperties("Total Editing Time") / 1440, "[d] hh:mm") End Sub