Siguiendo las instrucciones:
Abrimos el notepad de windows.
![](http://img166.exs.cx/img166/6856/12gb.jpg)
Abierto asi tal cual lo grabamos solo que modificar para no grabarlo como TXT, seleccionar la opcion en tipo de archivo All files despues NOMBREARCHIVO.GMS
![](http://img166.exs.cx/img166/6905/20jk.jpg)
Buscamos la ruta donde se instalan estas acciones, Draw\Scripts
![](http://img166.exs.cx/img166/1306/35dq.jpg)
Posteriormente abrimos Corel y vamos al editor de visual basic
![](http://img166.exs.cx/img166/9748/47pi.jpg)
Seleccionamos nuestra rutina.
![](http://img166.exs.cx/img166/1909/52rx.jpg)
Abierto el editor seleccionamos nuestro documento, y click boton derecho para adicionar las siguientes lineas.
![](http://img166.exs.cx/img166/6497/65ju.jpg)
Las cuales quedaran así
![](http://img166.exs.cx/img166/6979/76lc.jpg)
Dim s As TextRange
Dim ap As String
Dim c As Long
Sub MCVerti()
ap = Left(AppWindow.Caption, 12)
If ActiveShape.Type = cdrTextShape Then
Set s = ActiveShape.Text.Story.Characters.All
ActiveTool = cdrToolDrawText
c = s.Characters.Count - 1
Do While c <> 0
AppActivate ap, False
SendKeys "{home}", True
SendKeys "{right}", True
SendKeys "{enter}", True
c = c - 1
Loop
s.Alignment = cdrCenterAlignment
s.LineSpacing = 80
End If
Ahora lo anterior hay que ajustarlo para que las ordenes sigan sin ningun problema.
![](http://img166.exs.cx/img166/9885/86jq.jpg)
Lo grabamos y regresamos a corel donde tenemos nuestro texto de prueba.
![](http://img166.exs.cx/img166/8175/96fj.jpg)
Ejecutamos la macro.
![](http://img166.exs.cx/img166/9151/102lq.jpg)
Y automáticamente se activa.
![](http://img166.exs.cx/img166/1599/113bc.jpg)
Quedando de la siguiente forma.
![](http://img166.exs.cx/img166/7489/121ol.jpg)
Ahora al ejecutarlo me marco algunos errores y al final tenia que agregar una orden como lo marco en la siguiente imagen.
![](http://img166.exs.cx/img166/8261/134rv.jpg)
Las alineaciones de las ordenas las hice en el notepad y las pegue al editor de Vidual Basic.
El texto con las adiciones:
Dim s As TextRange
Dim ap As String
Dim c As Long
Sub MCVerti()
ap = Left(AppWindow.Caption, 12)
If ActiveShape.Type = cdrTextShape Then
Set s = ActiveShape.Text.Story.Characters.All
ActiveTool = cdrToolDrawText
c = s.Characters.Count - 1
Do While c <> 0
AppActivate ap, False
SendKeys "{home}", True
SendKeys "{right}", True
SendKeys "{enter}", True
c = c - 1
Loop
s.Alignment = cdrCenterAlignment
s.LineSpacing = 80
End If
End Sub