Public Sub IsObjectProp()
	'В этом примере используется свойство IsObjectValid
	Dim MyPath As String
	Dim SecondDoc As Document
	MyPath = ActiveDocument.Path
	'Определяем объект
	Set SecondDoc = Documents.Open(MyPath & "\DocTwo.doc")
	'Удаляем объект, возможно, по ошибке
	Documents(1).Close
	'Теперь нам объект понадобился
	If Not IsObjectValid(SecondDoc) Then
		'Добавляем элемент в коллекцию
		Set SecondDoc = Documents.Open(MyPath & "\DocTwo.doc")
	End If
	'Работа с документом DocTwo
	Debug.Print SecondDoc.Name
	
End Sub