27/02/2006, 14:19
|
| | | Fecha de Ingreso: abril-2004 Ubicación: Tijuana
Mensajes: 37
Antigüedad: 20 años, 1 mes Puntos: 1 | |
Diseñar tablas en word desde vb6.0 Hola, como estan ?...saludos desde mi bellisima ciudad de colima...jejeje, les escribo por una peticion y ayuda... estoy haciendo un sistema en el que generan varios oficios, varios reportes y otros formatos, estube trabajando con el vsview.... pero, tengo un problema resulta que estos formatos, reportes, etc. constantemente cambian en sus estructura y logotipos... entonces se me ocurrio trabajar con word... hay una carta que utilizo en word en la que la estructura del documento ya esta creado y tiene varios marcadores, que son como quien dice las variables en las que coloco los valores desde visual basic... bueno, algo asi quiero utilizar con los demas documentos, pero el otro detalle es que necesito crear tablas en word...manipularlas desde visual basic, y no se como se hace, no puedo encontrar un ejemplo. Aqui les mando una parte de lo que yo utilizo para mandar los valores a word:
Public Sub EnviarWord()
Dim Documento As New Word.Application
With Documento
' ABRE EL DOCUMENTO WORD
'----------------------------------------------------
.Application.Documents.Open App.Path & "\Documento\reporte3.doc"
'----------------------------------------------------
.Documents.Item(1).Bookmarks.Item("NomCorto").Rang e.Text = NombreCORTO
.Documents.Item(1).Bookmarks.Item("IniDepto").Rang e.Text = INIDepa
.Documents.Item(1).Bookmarks.Item("IniCarre").Rang e.Text = INICarre
.Documents.Item(1).Bookmarks.Item("Numero").Range. Text = Format(TxtNumOficio.Text, "000")
.Documents.Item(1).Bookmarks.Item("Ano").Range.Tex t = Anis
.Documents.Item(1).Bookmarks.Item("Fecha").Range.T ext = Format(Day(DTFecha.Value), "00") & " de " & LCase(Format(DTFecha.Value, "mmmm")) & " del " & Year(DTFecha.Value)
.Documents.Item(1).Bookmarks.Item("Responsable").R ange.Text = Titular
.Documents.Item(1).Bookmarks.Item("Puesto").Range. Text = PtoTitular
.Documents.Item(1).Bookmarks.Item("Empresa").Range .Text = Empresa
Select Case Sex
Case 1: .Documents.Item(1).Bookmarks.Item("Letras").Range. Text = "al"
Case 2: .Documents.Item(1).Bookmarks.Item("Letras").Range. Text = "a la"
End Select
.Documents.Item(1).Bookmarks.Item("Control").Range .Text = TxtCtrl.Text
.Documents.Item(1).Bookmarks.Item("EmpresSeguro"). Range.Text = EmpSeg
.Documents.Item(1).Bookmarks.Item("JefeDepto").Ran ge.Text = JefeGes
.Documents.Item(1).Bookmarks.Item("Copias").Range. Text = Copyas
.Application.Visible = True ' SE MUESTRA EL DOCUMENTO
End With
Set Documento = Nothing
......
__________________ °-° Christian °-° |