Automatisch verplaatsen van fotos met macro

[Marion2u]

Hoi,

In mijn document heb ik de bestandsnamen van fotos staan, deze bestandsnaam moet verplaats worden door de foto.
Ik ben er al toe gekomen dat mijn macro moet worden:

 Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "jpg"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.MoveUp Unit:=wdParagraph, Count:=1, Extend:=wdExtend
    Selection.Delete Unit:=wdCharacter, Count:=1
    Selection.InlineShapes.AddPicture FileName:=Selection.Text, LinkToFile:=False, SaveWithDocument:=True
End Sub

Zo zal hij iedere keer een andere foto nemen..maar toch geeft hij een fout aan bij de Selection.InlineShapes...
Kan ik het ook automatisch laten verlopen door bv een do while?

 

[snb]

Ik denk dat je in plaats van verplaatst, vervangen bedoelt.

Hou het simpel:

Sub tst()
  sq = Filter(Split(Replace(ActiveDocument.Content, vbCr, "")), ".jpg")
  For j = 0 To UBound(sq)
    Selection.Find.Execute sq(j)
    ActiveDocument.InlineShapes.AddPicture sq(j), , , Selection.Range
  Next
End Sub

 

[huijb]

@surfin tone Graag een eigen vraag maken a.u.b. Het is niet netjes om in een ander zijn of haar vraag jouw probleem aan de orde te stellen. Bovendien is het verwarrend voor de helpers.