Solved

How to standardise the fonts in office 2007 via group policy

Posted on 2008-10-09
9
1,321 Views
Last Modified: 2011-10-03
Hi,

I would like to standardise all the users fonts in Office 2007 to Arial, 11.  I cannot seem to find a way to do this with the Office 2007 ADM files.  Is it possible and how can i do it?

I would like mainly outlook and word to be standardised but if excel could aswell that would be great.

Also i would like to lock the signatures so that users cannot edit these once they have been set by me manually on the user pc.
0
Comment
Question by:healthfoundation
  • 5
  • 4
9 Comments
 
LVL 7

Expert Comment

by:enzogoy
ID: 22783389
It's on the template file.  With Word, it's gonna be Normal.dotm while outlook will have NormalEmail.dotm (I think).  Both file locate under user profile in the local drive.  I use start up script to copy it to that location.  

I scratch my head to find a better solution but no luck.

enz
0
 

Author Comment

by:healthfoundation
ID: 22812971
Thanks enzogoy, could you post the script you use for me please?

Thanks!
0
 
LVL 7

Expert Comment

by:enzogoy
ID: 22817120
Here is how to create your template.  You have to create this two files first (Normal.dotm and NormalEmail.dotm), put them on the network location and then put the command into your login script (I assume you used batch file).
http://blogs.msdn.com/templates/archive/2008/04/08/creating-and-sharing-word-2007-templates.aspx

Put the following line in your batch file.
Use this if your users are using Microsoft templates at the moment and you want your new template to overwrite it.  
copy "\\Network location\folder\Normal.dotm" "%userprofile%\Application Data\Microsoft\Templates\"

If your users already have their own template and you don't want to overwrite it then:
xcopy "\\Network location\folder\Normal.dotm" "%userprofile%\Application Data\Microsoft\Templates\" /d

*** the xcopy command will check if the file exist then it will do nothing, else it will copy the file over.

For outlook, you only change the file name in the script to NormalEmail.dotm.  
If you have a folder which only have these two template file then you can replace the file name in command with *.* .

for example:
copy "\\Network location\folder\*.*" "%userprofile%\Application Data\Microsoft\Templates\"

0
 

Author Comment

by:healthfoundation
ID: 22820171
Hi,  thanks for this.

We use VB script but i think i can knock something up to do this.
0
IT, Stop Being Called Into Every Meeting

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

 
LVL 7

Expert Comment

by:enzogoy
ID: 22826623
Please let me know if you in trouble with VB script.

enz
0
 

Author Comment

by:healthfoundation
ID: 22831606
I'm currently setting up one bit at a time in a test script

This is what I currently have in the login script.
***************************************************************

'Copy Word 2007 Normal Template to the Local Hard Disk
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CopyFile "\\"SERVERNAME"\NETLOGON\Normal.dotm", "C:\Documents and Settings\"USERNAME"\Application Data\Microsoft\Templates\"

***************************************************************

With server name and user name replaced with the right words.  Now that script above works but obviously this is no good for serperate users as "USERNAME" is not a vaiable.  i have tried using "%userprofile%\Application Data\Microsoft\Templates\" but i get a 800A004C error on the VBscript saying cannot find path.

Can you help?

0
 

Author Comment

by:healthfoundation
ID: 22902918
Can anyone help with my post above???
0
 
LVL 7

Expert Comment

by:enzogoy
ID: 22918241
Could you please try this one:

****************************
'Copy Word 2007 Normal Template to the Local Hard Disk
Dim FSO, strDirectory, strUserProfile, objFolder
Set FSO = CreateObject("Scripting.FileSystemObject")
Set oShell = CreateObject( "WScript.Shell" )
strUserProfile = oshell.ExpandEnvironmentStrings("%userprofile%")
strDirectory = strUserProfile & "\Application Data\Microsoft\Templates\"
If FSO.FolderExists(strDirectory) Then
  FSO.CopyFile "\\SERVERNAME\NETLOGON\Normal.dotm", strUserProfile & "\Application Data\Microsoft\Templates\"
Else
  Set objFolder = FSO.createFolder(strDirectory)
  FSO.CopyFile "\\SERVERNAME\NETLOGON\Normal.dotm", strUserProfile & "\Application Data\Microsoft\Templates\"
End if
***********************************

Replace your SERVERNAME to the real server name, everything else keep the same.

enz
0
 
LVL 7

Accepted Solution

by:
enzogoy earned 500 total points
ID: 22918994
This one is even better:

*************************************
'Copy Word 2007 Normal Template to the Local Hard Disk
Dim FSO, strDirectory, strUserProfile, objFolder
Set FSO = CreateObject("Scripting.FileSystemObject")
Set oShell = CreateObject( "WScript.Shell" )
strUserProfile = oshell.ExpandEnvironmentStrings("%userprofile%")
strDirectory = strUserProfile & "\Application Data\Microsoft\Templates\"
If FSO.FolderExists(strDirectory) Then
  If FSO.FileExists(StrDirectory & "\Normal.dotm") then
     FSO.Deletefile(StrDirectory & "\Normal.dotm")
     FSO.CopyFile "\\"SERVERNAME"\NETLOGON\Normal.dotm", strDirectory
  Else    
     FSO.CopyFile "\\"SERVERNAME"\NETLOGON\Normal.dotm",  strDirectory
  End if
Else
  Set objFolder = FSO.createFolder(strDirectory)
  FSO.CopyFile "\\"SERVERNAME"\NETLOGON\Normal.dotm",  strDirectory
End if
*************************************
0

Featured Post

Get up to 2TB FREE CLOUD per backup license!

An exclusive Black Friday offer just for Expert Exchange audience! Buy any of our top-rated backup solutions & get up to 2TB free cloud per system! Perform local & cloud backup in the same step, and restore instantly—anytime, anywhere. Grab this deal now before it disappears!

Join & Write a Comment

I've always wanted to allow a user to have a printer no matter where they login. The steps below will show you how to achieve just that. In this Article I'll show how to deploy printers automatically with group policy and then using security fil…
Learn about cloud computing and its benefits for small business owners.
This video shows the viewer how to set up and create Footnotes in their document. Click on the References tab: Select "Insert Footnote": Type in desired text:
This video walks the viewer through the process of creating Hyperlinks for the web and other documents. Select the "Insert" tab: Click "Hyperlink":  Type "http://" followed by a web address to reference a website or navigate to a document to ref…

746 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

11 Experts available now in Live!

Get 1:1 Help Now