Returning items in a range

this was the solve that I figured out. If anyone needs this for the future. This will have you choose a .docx file and then an .xlsx file from finder. Use the excel sheet to extract data from a specific sheet in the workbook. uses that information to fill out a form that was made in Word.

use scripting additions

set theXLSX to (choose file of type ("org.openxmlformats.spreadsheetml.sheet"))

set theDOCX to (choose file of type {"org.openxmlformats.wordprocessingml.document"})

tell application "Microsoft Excel"

activate

open file theXLSX

set numb to display dialog "What row is the project on?" default answer "" with icon note buttons {"Cancel", "Continue"} default button "Continue"

set numb2 to (text returned of numb) as integer

set range2 to range ("A" & numb2 & ":K" & numb2) of sheet "Small Jobs" of document 1

set range2Data to value of cells of range2

end tell

--tell application "Microsoft Excel" to if it is running then quit

tell application "Microsoft Word"

activate

open file theDOCX

set myfind to find object of text object of active document

set properties of myfind to {match case:false, match whole word:false, match wildcards:false}

execute find myfind find text ("<<project>>") replace with (item 1 of range2Data) replace replace all

execute find myfind find text ("<<field>>") replace with (item 2 of range2Data) replace replace all

execute find myfind find text ("<<contact>>") replace with (item 3 of range2Data) replace replace all

execute find myfind find text ("<<phone>>") replace with (item 4 of range2Data) replace replace all

execute find myfind find text ("<<street>>") replace with (item 5 of range2Data) replace replace all

execute find myfind find text ("<<citystatezip>>") replace with (item 6 of range2Data) replace replace all

execute find myfind find text ("<<visit>>") replace with (item 7 of range2Data) replace replace all

execute find myfind find text ("<<known>>") replace with (item 8 of range2Data) replace replace all

execute find myfind find text ("<<scheduled>>") replace with (item 11 of range2Data) replace replace all

print active document

close active document saving yes

end tell

tell application "Microsoft Word" to if it is running then quit

thank you for the quick response. I tried that already and it still seems like it is empty. If you single out the excel part and run a return code for the arange it comes back like it is empty. It seems to not be creating a range with cell content just a range name.

I got it to work by the following. I was also able to get rid of the tell command.

set range2 to range ("A" & numb2 & ":K" & numb2) of sheet4 of document 1

set range2Data to {value of cells of range2}

if you keep the brackets then it puts all the values of the range into an array that has the data stored all in item 1 as opposed to each cell in a different item.