Solved

How to standardise the fonts in office 2007 via group policy

Posted on 2008-10-09
9
1,324 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
Efficient way to get backups off site to Azure

This user guide provides instructions on how to deploy and configure both a StoneFly Scale Out NAS Enterprise Cloud Drive virtual machine and Veeam Cloud Connect in the Microsoft Azure Cloud.

 
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

Zoho SalesIQ

Hassle-free live chat software re-imagined for business growth. 2 users, always free.

Question has a verified solution.

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

In case Office 2010 has not been deployed in your environment, this article may be quite useful. In our office, we wanted a way to deploy Microsoft Office Professional Plus 2010 through an automated batch file via logon script. This article is docum…
Learn about cloud computing and its benefits for small business owners.
The viewer will learn how to make their project stand out over others by learning how to change colors and shapes, add spaces, change directions, and add bullets to their charts.
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…

914 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

16 Experts available now in Live!

Get 1:1 Help Now