Dim sField As Field Set sField = ActiveDocument.Fields.Add(Selection.Range, wdFieldDate, _ "\@ ""yyyy/MM/dd ddd, HH:mm:ss"" \* Upper", False)