Uso: es la pantalla que permite escoger que plantilla se va a usar, es la primera en aparecer cuando se clikea el botón del macro y despliega una lista con las plantillas disponibles

FormEscoge.frm

Private Sub CommandButton2_Click()
  Load FormDatfij
  FormDatfij.Show
End Sub

Private Sub CommandButton3_Click()
  Load FormDefinir
  FormDefinir.Show
End Sub

Private Sub Image1_Click()
  End
End Sub

Private Sub Label11_Click()
  Load propaganda
  propaganda.Show
End Sub

Private Sub ListaEscoger_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  On Error Resume Next
  plantilla = Trim(ListaEscoger.List(ListaEscoger.ListIndex))
  plantilla_con_path = "c:\plantillas\" + plantilla
  Selection.InsertFile FileName:=plantilla_con_path, Range:="", _
    ConfirmConversions:=False, Link:=False, Attachment:=False
  Unload FormEscoge
  Load FormPlantilla
  FormPlantilla.Show
End Sub

Private Sub UserForm_Initialize()
  ListaEscoger.Clear
  Close
  Open archconf For Random As 1 Len = largoC
  Get 1, 1, conf
  ultimo = Val(conf.nombre)
  For z% = 2 To ultimo + 1
    Get 1, z%, conf
    ListaEscoger.AddItem conf.nombre
  Next z%
  Close
End Sub