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
-
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
-
Gracias amigo :wink:
Un saludo