Как извлечь картинку из главы и подраздела

Question

У меня проблема с извлечением изображений из документа Word.

Мне удалось успешно выбрать, а затем извлечь картинки из главы один за другим с помощью этого фрагмента кода:

With Selection
.Collapse
Dim curRange As Range
Set curRange = .Range
.Extend
.GoTo What:=wdGoToHeading, which:=wdGoToNext
If .Range = curRange Then
    .EndKey Unit:=wdStory
End If
.ExtendMode = False
Selection.copy
End With

Часть, копия которой находится здесь

fileName = Left(ActiveDocument.Name, InStrRev(ActiveDocument.Name, ".") - 1) 
fileName = Replace(fileName, " ", "_")
folderName = CreateObject("WScript.Shell").SpecialFolders.Item("Desktop")

If Selection.InlineShapes.Count > 0 Then

Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True


Set WordDoc = WordApp.Documents.Add
WordDoc.Content.Paste

For i = WordDoc.Shapes.Count To 1 Step -1
    WordDoc.Shapes(i).Delete
Next i

Dim fso As Object
Dim fldrpath As String
Set fso = CreateObject("scripting.filesystemobject")

fldrpath = folderName & "\imagesSpec\"
If Not fso.folderexists(fldrpath) Then
    fso.createfolder (fldrpath)
End If

WordDoc.SaveAs2 fileName:=folderName & "\imagesSpec\" & fileName & ".html", FileFormat:=wdFormatFilteredHTML
WordApp.Quit

Поскольку он отфильтрован по html, я получил изображения из скопированной выборки в другом текстовом документе

Что я хочу сделать сейчас - это извлечь (на самом деле: выбрать) в подглаву, если есть один или несколько

пример: я извлекаю главу 1) картинки, хочу получить 1.1), 1.2), 1.2.1) ...

Есть мысли? Спасибо