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.
Cortar pegar?
Re: Cortar pegar?
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