Test3

test3.applescript

tell application "Microsoft Word"
	set fn to make new footnote at active document
	tell text object of fn to set content to ""
	
	set noteRef to note reference of fn
	
	#tell active document to select text object of fn
	
	set sbWhere to text object of fn
	create new field text range sbWhere field type field print date
	
	tell active document to select note reference of fn
	tell selection to set selection start to end of content of noteRef
	tell selection to set selection end to end of content of noteRef
	
	# Where is the cursor? What is on the page?
end tell