Página 1 de 1
[RESUELTO] Eliminar Marcadores
Publicado: Mié May 26, 2010 12:08 pm
por 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.
Re: Eliminar Marcadores
Publicado: Mié May 26, 2010 7:59 pm
por 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
Re: Eliminar Marcadores
Publicado: Jue May 27, 2010 12:19 am
por 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
Re: Eliminar Marcadores
Publicado: Jue May 27, 2010 9:21 pm
por Donilo
Resuelto, muchas gracias por la ayuda.