SvenC said:
What are the version numbers of those mso.dlls?
For Office 2003: Office11\mso.dll is 11.0.8221.0, Office12\mso.dll is
12.0.6320.5000.
For Office XP: Office10\mso.dll is 10.0.6845.0, Office12\mso.dll is same as
above.
For Office 2000: Office12\mso.dll is same as above. No other mso.dll in
Office 2000.
Which constants? Please give some concrete examples. The only thing which
makes sense to me would be that you used constants new to Office 12 and
thought they should have been there in earlier versions of Office as well.
I've already stated that this is with old code, no new constants.
I've posted an example below.
When compiling wit VB 6, ONLY the Office12\mso.dll is listed.
However, I can browse and add a reference to Office11\mso.dll.
Either mso.dll does the job.
Somewhere MSFT mut have documented (silly me, asking for documentation) this
change.
I pretty much doubt that MS would create dependencies between
Office versions.
There would be no other reson for creating such a library.
Having anf Office 12 mod.dll likely facilitates Office 2007 importing
critters from earlier versions.
Typically Microsoft put its files in a Microsoft subdirectory, so having an
OfficeUpdate12 directory directly in Application Data looks strange.
These are MSFT files.
What kind of update service do you use?
Microsofts online update service or an offline WSUS?
MSFT update.
..
How about installing a clean Windows with a clean Office 2003 and apply
only their current service packs. Are there still CommandBar related
constants
missing? If yes, which - they might be new to Office 2007 and would have
no meaning in older versions.
No reason to do that.
This update is clearly from MSFT and, if needed, I can brute force to the
old Office11 mso.dll.
The puzzle is why some others are not seeing this update.
In another forum, I have found folkes that do have the Office12 critter.
No point in discussing furthe.
Somebody here likely has contacts at MSFT who can explain what's going on.
The log file from the install has:
V3_2|514182|INSTALL|MSPUB_8103_INTL||2006-11-29 03:07:36|9|SUCCESS|||
V3_2|514379|INSTALL|POWERPNT_8110_INTL||2006-11-29 03:07:36|9|SUCCESS|||
V3_2|514374|INSTALL|WINWORD_8106_INTL||2006-11-29 03:07:36|9|SUCCESS|||
V3_2|514382|INSTALL|MSXML5_8107_INTL||2006-11-29 03:07:36|9|SUCCESS|||
V3_2|513905|INSTALL|GPFILT_8030_ENG||2006-11-29 03:07:36|9|SUCCESS|||
V3_2|514383|INSTALL|MSO_8107_INTL||2006-11-29 03:07:36|9|SUCCESS|||
V3_2|514366|INSTALL|EXCEL_8105_INTL||2006-11-29 03:07:36|9|SUCCESS|||
V3_2|518405|INSTALL|OUTLFLTR_8111_INTL||2006-11-29 03:07:36|9|SUCCESS|||
V3_2|518408|INSTALL|LCCWIZ_8111_ENG||2006-11-29 03:07:36|9|SUCCESS|||
V3_2|514387|INSTALL|STLIST_8104_INTL||2006-11-29 03:07:36|9|SUCCESS|||
V3_2|518780|INSTALL|OUTLOOK_8119_INTL||2007-02-09 01:32:52|9|SUCCESS|||
V3_2|518718|INSTALL|EXCEL_8117_INTL||2007-02-09 01:32:52|9|SUCCESS|||
V3_2|518720|INSTALL|OUTLFLTR_8119_INTL||2007-02-09 01:32:52|9|SUCCESS|||
V3_2|518532|INSTALL|RICHED20_8114_INTL||2007-07-22 13:50:17|9|SUCCESS|||
V3_2|519161|INSTALL|EXCEL_11.0.8142_INTL||2007-07-22 13:50:17|9|SUCCESS|||
V3_2|518939|INSTALL|MSO_11.0.8132_INTL||2007-07-22 13:50:17|9|SUCCESS|||
V3_2|518938|INSTALL|WINWORD_11.0.8134_INTL||2007-07-22 13:50:17|9|SUCCESS|||
V3_2|518937|INSTALL|POWERPNT_11.0.8134_INTL||2007-07-22
13:50:17|9|SUCCESS|||
V3_2|519339|INSTALL|OUTLFLTR_11.0.8143_INTL||2007-07-22
13:50:17|9|SUCCESS|||
V3_2|518828|INSTALL|EUROTOOL_8118_INTL||2007-07-22 13:50:17|9|SUCCESS|||
V3_2|519988|INSTALL|MAINSP3_11.0.8173_ENG||2008-06-08 08:35:51|9|SUCCESS|||
V3_2|525359|INSTALL|OUTLFLTR_11.0.8215_MANY||2008-06-08
08:35:51|9|SUCCESS|||
V3_2|525342|INSTALL|MSPUB_11.0.8212_MANY||2008-06-08 19:51:29|9|SUCCESS|||
V3_2|524657|INSTALL|EXCEL_11.0.8211_MANY||2008-06-08 19:51:29|9|SUCCESS|||
V3_2|525349|INSTALL|WINWORD_11.0.8215_MANY||2008-06-08 19:51:29|9|SUCCESS|||
V3_2|523488|INSTALL|MSO_11.0.8202_MANY||2008-06-08 19:51:29|9|SUCCESS|||
V3_2|524858|INSTALL|VBE6_11.0.8203_MANY||2008-06-08 19:51:29|9|SUCCESS|||
V3_2|524861|INSTALL|OUTLOOK_11.0.8206_MANY||2008-06-08 19:51:29|9|SUCCESS|||
V3_2|520996|INSTALL|OLKINTL_11.0.8201_ENG||2008-06-08 19:51:29|9|SUCCESS|||
V3_2|524860|INSTALL|WORKS632_11.0.8202_MANY||2008-08-06
05:47:00|9|SUCCESS|||
V3_2|527524|INSTALL|OUTLFLTR_11.0.8223_MANY||2008-08-06
05:47:00|9|SUCCESS|||
V3_2|527525|INSTALL|OUTLOOK_11.0.8217_MANY||2008-08-06 05:47:00|9|SUCCESS|||
V3_2|532336|INSTALL|MSO_12.0.6324.5002_MANY||2009-03-07
18:00:41|9|SUCCESS|||
V3_2|536389|INSTALL|WINWORD_11.0.8237_MANY||2009-03-07 18:00:41|9|SUCCESS|||
V3_2|531879|INSTALL|MSO_11.0.8221_MANY||2009-03-07 18:00:41|9|SUCCESS|||
V3_2|527668|INSTALL|GPFILT_11.0.8203_ENG||2009-03-07 18:00:41|9|SUCCESS|||
V3_2|530067|INSTALL|POWERPNT_11.0.8227_MANY||2009-03-07
18:00:41|9|SUCCESS|||
V3_2|531884|INSTALL|GDIPLUS_11.0.8230_MANY||2009-03-07 18:00:41|9|SUCCESS|||
V3_2|531453|INSTALL|SNAPVIEW_11.0.8229_ENG||2009-03-07 18:00:41|9|SUCCESS|||
V3_2|536366|INSTALL|MSXML5_11.0.8237_MANY||2009-03-07 18:00:41|9|SUCCESS|||
V3_2|536361|INSTALL|EXCEL_11.0.8237_MANY||2009-03-07 18:00:41|9|SUCCESS|||
V3_2|536416|INSTALL|OUTLFLTR_11.0.8246_MANY||2009-03-07
18:00:41|9|SUCCESS|||
ident.ini has:
[cabpools]
ServerCount=2
default=2
Server1=
http://Office.microsoft.com/officeupdate/catalog/ident/Officemicroso
ftcom
Server2=
http://download.microsoft.com/download/0/5/9/0590D3F9-106B-4A0B-8841
-C3C999C9A81A/
[v3]
ServerCount=1
default=1
Server1=
http://Office.microsoft.com/officeupdate/content
[content]
ServerCount=1
default=1
server1=
http://Office.microsoft.com/officeupdate/catalog
OK, here's the example.
I have to include either the Office12\mso.dll or the Office11\mso.dsl as a
reference, as well as the reference for Excel.
Option Explicit
Private Sub btnExit_Click()
appExcel.Quit
Set appExcel = Nothing
Unload Me
End Sub
Private Sub btnRunMe_Click()
Set appExcel = New Excel.Application
CreateToolbar
End Sub
and
Option Explicit
Public appExcel As Excel.Application
Private Const sToolbarName As String = "Nuts"
Public Sub CreateToolbar()
With appExcel
.Workbooks.Add
'Get rid of any existing toolbar
On Error Resume Next
.CommandBars(sToolbarName).Delete
On Error GoTo 0
'Create new toolbar
With .CommandBars.Add(Name:=sToolbarName)
With .Controls.Add(Type:=Office.msoControlButton)
.Style = Office.msoButtonCaption
.Caption = "Nuts are good for you!"
.OnAction = "ListNuts"
.ToolTipText = "Ask any squirrel!"
End With
.Position = Office.msoBarTop
.Visible = True
End With
Debug.Print .CommandBars(sToolbarName).Name
.ActiveWorkbook.Close SaveChanges:=False
End With
End Sub
Public Sub CreateToolbarNoOffice()
With appExcel
.Workbooks.Add
'Get rid of any existing toolbar
On Error Resume Next
.CommandBars(sToolbarName).Delete
On Error GoTo 0
'Create new toolbar
With .CommandBars.Add(Name:=sToolbarName)
With .Controls.Add(Type:=msoControlButton)
.Style = msoButtonCaption
.Caption = "Nuts are good for you!"
.OnAction = "ListNuts"
.ToolTipText = "Ask any squirrel!"
End With
.Position = msoBarTop
.Visible = True
End With
Debug.Print .CommandBars(sToolbarName).Name
.ActiveWorkbook.Close SaveChanges:=False
End With
End Sub