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 GPT, 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. 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