Macro en Word para numerar y resaltar preguntas autom谩ticamente

Imagen
 ¿Tienes un cuestionario lleno de preguntas y quieres darles un formato profesional sin hacerlo a mano? En esta publicaci贸n te comparto una macro en Word que detecta autom谩ticamente las preguntas , las numera y adem谩s las resalta en negrita . Esta herramienta es especialmente 煤til si trabajas en educaci贸n o si necesitas generar evaluaciones, encuestas o formularios con frecuencia. 馃挕 ¿Qu茅 hace esta macro? Detecta cualquier p谩rrafo que contenga un signo de pregunta ( ¿ o ? ). A帽ade un n煤mero al inicio del p谩rrafo. Aplica negrita a toda la pregunta. Evita numerar dos veces si ya hab铆as corrido la macro antes. Sub NumerarYFormatearPreguntas()     Dim parrafo As Paragraph     Dim texto As String     Dim contador As Integer     contador = 1     For Each parrafo In ActiveDocument.Paragraphs         texto = Trim(parrafo.Range.Text)         ' Verifica si contiene "¿" o "?" y que a煤n no...
Publicar un comentario

馃捇 Lenguaje Progress 4GL: C贸mo utilizar tablas temporales

Bienvenidos a este blog, en esta publicaci贸n veremos como crear una tabla temporal y colocar 铆ndices con el lenguaje Progress 4gl.

Primero veamos un ejemplo  en que ocasiones podr铆amos utilizar una tabla temporal en general no solo Progress:

  • Cuando hacemos un reporte normalmente vamos recuperando informaci贸n de diferentes tablas de una base de datos y para ir guardando las filas con la informaci贸n que necesitamos en muchas ocasiones necesitamos tener una tabla nueva donde ir almacenando las nuevas filas.
  • Si vamos a realizar m谩s c谩lculos con los datos que obtenemos de diferentes tablas.
  • Queremos utilizarlo en reportes como Crystal Reports o en plantillas diferentes.
  • Cuando vamos a procesar el contenido de los datos, cuando vamos a realizar segmentaciones de los datos pero no lo vamos almacenar en una tabla f铆sica de base datos porque no se tarda mucho la generaci贸n de la informaci贸n y no es una informaci贸n que se genere con mucha frecuencia. 
La definici贸n general de Progress es la siguiente en la imagen

Ejemplo de c贸digo en Progress 4GL para desarrollar aplicaciones empresariales.

En general est谩n son las ventajas y desventajas de utilizar estas tablas temporales


Ahora veamos un ejemplo en Progress: quiero generar un programa que me lea un archivo de entrada y que con la tabla temporal en la que guardemos el archivo de entrada lo convirtamos en una carga CIM en QAD para crear ubicaciones en el m贸dulo de activos fijos.

{us/mf/mfdtitle.i}
DEF VAR vc-in-file AS CHAR NO-UNDO.
DEF VAR v-totrec   AS INTEGER NO-UNDO.
DEF VAR v-toterr   AS INTEGER NO-UNDO. 
DEF VAR lv-outfile AS CHAR NO-UNDO. 
DEF VAR lv-cimfile AS CHAR NO-UNDO. 
DEF VAR v-err      AS LOGICAL NO-UNDO. 
/*******TABLA TEMPORAL**************/
DEF TEMP-TABLE tabla_datos no-undo
  field tt_loc   like ld_part
  field tt_des   like ld_site    
  field tt_ent   like ld_loc
  field tt_sub   like ld_lot
  field tt_cc    like ld_ref
  FIELD tt-error  as   character
INDEX ttDataCim
  tt_loc
  tt_des
  tt_ent
  tt_sub
  tt_cc.
/*******TABLA TEMPORAL**************/  
DEF FRAME a           
  vc-in-file   COLON 21 LABEL "File to charge" FORMAT "X(30)"
WITH WIDTH 80 SIDE-LABELS.  

UPDATE vc-in-file WITH FRAME a.    
  
INPUT FROM VALUE(vc-in-file).
  REPEAT:
    CREATE  tabla_datos.
    IMPORT DELIMITER ","  tabla_datos EXCEPT tt-error  .
  END. 
INPUT CLOSE.

FOR EACH tabla_datos  
    WHERE tt_loc  <> ""
    NO-LOCK
    BREAK BY tt_loc
          BY tt_des
          BY tt_ent
          BY tt_sub
          BY tt_cc.
    IF tt-error = "" THEN DO:
      
      ASSIGN
        v-totrec   = v-totrec + 1
        lv-outfile = tt_loc + ".cim"
        lv-cimfile =  tt_loc + ".log".
      
      OUTPUT TO VALUE(lv-outfile).
        
        
PUT UNFORMAT '"' tt_loc '" ' SKIP.
IF tt_des <> '' THEN 
           put unformat '"' tt_des '" ' .
ELSE 
   put unformat '-' .
IF tt_ent <> '' THEN 
           put unformat '"' tt_ent '" ' .
ELSE 
   put unformat '-' .
IF tt_sub <> '' THEN 
           put unformat '"' tt_sub '" ' .
ELSE 
   put unformat '-' .              
   
IF tt_cc <> '' THEN 
           put unformat '"' tt_cc '" ' skip.
ELSE 
   put unformat '-' skip.
        
PUT UNFORMAT '-' SKIP.
        PUT UNFORMAT '.' SKIP.
        PUT UNFORMAT '.' SKIP.
        
      OUTPUT CLOSE.
      
      DO TRANSACTION:  
        
        OUTPUT TO VALUE(lv-cimfile). 
          input from value(lv-outfile). 
            batchrun = true.        
              {us/bbi/gprun.i ""falcmt.p""}
            batchrun = false.   
            pause 0 before-hide.
          input close. 
        output close.  
        
        v-err = false. 
        
        if v-err then do: 
          v-toterr = v-toterr + 1.  
          undo, next. 
        END. 
        
      END. 
    END. 
END.
DISPLAY  "TOTAL errores" v-toterr.

Otros art铆culos en este blog acerca de Progress 4gl

Espero les haya gustado y servido esta publicaci贸n, comparta en sus redes sociales y tambi茅n pueden seguirnos en este blog o en Facebook https://www.facebook.com/Programacionparatodosmsg/

Comentarios

Publicar un comentario

Dejanos tus dudas y comentarios

馃殌 Mantener este blog funcionando requiere tiempo y caf茅. ¡Puedes contribuir con uno aqu铆!

Entradas m谩s populares de este blog

Gu铆a Pr谩ctica: Ejemplo Completo de ASPX para Desarrolladores Web

Imagen
Bienvenidos a programacionparatodos.com Esta semana vamos a conocer otro lenguaje de programaci贸n que es ASP ( Active Server Pages  )  que es de la familia de Microsoft es plataforma Cliente/Servidor y que permite crear p谩ginas WEB din谩micas, utiliza un servicio conocido como IIS o  (Internet Information Services) fue creado en 1996. Cuando ven paginas WEB que terminan en .aspx es que est谩n desarrolladas con este lenguaje. P谩ginas  que por ejemplo utilizan ASP https://www.cfe.mx/Pages/Index.aspx https://www.interfactura.com/Index.aspx https://www.canadainternational.gc.ca/mexico-mexique/index.aspx?lang=spa Igual hay mucho trabajo para este software por ejemplo les dej贸 las siguientes vacantes  Desarrollador .NET .NET Developer NET LEAD Para seguir con el formato del blog, les quiero compartir un programa de ejemplo, pero he de decirles que es la primera vez que programo en ASP , ya que no lo hab铆a hecho antes, me tomo...
Leer m谩s

馃搳 Automatiza tu trabajo: Convierte tablas de Word a Excel con una macro

Imagen
 Si trabajas en una oficina, seguro te enfrentas a tareas repetitivas que consumen mucho tiempo, como copiar datos de una tabla en Word a una hoja de Excel.   Afortunadamente, existe una forma de automatizar este proceso mediante macros en Word, lo que te permitir谩 ahorrar tiempo y esfuerzo, y enfocarte en tareas m谩s importantes. ¿Qu茅 es una macro? Una macro es una secuencia de instrucciones que te permite automatizar tareas repetitivas en aplicaciones como Word y Excel. Utilizando el lenguaje VBA (Visual Basic for Applications), puedes escribir c贸digos que realicen tareas como copiar tablas de un documento de Word y pegarlas en una hoja de Excel con solo hacer clic en un bot贸n. ¿Por qu茅 deber铆a usar una macro para convertir tablas de Word a Excel? Ahorra tiempo : Si trabajas con grandes cantidades de datos, una macro puede copiar todo de una tabla a Excel de forma r谩pida y precisa. Minimiza errores : El proceso manual de copiar y pegar puede dar lugar a errores humanos, ...
Leer m谩s

Macro de Excel para abrir archivo csv

Imagen
Hay veces que quieres abrir un archivo de Excel pero est谩 separado por comas, punto y coma o por un pipe. Hay formas de hacerlos desde Excel. Les quiero compartir algunas opciones de como hacerlo y espero que les sean de utilidad. 1.Es abrir el archivo en Excel y utilizar la funci贸n de separar por columnas y seleccionar el delimitador, por ejemplo ";" 2. Es colocar "sep=;" en el primer rengl贸n del archivo que quieres abrir y guardar en formato CSV y abrirlo en Excel y te lo abrir谩 separado en columnas. 3. Otra forma es con una macro, est茅 en mi gusto es la que m谩s me funciona porque si hay alguna coma en la descripci贸n o en alguna columna, si lo abres desde Excel te va a desacomodar las columnas.  Este bot贸n te abrir谩 un pantalla para abrir el archivo que quieres separar y te lo abrir谩 en una hoja de excel ya separado. El c贸digo de la macro es el siguiente  Private Sub CommandButton1_Click() Dim sht As Worksheet Dim fnd As Variant Dim rplc ...
Leer m谩s