Access - no es eso

Private Sub ExportarInformeAWord()

    Dim db As DAO.Database

    Dim rst As DAO.Recordset

    Dim wd As Object

    Dim doc As Object

    Dim appWord As Object

    Dim strNombreInforme As String

    strNombreInforme = "NombreDelInforme" ' Cambiar por el nombre del informe que quieres exportar

    Set db = CurrentDb

    Set rst = db.OpenRecordset("SELECT * FROM " & strNombreInforme)

    Set appWord = CreateObject("Word.Application")

    Set doc = appWord.Documents.Add

    rst.MoveFirst

    Do Until rst.EOF

        doc.Content.InsertAfter rst!NombreCampo & vbCrLf

        rst.MoveNext

    Loop

    appWord.Visible = True

    Set wd = appWord.Selection.Range

    wd.WholeStory

    wd.Font.Name = "Calibri"

    wd.Font.Size = 11

    wd.Font.Bold = True

    wd.ParagraphFormat.Alignment = 1

    appWord.Selection.TypeParagraph

    appWord.Selection.TypeParagraph

    appWord.Selection.InsertBreak 7

    doc.SaveAs "C:\ruta\archivo.docx" ' Cambiar por la ruta y el nombre que desees

    rst.Close

    db.Close

    Set rst = Nothing

    Set db = Nothing

    Set doc = Nothing

    Set appWord = Nothing

End Sub