BD Access em Word 2007

[x_soldier]

Boas Pessoal.

Estou com dificuldades na ligação de um BD Access em Word, ligo pelo "Mail Merge" mas depois queria apresentar uma listagem. E o Word está a criar uma página por registo...

Alguém me dá uma ajudinha??

Obrigado, Paulo Torres

[apocsantos]

    Boa tarde,

    Podes fazer isso por VBA no Access.

Sub CreateWordDocument

    Dim wordapp As Word.Application
    Dim STRSQL As String
    Dim Conn as adodb.connection
    Dim RST as adodb.recordset

    Set wordapp = CreateObject("Word.application")

    'Open recordset

    set conn = currentproject.connection 
    set RST = new adodb.recordset
    STRSQL = "SELECT * FROM Tabela;" ' executa a query

    RSt.open strsql,conn,adOpenForwardOnly ,adLockReadOnly 

    'Cria documento Word

    wordapp.Visible = True
        
    With wordapp

        .selection.typetext RST!fieldname 'passa para o word os registos obtidos


    End with
    
    
    set rst = nothing 'limpa a variavel rst
    Set wordapp = nothing

end sub

Cordiais cumprimentos,

Apocsantos