Sub Example_PageSetupOverridesTemplateFile()

' Обратите внимание: Измените путь к файлу и название на допустимый файл в вашей системе.
	
	Dim MyFiles As IAcadPreferencesFiles2
	Set MyFiles = AcadApplication.Preferences.Files
	MyFiles.PageSetupOverridesTemplateFile = "C:\MyTemplate.dwt"

End Sub