Default font policy

[Merkie18]

Hallo allemaal,

Ik had even een vraag met betrekking tot Policy's.
Ik draai een Windows 2003 AD. Ik wil graag dat alle werkstations hetzelfde standaard font krijgen via een policy. Weten jullie welke policy dit is of hoe dit werkt?

Groeten,
Merkie18!

 

[dvanleur]

Hoi,

Betreft dit een standaard font die door Word, of zoiets gebruikt dient te worden?

 

[Merkie18]

Hoi

Bedankt voor je antwoord! Het betreft inderdaad een standaard font voor Word en Excel en voor Novell groupwise. Word en Excel zijn de belangrijkste. Dit zou dan via een group policy in active directory op alle machines moeten worden ingesteld.

ik draai:

Windows 2000 en Windows XP
Office 2000 en 2003.

Weet jij een manier om dit in te stellen?

Alvast bedankt voor je antwoord.

Merkie18.

Hoi,

Betreft dit een standaard font die door Word, of zoiets gebruikt dient te worden?

 

[Ellasar]

voor office zijn adm templates beschikbaar die je kan importeren waarmee je een gpo voor office kan instellen

http://office.microsoft.com/en-us/ork2003/HA011402401033.aspx

http://office.microsoft.com/en-us/ork2000/HA011383041033.aspx

 

[Merkie18]

Bedankt voor je antwoord! Helaas kun je met deze templates het lettertype niet aanpassen, alleen tools en andere opties.

Merkie18

voor office zijn adm templates beschikbaar die je kan importeren waarmee je een gpo voor office kan instellen

http://office.microsoft.com/en-us/ork2003/HA011402401033.aspx

http://office.microsoft.com/en-us/ork2000/HA011383041033.aspx

 

[eatsoup]

een oud thread, maar voor mensen die dit zoeken, ik heb het opgelost doormiddel van een vbs scriptje.

Ben hier zelf ook lang mee bezig geweest om dit op te lossen.

'Normal.dot editor Luuk ***** 21-09-2010


On Error Resume Next
Set oShell = CreateObject("Wscript.Shell")  
strUserProfile = oShell.ExpandEnvironmentStrings("%APPDATA%\Microsoft\Sjablonen\")

Set objWord = CreateObject("Word.Application")
	objWord.Visible = False
	objWord.Documents.Open(strUserProfile & "normal.dot")

Set objSelection = objWord.Selection


	With objSelection.Font
			.Size = "10"
			.Name = "Arial"
			.Color = RGB(0,0,0)
	End With
	
objWord.ActiveDocument.Save
objWord.Quit

 

[satshow]

Bij deze gaat er ook een slotje op.