RE:insertar tabla a un documento de word
Pedro expuso hace algun tiempo, cómo exportar un DW a Word en:
http://www.lawebdelprogramador.com/news/mostrar_new.php?id=73&texto=Power+Builder&n1=141368&n2=1&n3=0&n4=0&n5=0&n6=0&n7=0&n8=0&n9=0&n0=0
He aquí, ese código corregido y aumentado (creo...):
long ll_fila,ll_columna
long ll_num_filas, ll_num_columnas
// Definir el número de filas y columnas
ll_num_columnas = long(dw_1.Object.DataWindow.Column.Count)
ll_num_filas = dw_1.RowCount()
string ls_connect
string ls_archivo='c:\midocumento.doc'
OLEObject lole_word
lole_word = CREATE OLEObject
ls_connect = "word.application.8"
IF lole_word.ConnectToNewObject(ls_connect) = 0 THEN
lole_word.Documents.open(ls_archivo)
lole_word.Visible=TRUE
// Crear la tabla
lole_word.ActiveDocument.Tables.Add (lole_word.Selection.Range,ll_num_filas,ll_num_columnas)
// Insertar los datos
// Recorrer las filas
for ll_fila = 1 to ll_num_filas
// Recorrer las columnas
for ll_columna = 1 to ll_num_columnas
// Escribir el dato
lole_word.Selection.TypeText ( string(dw_1.Object.Data[ll_fila,ll_columna]) )
// Pasar a la siguiente celda, si no estamos en la última
if ll_columna < ll_num_columnas or ll_fila < ll_num_filas then
lole_word.Selection.MoveRight(12)
end if
next // Columnas
next // Filas
end if
//Nos desconectamos
lole_word.DisconnectObject()
DESTROY lole_word
//-------------------Fin----------------------------------------
