tell application "Finder"
set pathoffolder to choose folder
set pagesfiles to entire contents of pathoffolder
repeat with each_item in pagesfiles
tell application "Pages"
set docname to open each_item
set nameofwin to name of front document
tell document 1
tell application "System Events"
tell process "Pages"
delay 1
click menu item "Export
" of menu 1 of menu bar item "File" of menu bar 1
delay 1
click button "Word" of radio group 1 of sheet 1 of window nameofwin
delay 1
click button "Next..." of sheet 1 of window nameofwin
delay 1
click button "Export" of sheet 1 of window nameofwin
end tell
end tell
end tell
close document nameofwin
end tell
end repeat
end tell