?
Solved

Save Office 07 Quick Access Toolbar settings

Posted on 2008-06-18
4
Medium Priority
?
1,618 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 2000 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

10 Questions to Ask when Buying Backup Software

Choosing the right backup solution for your organization can be a daunting task. To make the selection process easier, ask solution providers these 10 key questions.

Question has a verified solution.

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

In Part II of this series, I will discuss how to identify all open instances of Excel and enumerate the workbooks, spreadsheets, and named ranges within each of those instances.
I was prompted to write this article after the recent World-Wide Ransomware outbreak. For years now, System Administrators around the world have used the excuse of "Waiting a Bit" before applying Security Patch Updates. This type of reasoning to me …
If you’ve ever visited a web page and noticed a cool font that you really liked the look of, but couldn’t figure out which font it was so that you could use it for your own work, then this video is for you! In this Micro Tutorial, you'll learn yo…
In this video you will find out how to export Office 365 mailboxes using the built in eDiscovery tool. Bear in mind that although this method might be useful in some cases, using PST files as Office 365 backup is troublesome in a long run (more on t…

770 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