Exportar cabecera de DW a WORD
Publicado por José (12 intervenciones) el 25/05/2011 19:23:31
Hola a todos, necesito una ayuda...
Tengo un DW que estoy exportandolo a Word, lo hace bien, pero lo que no me exporta son los encabezados, ¿Como podría pasar los encabezados de las columnas.
estoy usando el siguiente código:
OLEObject word
integer li_connect
String ls_cadena
Long ll_fila, ll_columna, ll_num_filas, ll_num_columnas
word = CREATE OleObject
li_connect = word.ConnectToNewObject("word.application")
if li_connect <> 0 then
MessageBox("Error de Conexión", "No se puedo realizar la conexión con Word." )
destroy word
return
end if
//Una vez realizada la connexión abrimos el documento
word.documents.open("C:\plantilla_word1.doc")
word.Visible=false // para no ver el documento
// Definir el número de filas y columnas
ll_num_filas = dw_crdndor.RowCount()
ll_num_columnas = 2
If ll_num_filas > 0 Then
// Crear la tabla
word.ActiveDocument.Tables.Add (word.Selection.Range,ll_num_filas,ll_num_columnas)
For ll_fila = 1 To ll_num_filas
For ll_columna = 1 to ll_num_columnas
Choose Case ll_columna
Case 1
ls_cadena = dw_crdndor.GetItemString(ll_fila,"campo_1")
Case 2
ls_cadena = dw_crdndor.GetItemString(ll_fila,"campo_2")
End Choose
word.Selection.typetext(ls_cadena)
If ll_columna <= ll_num_columnas Then
If ll_fila <= ll_num_filas then
If ll_columna = ll_num_columnas and ll_fila = ll_num_filas then
else
word.Selection.MoveRight(12)
end if
end if
End If
End For
End For
End If
//Guardamos el documento con otro nombre
word.ActiveDocument.SaveAs("plantilla_word2.doc")
//Abrimos el documento
word.documents.open("C:\plantilla_word2.doc")
word.Visible=true
//Luego imprimimos el documento y cerramos Word
word.Application.printout(0)
word.quit(0)
word.DisconnectObject()
DESTROY word
Tengo un DW que estoy exportandolo a Word, lo hace bien, pero lo que no me exporta son los encabezados, ¿Como podría pasar los encabezados de las columnas.
estoy usando el siguiente código:
OLEObject word
integer li_connect
String ls_cadena
Long ll_fila, ll_columna, ll_num_filas, ll_num_columnas
word = CREATE OleObject
li_connect = word.ConnectToNewObject("word.application")
if li_connect <> 0 then
MessageBox("Error de Conexión", "No se puedo realizar la conexión con Word." )
destroy word
return
end if
//Una vez realizada la connexión abrimos el documento
word.documents.open("C:\plantilla_word1.doc")
word.Visible=false // para no ver el documento
// Definir el número de filas y columnas
ll_num_filas = dw_crdndor.RowCount()
ll_num_columnas = 2
If ll_num_filas > 0 Then
// Crear la tabla
word.ActiveDocument.Tables.Add (word.Selection.Range,ll_num_filas,ll_num_columnas)
For ll_fila = 1 To ll_num_filas
For ll_columna = 1 to ll_num_columnas
Choose Case ll_columna
Case 1
ls_cadena = dw_crdndor.GetItemString(ll_fila,"campo_1")
Case 2
ls_cadena = dw_crdndor.GetItemString(ll_fila,"campo_2")
End Choose
word.Selection.typetext(ls_cadena)
If ll_columna <= ll_num_columnas Then
If ll_fila <= ll_num_filas then
If ll_columna = ll_num_columnas and ll_fila = ll_num_filas then
else
word.Selection.MoveRight(12)
end if
end if
End If
End For
End For
End If
//Guardamos el documento con otro nombre
word.ActiveDocument.SaveAs("plantilla_word2.doc")
//Abrimos el documento
word.documents.open("C:\plantilla_word2.doc")
word.Visible=true
//Luego imprimimos el documento y cerramos Word
word.Application.printout(0)
word.quit(0)
word.DisconnectObject()
DESTROY word
Valora esta pregunta
0