Use Automator to save to PDF Office 365 Word documents

This is a reply to this post :

https://discussions.apple.com/thread/250067807?answerId=250118986022#250118986022

I use the following modified automator AppleScript service to batch convert .docx in PDF with office 365 (January 2022):

this script was written by VikingOSX, I've updated it to match service requirement

property Delim : {".docx", ".doc"}
property PDF : ".pdf"

on run {selected_files, parameters}
	
	set outPDF to {}
	-- replace Word document extensions with PDF, and append to outPDF list
	set {TID, AppleScript's text item delimiters} to {AppleScript's text item delimiters, Delim}
	repeat with afile in selected_files
		copy item 1 of text items of (afile as text) & PDF to the end of outPDF
	end repeat
	set AppleScript's text item delimiters to TID
	
	tell application id "com.microsoft.Word"
		activate
		repeat with i from 1 to count of selected_files
			open (item i of selected_files)
			set theOutputPath to (item i of outPDF)
			-- close access (open for access exportDocument)
			tell active document
				save as it file name theOutputPath file format format PDF
				close saving no
			end tell
		end repeat
	end tell
	return
end run