> Hola mi problemas es quiero mostrar todos los registros de la base datos,
> pero si le le pongo un while me abre en distintos documentos de word,
> alguien me puede ayudar como mostrar todo en un solo docuento, tengo este
> codigo q me falta para poder hacerlo?
>
> Dim xWord As Word.Application
> Dim xRange As Range
> Dim xSelection As Find
> Dim xTabella As Table
> Dim xCella As Cell
> Set xWord = New Application
> xWord.Visible = False
> xWord.Documents.Add App.Path & "\original1.dot"
>
> Set xRange = xWord.ActiveDocument.Range
> If TDatosPersonales!nombre <> "" Then
> xRange.Find.Execute "%%nombre%%", , , , , , , , ,
> TDatosPersonales!nombre, True
> Else
> xRange.Find.Execute "%%nombre%%", , , , , , , , , "", True
> End If
> xWord.Visible = True
> xWord.WindowState = wdWindowStateMaximize
> xWord.Application.Activate
