FormularioSencillo

' Programa para llenar automáticamente un formulario en word 
 
' Lo que está escrito con comilla simple son solo comentarios para explicar el programas, pueden 
omitirse 
 ' With… EndWith sirve para no tener que repetir la misma instrucción en cada línea, en este caso 
Selection 
 
' 
 
With Selection 
           .ParagraphFormat.LineSpacingRule = wdLineSpaceSingle      'Coloca espacio de líneas en 
“espacio simple” 
 
          .TypeParagraph                        'Pasa a linea siguiente 
 
          .TypeParagraph                        'Pasa a linea siguiente 
           .Font.Bold = True                         'Coloca negrita 
 
          .TypeParagraph                        'Pasa a linea siguiente 
 
          .TypeParagraph                        'Pasa a linea siguiente 
           .TypeParagraph                        'Pasa a linea siguiente 
 
          .Font.Size = 16                       'Coloca tamaño de letra en 16 
           .ParagraphFormat.Alignment = wdAlignParagraphCenter       'Alineado al centro 
 
          .TypeText Text:="CERTIFICADO"         'Escribe texto 
 
          .Font.Size = 12                       'Coloca tamaño de letra en 12 
           .TypeParagraph                        'Pasa a linea siguiente 
 
          .Font.Bold = False                            'Desactiva negrita 
 
          .ParagraphFormat.Alignment = wdAlignParagraphLeft         'alineacion a la izquierda 
           .TypeParagraph                        'Pasa a linea siguiente 
 
          .TypeText Text:="Certifico que el señor "         'Escribe texto 
           .Font.Bold = True  'Activa las negritas           'Escribe texto 
 
          .TypeText Text:=TextBox1.Text                     'Escribe el contenido de textbox1.text 
 
          .Font.Bold = False                        'Desactiva las negritas 
           .TypeText Text:=", domciliado en "                'Escribe texto 
 ...