Info mal pasada
Publicado por Mariano (52 intervenciones) el 21/08/2003 21:14:07
Private Sub ActualizarHoja()
'Carga los valores del formulario en la hoja.
ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Tables(1).Cell(1, 2).Range.Text = ""
ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Tables(1).Cell(1, 2).Range.Text = Me.Nota & "/" & Me.Anio
ActiveDocument.Tables(1).Cell(1, 2).Range.Text = ActiveDocument.CustomDocumentProperties("Fecha")
ActiveDocument.Tables(2).Cell(1, 2).Range.Text = Me.Destino
ActiveDocument.Tables(2).Cell(3, 2).Range.Text = Me.Referencia
End Sub
Este es el prg que escribe en un doc de Word y cuando asigno la fecha, repite el ultimo caracter y obtengo 21 octubre 20033
Necesito un poco de ayuda, tambien para usar 21 de octubre de 2003 (con los de) y poder convertirlo en fecha.
Muchas Gracias
'Carga los valores del formulario en la hoja.
ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Tables(1).Cell(1, 2).Range.Text = ""
ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Tables(1).Cell(1, 2).Range.Text = Me.Nota & "/" & Me.Anio
ActiveDocument.Tables(1).Cell(1, 2).Range.Text = ActiveDocument.CustomDocumentProperties("Fecha")
ActiveDocument.Tables(2).Cell(1, 2).Range.Text = Me.Destino
ActiveDocument.Tables(2).Cell(3, 2).Range.Text = Me.Referencia
End Sub
Este es el prg que escribe en un doc de Word y cuando asigno la fecha, repite el ultimo caracter y obtengo 21 octubre 20033
Necesito un poco de ayuda, tambien para usar 21 de octubre de 2003 (con los de) y poder convertirlo en fecha.
Muchas Gracias
Valora esta pregunta
0