' create the action history entries If ItemTextExists(source.document, "inputhistory") = False Then source.Document.inputhistory = source.Document.input(0) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & _ source.Document.inputtimedate(0) & "/" & source.Document.inputtimefrom(0) & "-" & source.Document.inputtimeuntil(0) & Chr(10) & Chr(13) &_ user & " " & thisdate.LocalTime & Chr(10) & Chr(13) &_ "________________________________________" & Chr(10) & Chr(13) Else source.Document.inputhistory = source.Document.inputhistory(0) & source.Document.input(0) & Chr(10) & _ source.Document.inputtimedate(0) & "/" & source.Document.inputtimefrom(0) & "-" & source.Document.inputtimeuntil(0) & Chr(10) & Chr(13) &_ user & " " & thisdate.LocalTime & Chr(10) & Chr(13) &_ "________________________________________" & Chr(10) & Chr(13) End If ' empty the action fields