Not sure about your original request based on size but below is an alternative if no other found:
If you can place xxx after each image then you can open the word doc with the images, press F11 to open vb editor and run the macro below in the worksheet.
xxx - represents the string to seperate each image and can be changed in the top of the sub.
Images - is the name each file with start with followed by 001 and higher based on the number of files.
You will also get a Message Box count of the number of files with the option to proceed or not.
Sub SplitNotes()
'Run only this sub - It will run the other
'delimiter & filename
'Change xxx to string to look for after each image or section
'Change notes to the name of the file
Processor "xxx", "Images "
End Sub
Private Sub Processor(delim As String, strFilename As String)
Dim doc As Document
Dim arrNotes
Dim I As Long
Dim X As Long
Dim Response As Integer
arrNotes = Split(ActiveDocument.Range, delim)
Response = MsgBox("This will split the document into " & UBound(arrNotes) + 1 & " sections.Do you wish to proceed?", 4)
If Response = 7 Then Exit Sub
For I = LBound(arrNotes) To UBound(arrNotes)
If Trim(arrNotes(I)) <> "" Then
X = X + 1
Set doc = Documents.Add
doc.Range = arrNotes(I)
doc.SaveAs ThisDocument.Path & "\" & strFilename & Format(X, "000")
doc.Close True
End If
Next I
End Sub
Bookmarks