Foros del Web - Corel Draw 11 Escribir Vertical por Michael Cervantes

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

Cita:

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:

Cita:

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