LO Macro: Insert Index Mark

Working macro to insert Index Mark, update Indexes:

Sub SetIndex
' see: https://wiki.openoffice.org/wiki/Documentation/DevGuide/Text/Indexes_and_Index_Marks
  oSelection = ThisComponent.CurrentController.Selection
  oIndex =ThisComponent.createInstance("com.sun.star.text.ContentIndexMark")
 oIndex.setPropertyValue ( "Level", 4)
  for Int1 = 0 to oSelection.Count -1
    oSel1 = oSelection (Int1)
    if HasUnoInterfaces(oSel1,"com.sun.star.text.XTextRange") Then
      ThisComponent.Text.InsertTextContent(oSel1, oIndex, True)
    end If
  Next Int1
Update_Index 'Call Sub Update_Index
End Sub

sub Update_Index
dim document   as object
dim dispatcher as object
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:UpdateAllIndexes", "", 0, Array())
end sub