G'day. I was hoping someone could please do me a small favour. I have office 2007 and I need some info from office 2003.
What I need is for someone with Office 2003 to open a new file in Excel, insert a module, go to Tools > References and add references to Microsoft Outlook 11.0 Object Library, Microsoft Scripting Runtime and Microsoft Word 11.0 Object Library then paste the following code in the module and run it and upload the file to me after the code has been run.
(I didn't write this code, the original is to be found at: http://www.ozgrid.com/forum/showthread.php?t=22483 ) - credit where credit is due.Code:Sub CheckReferences() Dim n As Integer Sheets("Sheet1").Select On Error Resume Next Cells(1, 1) = "Name" Cells(1, 2) = "Description" Cells(1, 3) = "GUID" Cells(1, 4) = "Major" Cells(1, 5) = "Minor" Cells(1, 6) = "fullpath" Cells(1, 7) = Application.Version For n = 1 To ActiveWorkbook.VBProject.References.Count Cells(n + 1, 1) = ActiveWorkbook.VBProject.References.Item(n).Name Cells(n + 1, 2) = ActiveWorkbook.VBProject.References.Item(n).Description Cells(n + 1, 3) = ActiveWorkbook.VBProject.References.Item(n).GUID Cells(n + 1, 4) = ActiveWorkbook.VBProject.References.Item(n).Major Cells(n + 1, 5) = ActiveWorkbook.VBProject.References.Item(n).Minor Cells(n + 1, 6) = ActiveWorkbook.VBProject.References.Item(n).fullpath Next n End Sub
Thank you
The Dragon




Reply With Quote