Hello.

I try to replace every occurrence of a certain string by an image. It loops, but writer only replaces the first occurence and I don't see why. Here ist the code:

I am using LO 4.1
The code:

Sub InsertLogo()
  Dim oGraph
  Dim oDescriptor  'The search descriptor
  Dim oFound       'The found range
  Dim oFoundAll    'The found range
  Dim n%           'General index variable
  Dim oCursor

  oGraph = ThisComponent.createInstance("com.sun.star.text.GraphicObject")
  With oGraph
    .GraphicURL = "file://localhost/anydirectory/logo.png"
    .AnchorType = com.sun.star.text.TextContentAnchorType.AS_CHARACTER
    .Width = 910
    .Height = 420
    .VertOrient = 4 'CHAR_TOP
  End With
  
  oDescriptor = ThisComponent.createSearchDescriptor()
  oDescriptor.SearchString = "{logo}"
  oFoundAll = ThisComponent.findAll(oDescriptor)
  For n% = 0 to oFoundAll.getCount()-1
	oFound = oFoundAll.getByIndex(n%)
	oFound.setString("")
	oCursor = oFound.getStart()
	oFound.getText().insertTextContent( oCursor, oGraph, False )
  Next

End Sub