[Resolvido]Anexar registros a um documento Word

Tenho um programa para cadastrar multas de trânsito.
Para cada tipo de infração, possuo uma defesa respectiva escrita em Word.
Por exemplo:

Multa por ausência de cinto de segurança = documento com as contestações legais referentes a este tipo de infração.
Multa por estacionamento em fila dupla = Outro documento com a defesa adequada.

Nos documentos, altero os dados da pessoa e algumas vezes, alguma informação importante ao processo e os imprimo (São dezenas de tipos de documentos, baseados nos artigos do Código de Trânsito Brasileiro).

Há uma forma de eu escolher o documento correspondente através de botões ou caixas no formulário e depois das alterações feitas, este novo documento permaneça anexado a este registro específico?

Lembrando que a chave primária é o auto de infração, ou seja cod_AIT e os dados da pessoa e veículo, irei inserir através a automaticamente a partir do banco de dados.

Desde já, agradeço a quem possa me orientar.

Resolvido

Private Sub gerarDoc_Click()
'ahteixeira (2016) para MaximoAccess
'Adaptado a partir do exemplo do colega Avelino Sampaio
'veja a dica 75 - http://usandoaccess.com.br/dicas/dicas-praticas-de-access-parte-8.asp?id=1&idlista=234#inicio
If IsNull(Me.cartaSel) Then MsgBox "Escolha o modelo da carta para gerar.", vbInformation, "": Exit Sub
Dim wdApl As Object
Dim strModelo As String
Set wdApl = CreateObject("Word.Application")
'--------------------------
'Abre o arquivo do Word
'--------------------------
wdApl.Documents.Open FileName:=CurrentProject.Path & "\" & Me.cartaSel.Column(2)
With wdApl
'Posiciona o cursor no INDICADOR I1 e preenche
.ActiveDocument.Bookmarks("I1").Select: .Selection.Text = Nz(Me.CPF_CNPJ)
'Posiciona o cursor no INDICADOR I2 e preenche
.ActiveDocument.Bookmarks("I2").Select: .Selection.Text = Nz(Me.Nome_RazaoSocial)
'---------------------------------------------------------
'Salva o documento preenchido no mesmo local do aplicativo
'----------------------------------------------------------
strLocal = CurrentProject.Path & "\" & Me.cartaSel.Column(1) & "-" & Nz(Replace(Me.CPF_CNPJ, " ", "")) & "-" & Format(Now, "hhmmss") & ".doc"
.ActiveDocument.SaveAs strLocal ', Password:="123"
'------------------
'Fecha o documento
'------------------
.ActiveDocument.Close
'-------------
'Fecha o Word
'-------------
.Quit
End With
'Limpa a memória
Set wdApl = Nothing
'---------------------------------------------------------
'Abre o documento preechido para visualização e impressão
'---------------------------------------------------------
Application.FollowHyperlink strLocal
End Sub

Voltei a este tópico porque achei importante disponibilizar a solução para o problema citado, pois percebi que a maioria das soluções apresentada não atendem à criação de um texto dinâmico no Word e quando o fazem, são complicados para manipular e não são nem um pouco práticos.
Criei um formulário de texto anexado aos cadastros, onde digito o corpo central a ser enviado para o documento pré-formatado e com parágrafos padrões já prontos. Desta forma, posso editar o texto a partir do formulário e enviar para o Word. O texto é enviado junto com os dados do cliente para uma consulta criar tabela, onde ele é um campo comum de mala direta, que por sua vez gera o documento. Importante ressaltar que criei um botão para abrir outro formulário onde posso criar vários registros com textos adaptados para várias situações no mesmo caso para serem arquivadas e utilizadas posteriormente.

Private Sub defesapessoafisica_Click()
Dim bc As database
Dim tbl_lista As Recordset
Set bc = CurrentDb()
Set tbl_lista = bc.OpenRecordset("tbl_lista")
Me!editardefesa = Me.editardefesa
Set bc = Nothing
Set tbl_lista = Nothing
DoCmd.Save ' linha de comando para salvar
DoCmd.RunCommand acCmdRefresh ' linha de comando para atualizar a tabela

DoCmd.SetWarnings False
DoCmd.OpenQuery "cst_criardefesa", acViewNormal, acEdit
'comando close
DoCmd.SetWarnings True
Dim stDocName As String
Dim stAppNameDOC As String
stAppNameDOC = "C:\Program Files (x86)\Microsoft Office\Office14\WINWORD.EXE" & " " & "C:\TRANSIT\RECURSOS\recursobasepessoafisica.docx"
Call Shell(stAppNameDOC, 1)
Exit_defesapessoafisica_Click:
Exit Sub
Err_defesapessoafisica_Click:
MsgBox Err.Description
Resume Exit_defesapessoafisica_Click
End Sub

Boa noite,
Não percebi se o tema está Resolvido ou não
Para dar por resolvido deve marcar o botão "Resolvido" no canto inferior direito do formulário (não altere o título)

Resolvido