Solved

How to standardise the fonts in office 2007 via group policy

Posted on 2008-10-09
9
1,335 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
[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
  • 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
Free Webinar: AWS Backup & DR

Join our upcoming webinar with experts from AWS, CloudBerry Lab, and the Town of Edgartown IT to discuss best practices for simplifying online backup management and cutting costs.

 

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
 
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

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

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

No matter the version of Windows you are using, you may have some problems with Windows Search running too slow or possibly not running at all. Before jumping into how you can solve this issue, just know there are many other viable alternative deskt…
Since upgrading to Office 2013 or higher installing the Smart Indenter addin will fail. This article will explain how to install it so it will work regardless of the Office version installed.
The viewer will learn how to simulate a series of sales calls dependent on a single skill level and learn how to simulate a series of sales calls dependent on two skill levels. Simulating Independent Sales Calls: Enter .75 into cell C2 – “skill leve…
The viewer will learn how to create two correlated normally distributed random variables in Excel, use a normal distribution to simulate the return on different levels of investment in each of the two funds over a period of ten years, and, create a …

730 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