Solved

How to standardise the fonts in office 2007 via group policy

Posted on 2008-10-09
9
1,330 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
PRTG Network Monitor: Intuitive Network Monitoring

Network Monitoring is essential to ensure that computer systems and network devices are running. Use PRTG to monitor LANs, servers, websites, applications and devices, bandwidth, virtual environments, remote systems, IoT, and many more. PRTG is easy to set up & use.

 

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

NAS Cloud Backup Strategies

This article explains backup scenarios when using network storage. We review the so-called “3-2-1 strategy” and summarize the methods you can use to send NAS data to the cloud

Question has a verified solution.

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

Suggested Solutions

Title # Comments Views Activity
how to open abcd.txt.orig file? 10 45
how to re-acticvate Office 2010 6 41
DHCP lease duration / Migration 8 50
stuck in average 16 47
This article will show you how to use shortcut menus in the Access run-time environment.
In this article we discuss how to recover the missing Outlook 2011 for Mac data like Emails and Contacts manually.
The view will learn how to download and install SIMTOOLS and FORMLIST into Excel, how to use SIMTOOLS to generate a Monte Carlo simulation of 30 sales calls, and how to calculate the conditional probability based on the results of the Monte Carlo …
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 …

813 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

17 Experts available now in Live!

Get 1:1 Help Now