Hi mohair_slim,
again i am not sure if i got it:
You are talking about a current active word document that is already saved as a doc (or docx)?
If so, try this:
tell application "Microsoft Word"
set theOldDefaultPath to get default file pathfile path typedocuments path
set theDoc to path of active document as alias
tell application "Finder"
set theFilePath to container of theDoc as string
set ext to name extension of theDoc
set theName to name of theDoc
copy length of theName to l
copy length of ext to exl
set n to l - exl - 1
copy characters 1 through n of theName as string to theFilename
set theFilename to theFilename & ".pdf"
end tell
set default file pathfile path typedocuments pathpaththeFilePath
set theActiveDoc to the active document
save astheActiveDocfile formatformat PDFfile nametheFilename
-- close theActiveDoc
set default file pathfile path typedocuments pathpaththeOldDefaultPath
end tell
Spazek