Imagine the following situation:
You have some old BusinessObjects documents. The Universe is no longer available, you can't edit the query anymore, but you would like to obtain the SQL that's at the basis of it.
If this is the situation you are in, then here is your solution.
Go to Tools>Macro>Visual basic editor and create a new function:
a = Application.ActiveDocument.DataProviders(1).SQL
Set fso = CreateObject("scripting.filesystemobject")
Set file = fso.createtextfile("c:\temp\sqlcode1.txt")
next, press the triangle icon to run the function and you have query 1.. if more than 1 query exists, simply choose dataprovider(2).. etc and write them to separate textfiles.
Short .. and sweet :)