[AccessD] Special Folders

Hi List,
Is there any way I can find out in code where any of the office applications
are installed?

This works if I put the path for the application in by long-hand, but how
can I find out what the path to the application is and store it to a
variable.

const conQuote as string = """

        MsgBox "The PDF file will now open to show you total Disbursements.
Please print and file this." & vbCrLf & "Please then select the matching CSV
file to decrypt and process"
        strShell = conQuote & "C:\Program Files\Adobe\Reader
8.0\Reader\AcroRd32.exe " & conQuote
        strShell = strShell & " " & conQuote & strPathPDFFile & conQuote
        RetVal = Shell(strShell, 1)

If it was a Word document I wanted to open I would be looking for somthing
like:
strDocName = "c:\mydocs\procedure.doc"
strWord = specialpathfolder("Word") '  assuming that this returned the
qualified pathname..
strshell = conquote & strword  & conquote & " " & strDocName & conquote
retval = shell(strshell,1)

Thanks
Max