VBA Code

Documents can sometimes lose their connection to their template
Need to re-attach if invalid or cannot be found.


There is a templates collection for all the templates

Dim objTemplate As Template 
For Each objTemplate In Application.Templates
Next objTemplate

You cannot create a new template using the templates collection.
Templates are created by first creating a document and then saving it as a template, using SaveAs

ActiveDocument.SaveAs "newtemplate" wdFormatTemplate 

A template is attached to the templates collection whenever you:

  • Use the Documents.Open method

  • Use the Documents.Add method

  • Use the AttachedTemplate property to change the template for a document (i.e. replacing the existing template)

You can use the Application.NormalTemplate property to return a template object that refers to the Normal Template

Dim objTemplate As Template 
Set objTemplate = Application.NormalTemplate

Returns the template attached to the active document

Dim objTemplate As Template 
Set objTemplate = ActiveDocument.AttachedTemplate

Creates a new document from an existing document

Documents.Add Template:="C:\Temp\Template.doc" 
              NewTemplate:=True / False


Opens a template that is in the Templates collection as a document.


Dim objDocument As Document 
   Set objDocument = ActiveDocument.AttachedTemplate.OpenAsDocument
   If objDocument.Content.Text = vbCr Then
'document does not contain any text
'document does contain text
   End If
   objDocument.Close SaveChanges:=wdSaveOptions.wdDoNotSaveChanges

The following code saves a copy of the Normal.dotm template

Set objDocument = NormalTemplate.OpenAsDocument 
objDocument.SaveAs FileName:="C:\Temp\Backup.dot"
objDocument.Close SaveChanges:=wdSaveOptions.wdDoNotSaveChanges

Copying styles from a template


Using the Organiser

Application.OrganizerCopy Source:="C:\Temp\Normal.dotm", _ 
                          Destination:="C:\Temp\Document.doc", _
                          Name:="StyleName_1", _

© 2024 Better Solutions Limited. All Rights Reserved. © 2024 Better Solutions Limited TopPrevNext