Word won't stop opening all previous windows

-- Script to close all windows and quit all apps, then shutdown
-- Based on scripts by Alex Layne and others

tell application "System Events"
	set the visible of every process to true
	
	set quit_white_list to {"Finder"}
	-- Any apps in this list will not be quit.
	
	set close_white_list to {"Finder"}
	-- Any apps in this list will not have their windows closed.
	
	try
		set process_list to the name of every process whose visible is true
		
		repeat with i from 1 to (number of items in process_list)
			set this_process to item i of the process_list
			tell my application this_process
				if this_process is not in close_white_list then close every window
				if this_process is not in quit_white_list then quit
			end tell
		end repeat
		
	on error
		tell the current application to display dialog "An error has occurred!" & return & "This script will now quit" buttons {"Quit"} default button 1 with icon 0
	end try
	shut down
	
end tell