A fairly simple way to access formfields programmatically:
Code:
Sub FillForm()
With ActiveDocument
.FormFields(1).Result = "No comment"
.FormFields(2).Result = Format(Now(), "MMMM dd, yyyy")
.FormFields(3).Result = "Alyb"
End With
Application.Quit True
End Sub
More importantly, once you apply 'Filling in Forms' protection, which is required for formfields to work, your code won't work.