Como trasladar campos formulario access a documento de word
Lo que me gustaría hacer es lo siguiente:
En el formulario de ingreso de datos de una base de datos crear un botón que traslade todos sus campos a un documento de word previamente preparado (sin usar combinación de correspondencia). He encontrado este código de un cerebrito altruista:
Private Sub Comando1_Click()
Dim docword As Word.Document
Dim rgncurrent As Word.range
Set appword = CreateObject("Word.Application.8")
Set docword = appword.documents.Add()
appword.Visible = True
Set rngcurrent = docword.content
With rngcurrent
.insertafter "Nombre: " & nombre & vbCrLf
.insertafter "Apellidos: " & apellidos & vbCrLf
.insertafter "Observaciones: " & vbCrLf & observaciones
.listformat.applybulletdefault
End With
End Sub
Pero este código me crea un documento de word y traslada los datos. Yo querría que trasladara los datos de los campos del formulario detrás de un modelo de escrito preparado sin utilizar combinación de correspondencia. Otra complicación es que el formulario tiene un subformulario que depende de un combo. No sé si será posible hacerlo o no. Si podéis ayudarme os lo agradezco.