Microsoft Office Forums - View Single Post - [Solved] ord vba replace the variable text with variable images to make offer products with images

gmaxey · 12-23-2015, 04:35 AM

The code you have posted won't even compile so it won't do anything. What does
September CurrrentRange supposed to mean?

Even after you got you declarations straightened out the fundamental error in your ways is using the selection object. You use the selection object to find something, find it and then redefine the selection. It is therefore impossible to find anything else in your very limited selection.

Learn to use the range object which leaves the selection alone:

Code:

Sub Replace_String_ImageNUOVO()
'A basic Word macro coded by Greg Maxey
Dim PixPathandName As String
Dim oRng As Range
  PixPathandName = "J:\APPS\ACCESS\MDB2007\FOTOxOFFERTE\"
  Set oRng = Selection.Range
  With oRng.Find
    .Text = "FOTO_"
    Do While .Execute()
      oRng.MoveEnd wdWord, 1
      Selection.InlineShapes.AddPicture FileName:=PixPathandName & Trim(oRng.Text) & ".JPG", _
      LinkToFile:=False, SaveWithDocument:=True
      oRng.Collapse wdCollapseEnd
     Loop
  End With
lbl_Exit:
  Exit Sub
End Sub