Curso VBA-7

gistfile1.txt

Private Sub CommandButton1_Click()
    With Selection
.        Font.Size = Val(10)
.        ParagraphFormat.LineSpacingRule = wdLineSpaceSingle
.        TypeParagraph
.        Font.Name = “arial black”
.        ParagraphFormat.Alignment = wdAlignParagraphCenter
.        TypeText Text:=vbTab & “Programa de Prueba”
.        ParagraphFormat.Alignment = wdAlignParagraphLeft
.        TypeParagraph
.        TypeParagraph
.        Font.Name = “Arial”
         TypeText Text:=vbTab & “NOMBRE ” & vbTab & TextBox1.Text
         TypeParagraph
         TypeText Text:=vbTab & “DIRECCION” & vbTab & TextBox2.Text
.        TypeParagraph
.        TypeText Text:=vbTab & “TELEFONO ” & vbTab & TextBox3.Text
.        TypeParagraph
.        TypeParagraph
End With
End Sub