Página 1 de 1
Cortar pegar?
Publicado: Mié Jul 08, 2009 1:44 pm
por muni84
Hola muy buenas. Estoy desarrollando una macro y necesito cortar un texto y pegarlo en otro sitio. Estoy buscando la manera, y he visto que se puede hacer utilizando el servicio UNO. Hay alguna otra manera de hacerlo? Alguien ha hecho algo similar?
Muchas gracias de antemano, y un saludo.
Re: Cortar pegar?
Publicado: Vie Jul 10, 2009 8:24 pm
por FJCC-ES
Se puede cortar y pegar texto con un Text Cursor. Este código corta el primer párrafo y lo pega al final del documento.
Código: Seleccionar todo
Doc = ThisComponent
Texto = Doc.Text
Cursor = Texto.createTextCursor()
Cursor.gotoStart(False)
Cursor.gotoEndOfParagraph(True)
TextoDeParra = Cursor.String
Cursor.String = "" 'Corta el parrafo
Cursor.gotoEnd(False)
Cursor.String = TextoDeParra 'pega el parrafo