Solved

Save Office 07 Quick Access Toolbar settings

Posted on 2008-06-18
4
1,608 Views
Last Modified: 2012-08-13
We're preparing to roll-out MS Office 2007 Enterprise in the next month or so, and most issues are down pat.

To help with the new ribbon interface - I've added a number of icons to the Quick Access Toolbar. Since there's no Save/Restore settings wizard in Office 07, how do I 'save' the QAT settings from each program (Word, Excel, etc) so that it can be rolled out with the installation. Is there a registry key that can be exported?

I've also worked out that after upgrading from Office 03 to 07, PolicyMaker causes a number of computer to BSOD with c000021 at log-on. Are there any upgrade patches that fix this or other solutions?

Thanks
0
Comment
Question by:Ryan_R
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 3
4 Comments
 
LVL 8

Accepted Solution

by:
Seth_zin earned 500 total points
ID: 21826162
0
 
LVL 15

Author Comment

by:Ryan_R
ID: 21826849
Thansk Seth
0
 
LVL 15

Author Comment

by:Ryan_R
ID: 21852482
You wouldn't happen to know how to setup the Office install package (or at least a batch file) that will copy those 3 .qat files from the share where Office is located to the C:\Docs & Settings\<username>\Local Settings\Application Data\Microsoft\Office folder?

Also, if an admin user installs Office 07 on a PC, is there a way to get those files put into the appropriate folder for each user on the PC that's not currently logged in? A script would be an ok alternative if it can't be used in the MSP file
0
 
LVL 15

Author Comment

by:Ryan_R
ID: 21882490
I wrote my own script the other day - posting below if anyone else needs it
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("C:\Documents and Settings")
Set colSubfolders = objFolder.Subfolders
For Each objSubfolder in colSubfolders
    If objSubfolder.Name = "NetworkService" Or objSubfolder.Name = "LocalService" Or objSubfolder.Name = "All Users" Then
	'Do Nothing
    Else 
	'MsgBox objSubfolder.Name
	On Error Resume Next
	If objFSO.FolderExists("C:\Documents and Settings\" & objSubFolder.Name & "\Local Settings\Application Data\Microsoft") Then
	    If objFSO.FolderExists("C:\Documents and Settings\" & objSubFolder.Name & "\Local Settings\Application Data\Microsoft\Office") Then
		'Copy .QAT Files - code below
	    Else
		'Create 'Office' Folder
            	ParentFolder = "C:\Documents and Settings\" & objSubFolder.Name & "\Local Settings\Application Data\Microsoft"
            	set objShell = CreateObject("Shell.Application")
    	    	set objFolder2 = objShell.NameSpace(ParentFolder) 
    	 	objFolder2.NewFolder "Office"
	    End If
	Else
	    'Create 'Microsoft' Folder
            ParentFolder = "C:\Documents and Settings\" & objSubFolder.Name & "\Local Settings\Application Data"
            set objShell = CreateObject("Shell.Application")
    	    set objFolder2 = objShell.NameSpace(ParentFolder) 
    	    objFolder2.NewFolder "Microsoft"
 
	    'Create 'Office' Folder
	    ParentFolder = "C:\Documents and Settings\" & objSubFolder.Name & "\Local Settings\Application Data\Microsoft"
            set objShell = CreateObject("Shell.Application")
    	    set objFolder2 = objShell.NameSpace(ParentFolder) 
    	    objFolder2.NewFolder "Office"   
	End If
	'Copy .QAT Files - don't overwrite existing files.
	objFSO.CopyFile "\\server\share\Office 2007 Enterprise\Updates\*.qat", "C:\Documents and Settings\" & objSubFolder.Name & "\Local Settings\Application Data\Microsoft\Office\", False
	
         '''You must alter the above line to show where you have saved the source .qat files - don't change the destination path.
 
    End If
Next
'MsgBox "Operation Completed Successfully"

Open in new window

0

Featured Post

Simplifying Server Workload Migrations

This use case outlines the migration challenges that organizations face and how the Acronis AnyData Engine supports physical-to-physical (P2P), physical-to-virtual (P2V), virtual to physical (V2P), and cross-virtual (V2V) migration scenarios to address these challenges.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

In this article we discuss how to recover the missing Outlook 2011 for Mac data like Emails and Contacts manually.
My experience with Windows 10 over a one year period and suggestions for smooth operation
In a previous video Micro Tutorial here at Experts Exchange (http://www.experts-exchange.com/videos/1358/How-to-get-a-free-trial-of-Office-365-with-the-Office-2016-desktop-applications.html), I explained how to get a free, one-month trial of Office …
Excel styles will make formatting consistent and let you apply and change formatting faster. In this tutorial, you'll learn how to use Excel's built-in styles, how to modify styles, and how to create your own. You'll also learn how to use your custo…

726 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question