Option Explicit

Private Sub Command1_Click()

    Dim ObjWord As Word.Application
    Dim ObjRange As Word.Range
    Dim NChar As Long
    Dim objeto As String
    Dim objeto2 As String
    Dim texto As String
    Dim texto1 As String
    Dim texto2 As String
    
    'Crea un nuevo objeto de word
    Set ObjWord = CreateObject("Word.Application")
    ' agrega un nuevo documento
    ObjWord.Documents.Add


    objeto = Text1.Text
    objeto2 = Text2.Text
    texto = vbCrLf & "CARTOGRAFIA" & vbCrLf & _
                     "Sección:" & objeto & vbCrLf & _
                     "Colonia:" & objeto2 & vbCrLf & _
                     "Fecha: " & Date & vbCrLf & _
                     "Hora: " & Time & vbCrLf
                     
     
    'drpJustification.Text = drpJustification.List(0)
    
    Set ObjRange = ObjWord.ActiveDocument.Range(Start:=0, End:=0)

    ' asigna el texto anterior
    ObjRange.Text = texto
    
    
    ' cantidad de caracteres
    NChar = ObjWord.ActiveDocument.Characters.Count
    
    ' selecciona el rango, es decir todo el texto anterior
    Set ObjRange = ObjWord.ActiveDocument.Range(Start:=0, End:=NChar - 1)
    ObjRange.Select
    
    ' Le aplica formato al texto seleccionado
    With ObjWord
        .Selection.Font.Size = 10 ' tamaño
        .Selection.Font.Name = "Arial" ' fuente
        .Selection.Font.ColorIndex = wdBlack 'color
    End With
    
    ' Referencia al rango
    Set ObjRange = ObjWord.ActiveDocument.Range(Start:=0, End:=0)
        ObjRange.Select ' lo selecciona
        Clipboard.Clear ' limpia el portapapeles
        ' Establece la imagen de Image1 en el Portap.
        Clipboard.SetData Image1.Picture
    
        
        ' pega el gráfico
        ObjWord.Selection.Paste

    ' limpia el Clipboard
    Clipboard.Clear
    ObjWord.Visible = True ' hace el Word Visible
    
End Sub