Foros de daboweb

MULTIMEDIA, Video digital, Grabación, Diseño gráfico, Diseño web, Programación => Webmasters - Diseño Web - Programación - Diseño gráfico => Mensaje iniciado por: caminante en 25 de Mayo de 2005, 04:54:58 pm

Título: Corel draw 11 Macro Escribir Vertical por Michael Cervantes
Publicado por: caminante en 25 de Mayo de 2005, 04:54:58 pm
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)

Citar
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:

Citar
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
Título: Corel draw 11 Macro Escribir Vertical por Michael Cervantes
Publicado por: destroyer en 25 de Mayo de 2005, 06:44:43 pm
Gracias amigo  :wink:

Un saludo