Public Sub InsertLabelInDoc()
	'Вставка заголовка в текст документа
		'Вставка заголовков
		With ActiveDocument
			.Paragraphs.Add
			.Paragraphs.Last.Range.Select
			Selection.InsertCaption Label:="Диаграмма Excel"
			.Paragraphs.Add
			.Paragraphs.Last.Range.Select
			Selection.InsertCaption Label:=CaptionLabels(CaptionLabels.Count)
		End With
End Sub