Private Sub Class_Initialize()
	? Попытка обработки, если в системе не инсталлирован Word.
	Me.Initialized = False
	On Error Resume Next
? Begin Callout A
	Set Me.Word = CreateObject(«Word.Application»)
? End Callout A
	If Err.Number <> 0 Then
		ErrNumber = Err.Number: ErrInfo = Err.Description
		Exit Sub
	End If
	Me.Word.AutomationSecurity = Me.AutomationSecurity
? Начало фрагмента B
	Me.Word.DisplayAlerts = 0
? Конец фрагмента B
	Me.Word.Options.AnimateScreenMovements = False
	? Операция выполнена успешно; сброс Initialized и настройка деталей
	Me.Initialized = True
	Err.Clear
	On Error Goto 0
	CreateFormatCollections()
End Sub

Поделитесь материалом с коллегами и друзьями