[RESUELTO] Eliminar Marcadores

[Donilo]

Hola de nuevo a todos.

Ya tengo bastante avanzada la aplicacion, pero me surje un nuevo problema.
Dado un documento de texto al que he importado otros documentos que tienen marcadores (marca de texto), la pregunta es la siguiente, ¿como puedo eliminar todos los marcadores del documento con el que estoy trabajando?

Gracias a todos y un saludo.

[FJCC-ES]

Este código elimina todas las marcas de texto.

Código: Seleccionar todo

dim args1(0) as new com.sun.star.beans.PropertyValue
Frame   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

BookMarks = ThisComponent.getBookmarks()
Nombres = BookMarks.getElementNames
For Each Nombre in Nombres
	args1(0).Name = "Bookmark"
	args1(0).Value =  Nombre
	dispatcher.executeDispatch(Frame, ".uno:DeleteBookmark", "", 0, args1())
Next Nombre

[mauricio]

Hola...

Otra forma...

Código: Seleccionar todo

Option Explicit

Sub Main
Dim oMarcas As Object
Dim Nombre As String
Dim mNombres()

	oMarcas = ThisComponent.getBookmarks
	mNombres = oMarcas.getElementNames	
	For Each Nombre In mNombres
		ThisComponent.getText.removeTextContent( oMarcas.getByName( Nombre ) )
	Next Nombre
		
End Sub

Por favor, si esto responde tu pregunta, edita el primer mensaje de este hilo y agrega al principio del título la etiqueta [RESUELTO], de esta forma conseguiremos un foro más ordenado.

Saludos

[Donilo]

Resuelto, muchas gracias por la ayuda.