property NSString : a reference to current application’s NSString
property NSFileManager : a reference to current application’s NSFileManager
property NSOrderedSame : a reference to current application’s NSOrderedSame

set basePath to (path to desktop) as string –Target Folder to write PDFs
set origPath to POSIX path of (choose folder with prompt "Select Word File Orig Folder") –(path to documents folder)

–Find Word (.doc & .docx ) files by Spotlight
set resList to mdLib’s searchFolders:{origPath} searchString:("kMDItemContentTypeTree == %@ || kMDItemContentTypeTree == %@") searchArgs:{"org.openxmlformats.wordprocessingml.document", "com.microsoft.word.doc"}

if resList = {} then
　　–No Word Files or Spotlight index is broken
　　display dialog "There is no Word File within your folder.." buttons {"OK"} default button 1 with icon 1
　　return
end if

set resNumLen to length of ((length of resList) as string)

–Close Word Documents without saving
closeEveryWordDocs() of me

set sCount to 1 –saving file counter
set erCount to 0

–Loop by Word files
repeat with i in resList
　　set j to contents of i
　　set anAlias to (POSIX file j) as alias
　　set dRes to openWordFile(anAlias) of me
　　
　　if dRes is not equal to false then
　　　　set numStr to retZeroPaddingText(sCount, resNumLen + 1) of me
　　　　set newFile to basePath & numStr & "_" & (repFileNameExtension(dRes, ".pdf") of me)
　　　　saveWordDocAsPDF(newFile) of me
　　else
　　　　set erCount to erCount + 1
　　end if
　　
　　set sCount to sCount + 1 –Increment
end repeat

–Report Finish
if erCount = 0 then
　　activate
　　display dialog (sCount as string) & " Word files are converted to PDF.." buttons {"OK"} default button 1 with icon 1
else
　　if erCount = 1 then
　　　　set pluralStr to ""
　　else
　　　　set pluralStr to "s"
　　end if
　　
　　activate
　　display dialog (sCount as string) & " Word files are converted to PDF.." & return & "But " & (erCount as string) & "file" & pluralStr & " caused error to open" buttons {"OK"} default button 1 with icon 1
end if

–最前面のWord Documentを指定パスにPDFとして書き出す
on saveWordDocAsPDF(saveHFSpathStr)
　　tell application "Microsoft Word"
　　　　save as active document file name saveHFSpathStr file format format PDF
　　　　close front document saving no
　　end tell
end saveWordDocAsPDF

–指定パスのWord書類をオープンする
on openWordFile(aFileAlias)
　　tell application "Microsoft Word"
　　　　try
　　　　　　–このあたり、予想外にいろいろオープン処理を止めるダイアログ表示などがあるようなので試行錯誤が必要
　　　　　　open aFileAlias file converter open format auto
　　　　　　tell front document
　　　　　　　　set dName to name
　　　　　　end tell
　　　　on error
　　　　　　return false
　　　　end try
　　end tell
　　return dName
end openWordFile

–Word書類をすべてクローズ。未保存のものも破棄してクローズ
on closeEveryWordDocs()
　　try
　　　　tell application "Microsoft Word"
　　　　　　close every document without saving
　　　　end tell
　　end try
end closeEveryWordDocs

–ファイル名から拡張子を置換する
on repFileNameExtension(origName, newExt)
　　set aName to current application’s NSString’s stringWithString:origName
　　set theExtension to aName’s pathExtension()
　　if (theExtension as string) is not equal to "" then
　　　　set thePathNoExt to aName’s stringByDeletingPathExtension()
　　　　set newName to (thePathNoExt’s stringByAppendingString:newExt)
　　else
　　　　set newName to (aName’s stringByAppendingString:newExt)
　　end if
　　
　　return newName as string
end repFileNameExtension

–数値にゼロパディングしたテキストを返す
on retZeroPaddingText(aNum, aLen)
　　set tText to ("0000000000" & aNum as text)
　　set tCount to length of tText
　　set resText to text (tCount – aLen + 1) thru tCount of tText
　　return resText
end retZeroPaddingText