RE:Creacion de tablas en word desde PB
Para crear la tabla, utiliza la función ActiveDocument.Tables.Add , indicando el nº de filas y columnas.
Para moverte de una celda a otra, puedes utilizar MoveRight, MoveLeft, MoveDown, ...
Espero que con este ejemplo se entienda mejor.
// Ejemplo:
long ll_fila,ll_columna
long ll_num_filas, ll_num_columnas
// Definir el número de filas y columnas
ll_num_filas = 18
ll_num_columnas = 6
// 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 ("Dato [" + string(ll_fila) + "," + string(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