Insert the image into the corresponding position in word

[hattieucoi91]

I have an exercise file (n sentences) and a folder containing (n images). I need to find a way to insert n images under each corresponding sentence.
Hope your help. Thanks somuch

sorry I can't put the rar file, here is example link
https://drive.google.com/file/d/1O3M...ew?usp=sharing

[Aussiebear]

Welcome to VBAX hattieucoi91. Hopefully one of the word specialists can assist you here.

[fouad]

Welcome

[gmayor]

Based on your example

Sub InsertImages()
Dim i As Integer, j As Integer
Dim oRng As Range
Dim sName As String
Dim sPath As String
j = 0
    sPath = BrowseForFolder("Select folder containing images")
    For i = 1 To ActiveDocument.Range.Paragraphs.Count
        If i Mod 2 = 0 Then
            j = j + 1
            sName = sPath & j & ".png"
            Set oRng = ActiveDocument.Range.Paragraphs(i).Range
            oRng.Collapse 0
            oRng.InlineShapes.AddPicture sName
        End If
    Next i
lbl_Exit
    Set oRng = Nothing
    Exit Sub
End Sub

Private Function BrowseForFolder(Optional strTitle As String) As String
'Graham Mayor
'strTitle is the title of the dialog box
Dim fDialog As FileDialog
    On Error GoTo Err_Handler
    Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)
    With fDialog
        .Title = strTitle
        .AllowMultiSelect = False
        .InitialView = msoFileDialogViewList
        If .Show <> -1 Then GoTo Err_Handler:
        BrowseForFolder = fDialog.SelectedItems.Item(1) & Chr(92)
    End With
lbl_Exit:
    Exit Function
Err_Handler:
    BrowseForFolder = vbNullString
    Resume lbl_Exit
End Function

should work.

[hattieucoi91]

thank you verymuch, but it doesn't work.
bao loi.jpg

[hattieucoi91]

Based on your example

Sub InsertImages()
Dim i As Integer, j As Integer
Dim oRng As Range
Dim sName As String
Dim sPath As String
j = 0
    sPath = BrowseForFolder("Select folder containing images")
    For i = 1 To ActiveDocument.Range.Paragraphs.Count
        If i Mod 2 = 0 Then
            j = j + 1
            sName = sPath & j & ".png"
            Set oRng = ActiveDocument.Range.Paragraphs(i).Range
            oRng.Collapse 0
            oRng.InlineShapes.AddPicture sName
        End If
    Next i
lbl_Exit
    Set oRng = Nothing
    Exit Sub
End Sub

Private Function BrowseForFolder(Optional strTitle As String) As String
'Graham Mayor
'strTitle is the title of the dialog box
Dim fDialog As FileDialog
    On Error GoTo Err_Handler
    Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)
    With fDialog
        .Title = strTitle
        .AllowMultiSelect = False
        .InitialView = msoFileDialogViewList
        If .Show <> -1 Then GoTo Err_Handler:
        BrowseForFolder = fDialog.SelectedItems.Item(1) & Chr(92)
    End With
lbl_Exit:
    Exit Function
Err_Handler:
    BrowseForFolder = vbNullString
    Resume lbl_Exit
End Function

should work.

thankyou verymuch but it doesn't work
bao loi.jpg

[gmayor]

lbl_Exit should have a colon after it. (See the function below it).

[hattieucoi91]

lbl_Exit should have a colon after it. (See the function below it).

it's done, thank for your help! Great.

[hattieucoi91]

I have two problems
1-The answer has many pictures, will be named 3a, 3b, 3c...
2-If there is no image corresponding to the question number, the question will be highlighted
hope the helping

Based on your example

Sub InsertImages()
Dim i As Integer, j As Integer
Dim oRng As Range
Dim sName As String
Dim sPath As String
j = 0
    sPath = BrowseForFolder("Select folder containing images")
    For i = 1 To ActiveDocument.Range.Paragraphs.Count
        If i Mod 2 = 0 Then
            j = j + 1
            sName = sPath & j & ".png"
            Set oRng = ActiveDocument.Range.Paragraphs(i).Range
            oRng.Collapse 0
            oRng.InlineShapes.AddPicture sName
        End If
    Next i
lbl_Exit
    Set oRng = Nothing
    Exit Sub
End Sub

Private Function BrowseForFolder(Optional strTitle As String) As String
'Graham Mayor
'strTitle is the title of the dialog box
Dim fDialog As FileDialog
    On Error GoTo Err_Handler
    Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)
    With fDialog
        .Title = strTitle
        .AllowMultiSelect = False
        .InitialView = msoFileDialogViewList
        If .Show <> -1 Then GoTo Err_Handler:
        BrowseForFolder = fDialog.SelectedItems.Item(1) & Chr(92)
    End With
lbl_Exit:
    Exit Function
Err_Handler:
    BrowseForFolder = vbNullString
    Resume lbl_Exit
End Function

should work.