Public Sub AddTwoShapes()
'добавляются рисунки в коллекцию TableOfFiguress и InlineShapes
	Dim Item  As AutoCaption
	Dim MyPath As String
	Documents("DocOne").Activate
	MyPath = ActiveDocument.Path
	'Отключим вставку автозаголовока для рисунков
	Set Item  = Word.Application.AutoCaptions("Microsoft Word Picture")
	item.AutoInsert = False
	
	With ActiveDocument
		'Рисунок добавляется в коллекцию TableOfFiguress
		.Shapes.AddPicture FileName:=MyPath & "\cat.gif"
		
		'Рисунок добавляется в коллекцию InlineShapes
		'привязывается к первому параграфу документа.
		.InlineShapes.AddPicture FileName:=MyPath & "\mouse.bmp", _
			Range:=.Paragraphs.First.Range
	End With
End Sub


Листинг 1.32.
Закрыть окно