OFF95: Forcing Office Shortcuts into a SubgroupID: Q135880
|
This article explains how you can force the Microsoft Office 7.0 Setup program to create shortcuts for the various Microsoft Office applications in a subgroup of the Start menu, rather than directly in the Start menu itself.
When you install Microsoft Office for Windows 95, version 7.0, the Setup
program creates shortcuts for the various Microsoft Office applications
directly in the Start menu. This behavior is different from that used in
earlier versions of Microsoft Office; in earlier versions, icons for the
applications are created in a separate group in Program Manager.
For example, the default hierarchy used by Microsoft Office 7.0 is as
follows:
Programs <-- main level
Microsoft Excel <-- application shortcut
Microsoft Word
Microsoft PowerPoint
Microsoft Access
Microsoft Schedule+
Microsoft Binder
and so on. The default hierarchy used by earlier versions of Microsoft
Office appears as follows:
Program Manager <-- main level
Microsoft Office <-- program group
Microsoft Excel <-- program icon
Microsoft Word
Microsoft PowerPoint
Microsoft Access
It is possible to change the behavior of the Microsoft Office 7.0 Setup
program, so that it creates application shortcuts in a separate subgroup in
the Start menu, rather than in the Start menu itself:
Programs <-- main level
Microsoft Office 95 <-- menu subgroup
Microsoft Excel <-- application shortcut
Microsoft Word
Microsoft PowerPoint
Microsoft Access
Microsoft Schedule+
Microsoft Binder
By making certain changes to the STF file used by Microsoft Office 7.0
Setup, you can force the Setup application to create the application
shortcuts in any desired subgroup of the Start menu.
Q132979 OFF95: Customizing Start Menu to Create Microsoft Office Menu
Setup /T N:\Office\Custom.stf
ObjID Application Shortcut Destination (Column K)
--------------------------------------------------------------
862 Microsoft Binder %860,%d
1454 Microsoft Word %1452,%d
3152 Microsoft Excel %3150,%d
5102 Microsoft Schedule+ %5098,%d
6268 Microsoft Office Shortcut Bar %6258,%d
7658 Microsoft PowerPoint %7656,%d
6280 New Office Document %6260
6284 Open Office Document %6260
The first six items listed above are, by default, created directly under
the Programs menu. The last two items (New Office Document, Open Office
Document) are created on the Start menu itself.
%860,%dto:
%860\Microsoft Office 95,%dThe "\Microsoft Office 95" changes the path where the shortcut should be created.
ObjID Destination
------------------------------------
862 %860\Microsoft Office 95,%d
1454 %1452\Microsoft Office 95,%d
3152 %3150\Microsoft Office 95,%d
5102 %5098\Microsoft Office 95,%d
6268 %6258\Microsoft Office 95,%d
6280 %860\Microsoft Office 95
6284 %860\Microsoft Office 95
7658 %7656\Microsoft Office 95,%d
Note that the Destinations for ObjIDs 6280 and 6284 have been changed to
"%860\Microsoft Office 95," instead of "%6260\Microsoft Office 95." This is
necessary in this case because using %6260 would cause a new subgroup to be
created at the top of the Start menu, not within the Programs menu.
Sub ModifyOffice7STF()
'The values contained in the "ItemArray =" line are specific to
'the STF file used by Microsoft Office 7.0, Standard Edition. You
'may need to use different values if you are using a different
'version of Microsoft Office.
'
'If you also want to relocate the New Office Document and Open
'Office Document shortcuts to the new subgroup, use this line of
'code instead:
'
' ItemArray = Array(860, 1452, 3150, 5098, 6258, 7656, 6260)
'
ItemArray = Array(860, 1452, 3150, 5098, 6258, 7656)
'Modify this line to contain the desired name of your subgroup.
SubgroupName = "Microsoft Office 95"
'Start the loop.
For X = 0 To UBound(ItemArray, 1)
'Set the StatusBar so that we can see what's happening.
Application.StatusBar = "Changing Object ID " & _
ItemArray(X) & "..."
'Select a range large enough to contain the entire STF file.
Range("A1:M10000").Select
'Change the value in the Destination column.
Selection.Replace What:="%" & ItemArray(X), _
Replacement:="%" & ItemArray(0) & "\" & SubgroupName
Next X
'Reset the StatusBar.
Application.StatusBar = False
End Sub
To use this macro, do the following:
Additional query words: officeinterop word6 powerpt admin
Keywords : kbsetup offwin
Version : windows:7.0
Platform : WINDOWS
Issue type : kbhowto
Last Reviewed: June 3, 1999