Use

Dim i As Long
With ActiveDocument
.Variables("Date").Value = InputBox("Enter the start Date")
.Range.Fields.Update
.PrintOut
For i = 1 To InputBox("Enter the Number of Days")
With .Variables("Date")
.Value = DateAdd("d", 1, .Value)
End With
.Range.Fields.Update
.PrintOut
Next i
End With