Software Deployment

I wrote a hefty automation script once upon a time, because the company I worked for then wanted to standardise the font to Arial (not Calibri) amongst other things, whilst not overwriting what the user already had (in case they had templated macros and custom styles etc etc)

Here's part of what I knocked up....I also did it for Powerpoint, Excel, Outlook etc. Not sure if what I have here is slightly old (untested) code (it's in my archived scripts) but feel free to have a dig through it....

Option Explicit
On Error Resume Next

Dim WshShell
set WshShell = CreateObject("WScript.Shell")

Dim currentUserAppData
currentUserAppData = WshShell.RegRead("HKCU\Volatile Environment\APPDATA")

Dim templateFolderPath : templateFolderPath = currentUserAppData & "\Microsoft\Templates\"

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")

'***We need to create normal.dot first, otherwise creation of normal.dotm fails.
'Word 2003
generateTemplate("Normal.dot")

'Word 2007
generateTemplate("Normal.dotm")

Function generateTemplate(fname)

'Generate path to normal.dot
Dim templateFilePath : templateFilePath = templateFolderPath & fname

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")

'Create Word automation object
Dim Word
Set Word = CreateObject ("word.application")
Dim wordDoc
Const wdLineSpacingSingle = 0


If fso.FileExists(templateFilePath) Then
'open template
Set wordDoc = Word.Documents.Open(templateFilePath)
Else
'create template path if not exist
If Not fso.FolderExists(templateFolderPath) Then
fso.CreateFolder(templateFolderPath)
End If
'create template
Set wordDoc = Word.Documents.Add

End If



'change font to Arial, 11
Dim objSelection
Set objSelection = Word.Selection


objSelection.Font.Name = "Arial"
objSelection.Font.Size = "11"
objSelection.Font.Bold = False
objSelection.Font.color = wdColorBlack
objSelection.ParagraphFormat.LineSpacingRule = wdLineSpacingSingle
objSelection.ParagraphFormat.SpaceAfter = 0

'-587137025 = black

With wordDoc.Styles("Heading 1").Font
.Name = "Arial"
.Size = 16
.Bold = True
.Color = wdColorBlack
End With
With wordDoc.Styles("Heading 1").ParagraphFormat
.SpaceBefore = 12
.SpaceAfter = 3
End With

With wordDoc.Styles("Heading 2").Font
.Name = "Arial"
.Size = 14
.Bold = True
.Italic = True
.Color = wdColorBlack
End With
With wordDoc.Styles("Heading 2").ParagraphFormat
.SpaceBefore = 12
.SpaceAfter = 3
End With

With wordDoc.Styles("Heading 3").Font
.Name = "Arial"
.Size = 13
.Bold = True
.Color = wdColorBlack
End With
With wordDoc.Styles("Heading 3").ParagraphFormat
.SpaceBefore = 12
.SpaceAfter = 3
End With

Const wdFormatTemplate = 1
Const wdFormatXMLTemplateMacroEnabled = 15

'get template type
Dim templateType : templateType = Right(templateFilePath, Len(templateFilePath) - InStrRev(templateFilePath, "."))

'save .dot file
Select Case templateType
Case("dot")
wordDoc.SaveAs templateFilePath, wdFormatTemplate
Case("dotm")
wordDoc.SaveAs templateFilePath, wdFormatXMLTemplateMacroEnabled
End Select

'close word document
wordDoc.close

'quit automation object
Word.Quit

'release object
Set Word = Nothing


End Function

'release other objects
Set fso = Nothing
Set WshShell = Nothing


Default fonts are controlled by templates, e.g. NORMAL.DOT[x] in Word. Create a customised version for each app and install them. Personally, I avoid replacing the default templates and use the different start-up folders to hold customisations because the defaults get replaced during upgrades and/or re-installs.

Ok thanks, so I assume this means that you can't set the default fonts up in the OCT?

Kind of. You'll need to add the files which comprise the template(s) and set their target folder(s) to be the start-up folder appropriate for the particular application. You add those files in one of the later dialogs in OCT.