Sub SetDate() With ActiveDocument.FormFields("Text1") If .Result = "" Then .Result = Format((Now), "MM/dd/yyyy") End With End Sub