** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Insertar tabla en documento desde access
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoInsertar tabla en documento desde access

 Responder Responder
Autor
Mensaje
Antonio Pedro Ver desplegable
Asiduo
Asiduo


Unido: 13/Diciembre/2005
Estado: Sin conexión
Puntos: 249
Enlace directo a este mensaje Tema: Insertar tabla en documento desde access
    Enviado: 12/Octubre/2015 a las 23:14
Buenas noches, tengo insertado en una plantilla de Word la siguiente tabla,
___________________________
Cantidad !Talla !Prenda!
___________________________
{Cantidad}!{Talla}!{Prenda}

en la cual inserto la cantidad ,talla y prenda, que he entregado. Desde un formulario en access tengo insertado un botón con la siguiente instruccion:

Dim appword As Object
Dim strnombredoc As String

strnombredoc = CurrentProject.Path & "\Vestuario.dot"
Set appword = CreateObject("Word.application")
Set docWord = appword.Documents.Add(strnombredoc)
appword.Visible = True
appword.Activate

With appword.Application.Selection.Find
'.Execute findtext:="{HORA}", replacewith:=Format(Forms!FrmVestuario1!Hora, "hh:nn"), Format:=True, Replace:=2
.Execute findtext:="{Fecha}", replacewith:=Format(Forms!FrmVestuario1!FECHA, "dd \d\e mmmm \d\e yyyy"), Format:=True, Replace:=2
.Execute findtext:="{CP}", replacewith:=Nz(Forms!FrmVestuario1!CP, ""), Format:=True, Replace:=2
.Execute findtext:="{Prenda}", replacewith:=Nz(Forms!FrmVestuario1!Prenda, ""), Format:=True, Replace:=2
.Execute findtext:="{CANTIDAD}", replacewith:=Nz(Forms!FrmVestuario1!CANTIDAD, ""), Format:=True, Replace:=2
.Execute findtext:="{TALLA}", replacewith:=Nz(Forms!FrmVestuario1!TALLA, ""), Format:=True, Replace:=2
End With
'docWord.SaveAs "C:\Vestuario\" & Forms!FrmVestuario1!CP & ".doc"
End Sub

Lo que pretendo y no se como hacerlo es que cuando entregue mas vestuario se vaya incrementando la tabla y me vaya insertando mas filas a la tabla ya creada. Un saludo
La tabla tiene 3 columna y una fila.

Arriba
prga Ver desplegable
Moderador
Moderador


Unido: 16/Noviembre/2004
Localización: España
Estado: Sin conexión
Puntos: 3285
Enlace directo a este mensaje Enviado: 13/Octubre/2015 a las 10:52
Hola.
Un ejemplo de trabajo para solucionar el problema sería:

Dim mitabla As Object    'Table
Dim ultimafila As Long
Set mitabla = docword.Tables(1) ' se supone que hay una sola tabla
ultimafila = mitabla.Rows.Count
mitabla.Rows(ultimafila).Select
appword.Application.Selection.InsertRowsBelow 1 ' número de filas a añadir abajo de la tabla
ultimafila = mitabla.Rows.Count
For nn = 1 To mitabla.Columns.Count
  mitabla.Cell(ultimafila, nn).Range.Text = "mi texto en columna nº " & nn
Next


Espero que aporte ideas para solucionar la cuestión.
Ya comentas.
Un saludo a todos
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable