Uso corel Draw y quiero crear un macro que permita de la seleccion actual hacer una copia justo debajo, despues en esa copia coger unicamente el texto y cambiarlo por cualquier otro texto, por ejemplo "nuevo texto". Cree mi codigo entre experimentos y con Chat GPTtutoriales por ahi, el codigo actual no me funciona porque dice que la linea "Set TextSelection = OrigSelection.CreateSelectionFromType(cdrArtisticTextShape)" es un objeto que no admite esta propiedad o metodo, asumo que el programa no entiende que es lo que necesito seleccionar.
Lo que creo que necesito es una linea de codigo que permita de la seleccion de la copia coger unicamente el texto y luego aplicarle la linea que cambia el texto.
Te agradezco si me puedes ayudar ;)
Aqui el codigo:
Sub CambiarTexto()
' Declara dos variables: "OrigSelection" y "dup1"
Dim OrigSelection As ShapeRange
Set OrigSelection = ActiveSelectionRange
Dim dup1 As ShapeRange
Set dup1 = OrigSelection.Duplicate
Dim TextSelection As ShapeRange
' Mueve la copia de la selección actual de formas (dup1) 0 unidades a la izquierda y la altura de la selección original hacia arriba
dup1.Move 0#, -0.393701
' Crea una nueva selección de formas que incluye solo las formas de texto de la copia de la selección
Set TextSelection = OrigSelection.CreateSelectionFromType(cdrArtisticTextShape)
' Cambia el contenido del texto de la primera forma de texto en la copia de la selección
dup1.Shapes(0).Text.Story.String = "Nuevo texto"
End Sub