This is crude but should get you started.
Sub InsertImages()
Dim lngCount As Long, oTbl As Table, oCell As Cell
Dim oRng As Range, oILS As InlineShape
Dim strFolder As String, strFile As String
Application.ScreenUpdating = False
strFolder = GetFolder
If strFolder = "" Then Exit Sub
Set oTbl = ActiveDocument.Tables(1)
oTbl.AutoFitBehavior (wdAutoFitFixed)
strFile = Dir(strFolder & "\*.*", vbNormal)
While strFile <> ""
If InStr(strFile, "jpg") > 0 Or InStr(strFile, "png") > 0 Then 'To filter only jpg and png graphic files
lngCount = lngCount + 1
If lngCount > oTbl.Rows.Count - 1 Then oTbl.Rows.Add
Set oCell = oTbl.Cell(lngCount + 1, 3)
Set oRng = oCell.Range
oRng.Collapse wdCollapseStart
Set oILS = oRng.InlineShapes.AddPicture(FileName:=strFolder & Application.PathSeparator & strFile, _
LinkToFile:=False, SaveWithDocument:=True)
With oILS
'Manipulate to suit
End With
End If
strFile = Dir()
Wend
Application.ScreenUpdating = True
lbl_Exit:
Exit Sub
End Sub
Function GetFolder() As String
Dim oFolder As Object
GetFolder = ""
Set oFolder = CreateObject("Shell.Application").BrowseForFolder(0, "Choose a folder", 0)
If (Not oFolder Is Nothing) Then GetFolder = oFolder.Items.Item.Path
Set oFolder = Nothing
End Function
But to really get started, you have to write some code.
Sub Help()
Msgbox "What do I next"
End Sub
Is better than nothing ;-)