[RESOLVED] Office 2003 Favour Request
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.
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
(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.
Thank you
The Dragon
Re: Office 2003 Favour Request
Re: Office 2003 Favour Request
Dear Sid
Thanks for that. Much appreciated. Best wishes for Christmas & have a happy & safe holiday season.
cheers
The Dragon