Microsoft Office Forums - View Single Post

macropod · 05-24-2018, 03:55 PM

You could but, by the time you've found & inserted the image name, you've probably spent nearly as much time as you would inserting the image. The following macro assumes the text between the square brackets is the image name, including the file extension (e.g. [ScreenShot1.png])

Code:

Sub InsertPics()
Application.ScreenUpdating = False
Dim strFolder As String, strFile As String
strFolder = GetFolder
If strFolder = "" Then Exit Sub
With ActiveDocument.Range
  With .Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "\[[!\[]@\]"
    .Replacement.Text = ""
    .Format = False
    .Forward = True
    .Wrap = wdFindStop
    .MatchWildcards = True
    .Execute
  End With
  Do While .Find.Found
    strFile = Trim(Replace(Replace(.Duplicate.Text, "[", ""), "]", ""))
    If Dir(strFolder & "\" & strFile) <> "" Then
      .InlineShapes.AddPicture strFolder & "\" & strFile, False, True, .Duplicate
    End If
    .Collapse wdCollapseEnd
    .Find.Execute
  Loop
End With
Application.ScreenUpdating = True
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