colins121
asked on
How do I customize the Office 2007 QuickAccessToolbar for deploying it consistently across the enterprise?
How can I create multiple customized QuickAccessToolbars for Office 2007. I'm familiar with the OCT and customizing Office installations. I've created /deployed custom Office installs for my company for Office XP, 2003, and 2007. I've created multiple .MSPs for deploying Office 2007 but have not been able to create customized QuickAccessToolbar(s) or been able to figure out how to deploy anything other than the default QAT buttons. I know how to customize the QAT on individual PCs but need to do so company-wide.
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
The links that you provided are helpful. I ended up going doing this via Group Policy using a crude script (batch file) that verifies if Office 2007 (or any of its components) is installed, the OS version, and checks to see if each of the .qat that we need on our users' systems exist. If not, the individual .qat are copied to the users profiles.
Doing this via Group Policy worked out well since the combined size of all the .qat files is a whopping 8K! The batch file itself is 2K. It runs pretty quickly too. We dont use roaming profiles so I didnt have to do any logoff script. Remote users have to deal with any lag the script and file copy cause but based on their geography (Bay Area) my user base has a good percentage high-speed access.
Below is the script that I used.
@echo OFF
if not exist "%PROGRAMFILES%\Microsoft Office\Office12\" goto END
ver | find "Version 5.1"
if errorlevel 1 goto NotXP
if exist "%userprofile%\Local Settings\Application Data\Microsoft\OFFICE\exce l.qat" goto OLKItem
xcopy "Excel.qat" "%userprofile%\Local Settings\Application Data\Microsoft\OFFICE\" /Y
:OLKItem
if exist "%userprofile%\Local Settings\Application Data\Microsoft\OFFICE\olkm ailitem.qa t" goto OLKRead
xcopy "olkmailitem.qat" "%userprofile%\Local Settings\Application Data\Microsoft\OFFICE\" /Y
:OLKRead
if exist "%userprofile%\Local Settings\Application Data\Microsoft\OFFICE\olkm ailread.qa t" goto PPT
xcopy "olkmailread.qat" "%userprofile%\Local Settings\Application Data\Microsoft\OFFICE\" /Y
:PPT
if exist "%userprofile%\Local Settings\Application Data\Microsoft\OFFICE\Powe rPoint.qat " goto WORD
xcopy "PowerPoint.qat" "%userprofile%\Local Settings\Application Data\Microsoft\OFFICE\" /Y
:WORD
if exist "%userprofile%\Local Settings\Application Data\Microsoft\OFFICE\Word .qat" goto END
xcopy "Word.qat" "%userprofile%\Local Settings\Application Data\Microsoft\OFFICE\" /Y
goto END
:NotXP
ver | find "Version 6.0"
if errorlevel 1 goto END
if exist "%USERPROFILE%\AppData\Loc al\Microso ft\office\ Excel.qat" goto OLKItemV
xcopy "Excel.qat" "%USERPROFILE%\AppData\Loc al\Microso ft\office\ " /Y
:OLKItemV
if exist "%USERPROFILE%\AppData\Loc al\Microso ft\office\ olkmailite m.qat" goto OLKReadV
xcopy "olkmailitem.qat" "%USERPROFILE%\AppData\Loc al\Microso ft\office\ " /Y
:OLKReadV
if exist "%USERPROFILE%\AppData\Loc al\Microso ft\office\ olkmailrea d.qat" goto PPTV
xcopy "olkmailread.qat" "%USERPROFILE%\AppData\Loc al\Microso ft\office\ " /Y
:PPTV
if exist "%USERPROFILE%\AppData\Loc al\Microso ft\office\ PowerPoint .qat" goto WORDV
xcopy "PowerPoint.qat" "%USERPROFILE%\AppData\Loc al\Microso ft\office\ " /Y
:WORDV
if exist "%USERPROFILE%\AppData\Loc al\Microso ft\office\ Word.qat" goto END
xcopy "Word.qat" "%USERPROFILE%\AppData\Loc al\Microso ft\office\ " /Y
goto END
:END
Doing this via Group Policy worked out well since the combined size of all the .qat files is a whopping 8K! The batch file itself is 2K. It runs pretty quickly too. We dont use roaming profiles so I didnt have to do any logoff script. Remote users have to deal with any lag the script and file copy cause but based on their geography (Bay Area) my user base has a good percentage high-speed access.
Below is the script that I used.
@echo OFF
if not exist "%PROGRAMFILES%\Microsoft Office\Office12\" goto END
ver | find "Version 5.1"
if errorlevel 1 goto NotXP
if exist "%userprofile%\Local Settings\Application Data\Microsoft\OFFICE\exce
xcopy "Excel.qat" "%userprofile%\Local Settings\Application Data\Microsoft\OFFICE\" /Y
:OLKItem
if exist "%userprofile%\Local Settings\Application Data\Microsoft\OFFICE\olkm
xcopy "olkmailitem.qat" "%userprofile%\Local Settings\Application Data\Microsoft\OFFICE\" /Y
:OLKRead
if exist "%userprofile%\Local Settings\Application Data\Microsoft\OFFICE\olkm
xcopy "olkmailread.qat" "%userprofile%\Local Settings\Application Data\Microsoft\OFFICE\" /Y
:PPT
if exist "%userprofile%\Local Settings\Application Data\Microsoft\OFFICE\Powe
xcopy "PowerPoint.qat" "%userprofile%\Local Settings\Application Data\Microsoft\OFFICE\" /Y
:WORD
if exist "%userprofile%\Local Settings\Application Data\Microsoft\OFFICE\Word
xcopy "Word.qat" "%userprofile%\Local Settings\Application Data\Microsoft\OFFICE\" /Y
goto END
:NotXP
ver | find "Version 6.0"
if errorlevel 1 goto END
if exist "%USERPROFILE%\AppData\Loc
xcopy "Excel.qat" "%USERPROFILE%\AppData\Loc
:OLKItemV
if exist "%USERPROFILE%\AppData\Loc
xcopy "olkmailitem.qat" "%USERPROFILE%\AppData\Loc
:OLKReadV
if exist "%USERPROFILE%\AppData\Loc
xcopy "olkmailread.qat" "%USERPROFILE%\AppData\Loc
:PPTV
if exist "%USERPROFILE%\AppData\Loc
xcopy "PowerPoint.qat" "%USERPROFILE%\AppData\Loc
:WORDV
if exist "%USERPROFILE%\AppData\Loc
xcopy "Word.qat" "%USERPROFILE%\AppData\Loc
goto END
:END
ASKER