Solved

Save Office 07 Quick Access Toolbar settings

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

What Should I Do With This Threat Intelligence?

Are you wondering if you actually need threat intelligence? The answer is yes. We explain the basics for creating useful threat intelligence.

Join & Write a Comment

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 simulate a series of coin tosses with the rand() function and learn how to make these “tosses” depend on a predetermined probability. Flipping Coins in Excel: Enter =RAND() into cell A2: Recalculate the random variable…
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…

762 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

Need Help in Real-Time?

Connect with top rated Experts

23 Experts available now in Live!

Get 1:1 Help Now