Automatically Add QAT Items

[ct253704]

Good afternoon,

I was curious if anyone knows if there are commands or files that are responsible for displaying/not displaying buttons on the quick access toolbar in word/excel/outlook/ppt. 

When we set up the user-side config on new computers we always have to add all of the buttons we want manually because we like for them all to be the same. For instance, in word we have to add Quick save, quick print, etc. to the taskbar at the top or people complain. I would like to automate this as doing it for four different programs each time is annoying and mind-numbing. If it's possible, could someone maybe point me in the right direction or get me started with a single button example?

If not, well then back to click, click, click, click....

Cheers.

[JLogan3o13]

What version of Office? In 2007 I know you had to copy the actual file (<User Profile>AppDataLocalMicrosoftOffice*.qat).

But in 2010 and above you should be able to export:

• File>>Options>>Customize Ribbon or Quick Access Toolbar
• Create Customizations then Export
• Import the *.exportedUI file on another PC

[ct253704]

Thanks JLogan! This isn't exactly what I was looking for as it requires going into the actual programs and manually importing, but it DID lead me to a good answer, so thank you for getting me on the right path. Using Win 7 and Office 2013 I set up the QAT locally then closed the program. I copied the PowerPoint.officeUI, Excel.officeUI, Word.officeUI, and olkexplorer.officeUI files to our network shared drive for administrators, then added this script to my GUI to allow for a simple copy from the shared drive to the C:Users%username%AppDataLocalMicrosoftOffice folder on the client machine. However, I can't seem to get the file to copy using this script:

#include <FileConstants.au3>
#include <MsgBoxConstants.au3>

Call ("OfficeUI")

Func OfficeUI ()

FileCopy ("\\fileserver01\disks\OfficeUI\olkexplorer.officeUI", @AppDataDir & "\Local\Microsoft\Office", $FC_OVERWRITE)

ShellExecute (@UserProfileDir & "\appdata\Local\Microsoft\Office")

EndFunc

I assume I am using AppDataDir incorrectly somehow. I want to copy the file to C:users%username%AppDataLocalMicrosoftOffice.

I have also tried

Call ("OfficeUI")

Func OfficeUI ()

FileCopy ("\\fileserver01\disks\OfficeUI\olkexplorer.officeUI", @UserProfileDir & "\appdata\Local\Microsoft\Office")

ShellExecute (@UserProfileDir & "\appdata\Local\Microsoft\Office")

EndFunc

 

Nevermind, it was a local connection issue where our Fileserver had just gone down. Bad timing, haha. The second script worked fine.

Edited September 15, 2014 by ct253704