Access - Leer registro de Access desde Word.

Sub Registro_Access_A_Word()

'

' Recoge los datos del registro activo de un formulario.

'

'

    'Variables para Access

    Dim miForm As Form

    Dim controles As Controls

    'Variables para Word

    Dim objcc As ContentControl

    Dim titulo As String

    Dim numeroControles As Integer

    'Devuelve el formulario que tiene el enfoque.

    Set miForm = Screen.ActiveForm

    Set controles = miForm.Controls

    'Número de controles en el documento de Word.

    numeroControles = ActiveDocument.ContentControls.Count - 1

    'Recorre los controles del escrito de WORD y le asigna el valor de los controles del formulario.

    For x = 0 To numeroControles

        Set objcc = ActiveDocument.ContentControls.Item(x + 1)

        titulo = ActiveDocument.ContentControls.Item(x + 1).Title

        For y = 0 To controles.Count - 1

            If (controles.Item(y).Name = titulo) Then

                If (IsNull(controles.Item(y).Value)) Then

                    objcc.Range.Text = ""

                Else

                    objcc.Range.Text = controles.Item(y).Value

                End If

            End If

        Next y

    Next x

End Sub