Resultados 1 al 3 de 3

Tema: Macro Escribir Vertical por Michael Cervantes

      
  1. #1
    Avatar de caminante
    caminante está desconectado
    Ya no soy novato!
    Fecha de ingreso
    30 Jul, 05
    Ubicación
    Xalapa, Ver. México
    Mensajes
    143

    Predeterminado Macro Escribir Vertical por Michael Cervantes

    Siguiendo las instrucciones:

    Abrimos el notepad de windows.



    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



    Buscamos la ruta donde se instalan estas acciones, Draw\Scripts



    Posteriormente abrimos Corel y vamos al editor de visual basic



    Seleccionamos nuestra rutina.



    Abierto el editor seleccionamos nuestro documento, y click boton derecho para adicionar las siguientes lineas.



    Las cuales quedaran así



    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.



    Lo grabamos y regresamos a corel donde tenemos nuestro texto de prueba.



    Ejecutamos la macro.



    Y automáticamente se activa.



    Quedando de la siguiente forma.



    Ahora al ejecutarlo me marco algunos errores y al final tenia que agregar una orden como lo marco en la siguiente imagen.



    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

  2.  
  3. #2
    Avatar de Nacho-Lopez
    Nacho-Lopez está desconectado

    Miembro VIP + 3000 mensajes en el foro!!!
    Fecha de ingreso
    02 Feb, 05
    Ubicación
    Logroño
    Mensajes
    9,755

    Predeterminado

    Muy interesante caminante...
    Gracias por compartir
    Un abrazo


  4. #3
    Avatar de despyyadaadoox
    despyyadaadoox está desconectado
    Algo sabe de esto...
    Fecha de ingreso
    09 May, 08
    Mensajes
    416

    Predeterminado

    exelente aporte , se ve que has aprendido mucho y eres de los mejores


    saludos vas muy bien , exelente .


Temas similares

  1. Michael Jackson
    Por montse en el foro Galería de Trabajos con Photoshop...
    Respuestas: 19
    Último mensaje: 09/07/2009, 18:44

Etiquetas para este tema

Permisos de publicación

  • No puedes crear nuevos temas
  • No puedes responder temas
  • No puedes subir archivos adjuntos
  • No puedes editar tus mensajes
  •  
Photoshop Designs v2.0
Photoshop designs es una comunidad dedicada a Photoshop, el retoque fotográfico, la fotografía digital, el arte digital, 3d, el diseño Web y otros programas de edición de imágenes como Corel photopaint, corel draw ó GIMP. Entre sus páginas encontraréis cientos de tutoriales photoshop y de retoque fotográfico, cursos de fotografía, concursos, información sobre cámaras digitales, soporte photoshop, miles de recursos photoshop, una increíble galería photoshop y un blog que recopila los mejores tutoriales y recursos que se publican a lo largo de toda la red
Compartir
Photoshop Designs v1.0
Visita Photoshop Designs v1.0
Búsqueda personalizada

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52