Ayuda en vb6

Cuestiones y dudas acerca de lenguajes de programación diversos.

Moderador: Moderadores

Avatar de Usuario
Carola77
Senior
Mensajes: 111
Registrado: Mié Abr 04, 2007 3:13 am
Ubicación: CHILE - El país mas hermoso del Mundo

Mensaje por Carola77 » Mié Abr 18, 2007 7:52 am

:oops: gracias. Me costo hacerlo cuand me lo pidieron pero me funciono y quedo bonito.
Oye Epica estan bien buenos tus manuales, aunque no me acuerod para que son las matrices dinamicas, :cry: voy a buscar informacion para que la cosa me quede mas clara,
Saludos a todos.
Carola77 - Lista para la Primavera y el año mas triste de mi vida
" El conocimiento no se Gasta ni se Vende, Compartirlo es lo mejor para enrriquecernos y asi seremos cada dia mejor"

Avatar de Usuario
DINA

Re:SOLICITUD

Mensaje por DINA » Mié Mar 25, 2009 9:51 pm

HOLA COMO ESTAS ESPERO QUE SUPER.
BUENO ESTOY REALIZANDO IGUAL UN TRABAJO CON VISUAL Y WORD Y LOS METODOS FUNCIONAN PERO SABES QUIERO XFA QUE ME DESPEJES EL PROBLEMA QUE TENGO COMO PUEDO GUARDAR YA EL DOCUMENTO MODIFICADO MEDIANTE VISUAL SIN NECESIDAD DE INGRESAR A WORD.
SOLO QUIERO EMPLEARLO MEDIANTE EL PROGRAMA YA DISEÑADO CON UN BOTON QUE REALIZE EL PROCEDIMIENTO DE GUARDAR QUE SEA MAS PRACTICO PORQUE LOS DATOS ESTAN CORRECTAMENTE INGRESADOS.
TE AGRADESCO.
POSDATA MI CORREO ES: di_an_su@hotmail.com

Avatar de Usuario
Edimin07

Re: VISUAL BASIC Y WORD

Mensaje por Edimin07 » Mar May 27, 2014 6:03 pm

Hola Carola, agradecerte por el codigo, solo queria pedirte el favor si me podrias enviar este programa para verlo como esta el diseño y entenderlo, porfavor. Garcias por tu atención. Saludos.
Carola77 escribió:Aca coloco el codigo que se utiliza para trabajar el visual basic + el word, es decir tenemos variables en visual basic y la traspazamos a un documento en word, este ejemplo, diseñe el contrato en visual basic y lo envie a word, con formato y todo, pero tambien sirve para uno ya diseñado, en este caso era un subcontrato de una constructora en la que ingresabamos la fecha , nombre contratista, montos, fecha termnino, etc. Yo entendi la forma de trabajarlo de esta forma que les explicare ahora asi es mas facil comprenderlo, podemos decir que el word es similas al excell ya que lo podemos trabajar como filas y columnas en donde colocar en una posicion exacta la letra o variable que enviamos desde visual basic, o simplemente contando espacios entre lineas o parrafos.
Aca llamo el documento ubicado en mis documentos el titulo y otras partes ya tieen formato, aca envio el resto del documento y lo formateo, este documento queda en 2 hojas completas y con formatos. OJALA LO ENTIENDAN, SINO PREGUNTENME Y YO LES SACO LAS DUDAS
:lol:
Option Explicit
' DEFINICION DE VARIABLES CONTRATO

Public mivalor, XVALOR, Valor, SW_RUT
Public XTITULO, XPRIMERO, XSEGUNDO, XTERCERO, XCUARTO
Public XQUINTO, XSEXTO, XSEPTIMO, XOCTAVO, XNOVENO
Public XDECIMO, XUNDECIMO, XDUODECIMO, XTRECE, XCATORCE, linea
Public XVALORES1, XVALORES2, linea2, fecha, nombre, Rut
Public XPRIMERO1, XPRIMERO2, XDETALLE1, XDETALLE2, XDETALLE3
Public PNETO, PIVA, Total, PIE1_A, PIE1_B, PIE2_A, PIE2_B, LINEA1, LI2,
PTOTAL, PIE3_A, PIE3_B
Public tempo, PRESUPUESTO, Scontrato, SOLO_RUT, PNETO2

'LLAMADA DEL WORD
Dim DOCU As New Word.Application
Dim Parrafo As Paragraph
Dim Documento As Word.Document
Public CONCATENA


'asignacion del contrato
Private Sub cmdcontrato_Click()
linea = Chr(13): linea2 = Chr(13)
fecha = Str(Date): nombre = lblTextoNombre
Rut = mskIdContratista:
PRESUPUESTO = lblMOTextoTotal ' total presupuesto
PTOTAL = PNETO2
Call cal_iva
Call CARGAR_DOCUMENTO
Set Documento = DOCU.Documents.Open("c:\mis documentos\Proas_formato.doc")
Set Parrafo = Documento.Paragraphs.Add

XTITULO = "SUB CONTRATO DE CONSTRUCCION"
Parrafo.Range.InsertBefore XTITULO
Parrafo.Alignment = wdAlignParagraphCenter
Parrafo.Range.InsertAfter linea + linea2
Parrafo.Range.InsertAfter linea + linea2
Parrafo.Range.InsertAfter " " + PIE2_B
Parrafo.Range.InsertAfter linea
Parrafo.Range.InsertAfter " " + PIE2_A
Parrafo.Range.InsertAfter linea
Parrafo.Range.InsertAfter " " + LINEA1
Parrafo.Range.InsertAfter linea + linea2
Parrafo.Range.InsertAfter linea

Parrafo.Alignment = wdAlignParagraphCenter
Parrafo.Range.InsertAfter " " + PIE1_A + " " + " " + PIE3_A
Parrafo.Range.InsertAfter linea + linea2
Parrafo.Range.InsertAfter PIE1_B + " " + PIE1_B
Parrafo.Range.InsertAfter linea + linea2
Parrafo.Range.InsertAfter LINEA1 + " " + LI2
Parrafo.Range.InsertAfter linea + linea2

Parrafo.Range.InsertAfter XCATORCE
Parrafo.Alignment = wdAlignParagraphDistribute

Parrafo.Range.InsertAfter linea + linea2
Parrafo.Range.InsertAfter linea + linea2

Parrafo.Range.InsertAfter XTRECE
Parrafo.Alignment = wdAlignParagraphDistribute

Parrafo.Range.InsertAfter linea + linea2

Parrafo.Range.InsertAfter XDUODECIMO
Parrafo.Alignment = wdAlignParagraphDistribute

Parrafo.Range.InsertAfter linea + linea2

Parrafo.Range.InsertAfter XUNDECIMO
Parrafo.Alignment = wdAlignParagraphDistribute

Parrafo.Range.InsertAfter linea + linea2

Parrafo.Range.InsertAfter XDECIMO
Parrafo.Alignment = wdAlignParagraphDistribute

Parrafo.Range.InsertAfter linea + linea2

Parrafo.Range.InsertAfter XNOVENO
Parrafo.Alignment = wdAlignParagraphDistribute

Parrafo.Range.InsertAfter linea + linea2

Parrafo.Range.InsertAfter XOCTAVO
Parrafo.Alignment = wdAlignParagraphDistribute

Parrafo.Range.InsertAfter linea + linea2

Parrafo.Range.InsertAfter XSEPTIMO
Parrafo.Alignment = wdAlignParagraphDistribute

Parrafo.Range.InsertAfter linea + linea2

Parrafo.Range.InsertAfter XSEXTO
Parrafo.Alignment = wdAlignParagraphDistribute

Parrafo.Range.InsertAfter linea + linea2

Parrafo.Range.InsertAfter XQUINTO
Parrafo.Alignment = wdAlignParagraphDistribute

Parrafo.Range.InsertAfter linea + linea2

Parrafo.Range.InsertAfter XCUARTO
Parrafo.Alignment = wdAlignParagraphDistribute

Parrafo.Range.InsertAfter linea + linea2

Parrafo.Range.InsertAfter XDETALLE3 + Str(PTOTAL)
Parrafo.Alignment = wdAlignParagraphDistribute

Parrafo.Range.InsertAfter linea + linea2

Parrafo.Range.InsertAfter XDETALLE2 + Str(PIVA)
Parrafo.Range.InsertAfter linea + linea2
Parrafo.Alignment = wdAlignParagraphDistribute

Parrafo.Range.InsertAfter XDETALLE1 + Str(PNETO)
Parrafo.Alignment = wdAlignParagraphDistribute

Parrafo.Range.InsertAfter linea + linea2

Parrafo.Range.InsertAfter XTERCERO + Str(PTOTAL) + " " + "Según detalle anexo. Valor con I.V.A."
Parrafo.Alignment = wdAlignParagraphDistribute

Parrafo.Range.InsertAfter linea + linea2

Parrafo.Range.InsertAfter XSEGUNDO
Parrafo.Alignment = wdAlignParagraphDistribute

Parrafo.Range.InsertAfter linea + linea2

Parrafo.Range.InsertAfter XPRIMERO + " " + Scontrato + " " + XPRIMERO1 + " " + "SAN CLEMENTE" + " " + XPRIMERO2
Parrafo.Alignment = wdAlignParagraphDistribute

Parrafo.Range.InsertAfter linea + linea2

Parrafo.Range.InsertAfter XVALORES1 + " " + fecha + " " + XVALORES2 + " " + nombre + " RUT" + " " + Rut
Parrafo.Alignment = wdAlignParagraphDistribute

Parrafo.Range.InsertAfter linea
DOCU.Visible = True
cmdcontrato.Enabled = False
End Sub

Private Sub CARGAR_DOCUMENTO()
XPRIMERO = "PRIMERO: El subcontratista se compromete a realizar los trabajos correspondiente a"
XPRIMERO1 = "en la obra ubicada en la ciudad de"
XPRIMERO2 = "conforme a los planos y especificaciones técnicas definidas por la constructora y presupuesto presentado por el contratista, documentos que pasan a formar parte del presente contrato"
XSEGUNDO = "SEGUNDO :Los trabajos deben iniciarse el, en todo caso estos trabajos deberán estar terminados y recibidos con un Acta de Entrega conforme, debidamente firmada por el Constructor de la Obra el . el atraso en la entrega de estos trabajos hará incurrir al Contratista en una multa de 5/1000 (CINCO POR MIL), por cada dia de atraso por el monto referido al valor del contrato."
XTERCERO = "TERCERO : El valor del presente contrato asciende a la suma de $ "
XCUARTO = "CUARTO : Los trabajos serán efectuados por el contratista, personal de su dependencia, siendo de su exclusiva responsabilidad, el pago de las correspondientes remuneraciones y el cumplimiento de las leyes sociales y previsiones vigentes, no existiendo vinculo alguno entre dicho personal y la constructora." + "El contratista deberá responder por los daños que se ocasionen en los bienes de la Empresa o de otros subcontratistas o de la Obra en general, producto de descuidos o trabajos negligentes realizados por él o su personal, y será obligatorio el uso de los Implementos de seguridad, los cuales deben ser proporcionados por el subcontratista."
XCUARTO = XCUARTO + "El contratista deberá cumplir con lo dispuesto en el decreto N° 50 de la ley 16.744 sobre el Derecho al Saber y cumplir con las demás normas y reglamentos que la ley 16.744 de accidentes del trabajo y enfermedades profesionales dicte."
XCUARTO = XCUARTO + "Cuando tenga mas de veinte y cinco trabajadores en la obra, deberá formar un comité paritario de higiene y seguridad de acuerdo a lo estipulado en el decreto supremo N° 54 de la ley N° 16.744."
XCUARTO = XCUARTO + "Queda estrictamente prohibido al contratista retirar cualquier material, maquinaria, herramienta o bien en general, sin previo visto bueno de la Constructora."
XQUINTO = "QUINTO : En garantía por la buena ejecución de los trabajos contratados, la Constructora retendrá el 5% de todos los pagos dispuestos en la cláusula tercera precedente, valor que será restituido al subcontratista, una vez recibido los certificados de recepción de los organismos pertinentes o cuando la constructora recepcione los trabajos, según corresponda, a juicio de esta última."
XSEXTO = "SEXTO : El no cumplimiento por parte del subcontratista de algunas de las obligaciones que le impone el presente contrato y en especial las referente al plazo mismo, el no cumplimiento de las leyes laborales vigentes y del no uso de los implementos de seguridad, darán derecho a la Constructora a poner termino anticipado al Contrato, en cuyo caso el subcontratista no tendrá derecho a indemnización alguna."
XSEPTIMO = "SÉPTIMO : En caso que el Contratista no diera cumplimiento a las obligaciones que le impone este contrato con la rapidez, diligencia y competencia que se requiere, a juicio del Constructor o paralicen las obras y trabajos sin motivo justificado durante 2 DIAS, el Constructor podrá resolver el presente contrato y hacer efectivas las garantías o retenciones que obren en su poder."
XOCTAVO = "OCTAVO : aun después de la Recepción Final conforme de todos los trabajos a que se refiere este contrato, el contratista continuara responsable durante , de la buena calidad de los materiales y buen funcionamiento de las instalaciones, correspondiente al árbitro que se designa en la cláusula correspondiente, determinar las indemnizaciones que eventualmente tuviese que pagar por falta o deficiencia, siempre que ellas no se deban al mal manejo o causas en las instalaciones o trabajos realizados."
XNOVENO = "NOVENO : El contratista no podrá ejecutar ninguna obra que estime extraordinaria sin previo visto bueno por escrito del Gerente de Operaciones, Señor Fernando Landero Moraga."
XDECIMO = "DECIMO :EL CONTRATISTA DECLARA CONOCER LAS ESPECIFICACIONES Y LOS PLANOS DE LOS SEÑORES ARQUITECTOS CONSULTORES."
XDECIMO = XDECIMO + "EL CONTRATISTA DECLARA HABER CONSIDERADO TODOS LOS MONTOS DE OBRAS DEL PROYECTO, POR LO QUE NO SE ACEPTARA NINGUNA OBRA EXTRA, QUE EL POR OLVIDO NA HAYA CONSIDERADO EN SU PRESUPUESTO."
XDECIMO = XDECIMO + "EL CONTRATISTA VELARA EN TODO MOMENTO POR LA SEGURIDAD DE SUS OPERARIOS HACIENDO CUMPLIR EN TODO LAS NORMAL Y REGLAS DE SEGURIDAD."
XUNDECIMO = "UNDECIMO :Se adjunta el Reglamento interno de higiene y seguridad de la Constructora Proas, documento que pasa hacer parte de este contrato."
XDUODECIMO = "DUODECIMO : El contratista, al momento de firmar el presente contrato deberá adjuntar certificado de Inspección del Trabajo y Dicom."
XTRECE = "DECIMOTERCERO : Para todos los efectos a que haya lugar, las partes fijan domicilio en la Ciudad de Talca, y se someten a la jurisdicción de sus tribunales."
XCATORCE = "DECIMOCUARTO : El presente contrato y su anexo se firma en tres copias de igual tenor, quedando dos en poder de la Constructora y una en poder del subcontratista."
XVALORES1 = "En Ciudad,"
XVALORES2 = "entre, por una parte, Constructora Proas Ltda. RUT XX.XXX.XXX-X, representada por NNNNNN NNNNNN CI N° X.XXX.XXX-X y por NNNNNN NNNN NNNNNN,"
XVALORES2 = XVALORES2 + "cédula de identidad N°XX.XXX.XXX-X, ambos domiciliados en calle X Oriente 924 XXX, en adelante la Constructora, y por la otra"
XDETALLE1 = "NETO : "
XDETALLE2 = " I.V.A : "
XDETALLE3 = " TOTAL : "
PIE1_A = "XXXXXX XXXXXX X."
PIE2_A = nombre
PIE1_B = "p.p Constructora XXX Ltda."
PIE2_B = "Contrastista"
LINEA1 = "-------------------------------------"
LI2 = "-----------------------------------------"
PIE3_A = "XXXXXX XXXXXX X."
PIE3_B = "p.p Cstructora XXXX Ltda."
End Sub

Private Sub cal_iva()
PNETO2 = PNETO * 1.19
PIVA = PNETO2 - PNETO
PTOTAL = PNETO + PIVA
End Sub

Responder