Solved

Save Office 07 Quick Access Toolbar settings

Posted on 2008-06-18
4
1,605 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
  • 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

U.S. Department of Agriculture and Acronis Access

With the new era of mobile computing, smartphones and tablets, wireless communications and cloud services, the USDA sought to take advantage of a mobilized workforce and the blurring lines between personal and corporate computing resources.

Question has a verified solution.

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

Using Word 2013, I was experiencing some incredible lag when typing.  Here's what worked for me....
This article will guide you to convert a grid from a picture into Excel format using Microsoft OneNote and no other 3rd party application.
The viewer will learn how to create a normally distributed random variable in Excel, use a normal distribution to simulate the return on an investment over a period of years, Create a Monte Carlo simulation using a normal random variable, and calcul…
Access reports are powerful and flexible. Learn how to create a query and then a grouped report using the wizard. Modify the report design after the wizard is done to make it look better. There will be another video to explain how to put the final p…

809 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