Hola, vereis necesito presentar unos formularios y tengo que hacer algunas cosas que me estan volviendo loco.
Una de ellas es realizar unos botones que con un simple click trasladen la informacion de un informe a un archivo de Word, pero directamente, al pulsar el boton.
Navegando por la web he encontrado que se realiza con el metodo
DoCmd.RunCommand acCmdWordMailMerge
pero no hay manera, cuando pongo este codigo en el Evento al hacer click de los botones me da error 2046 y Me dice " La acción o combinación de Word no esta disponible "
Alguien que lo haya echo alguna vez o que sepa del tema me puede echar una mano?
Muchas Gracias.
EDITO ***
Vale, ya esta solucionado, despues de navegar durante 2 h y media he dado con un ejemplo que he tenido que corregir aun con mis limitados conocimientos, yo no se ni como ha tirao
Por si alguno le surge el mismo problema que a mi, aqui dejo un fragmento de codigo que se pone en el evento "al hacer click" del boton de access para que te lleve directamente al Word.
Otra cosa va a ser coger datos de las tablas y meterlos en el word, otra odisea fijo.
** Codigo **
--------------------------------------------------
Private Sub NombreProcedimiento_Click()
Dim docword As Word.Document
Dim rngcurrent As Word.Range
Dim appword As Word.Application
Set appword = CreateObject("Word.Application.8")
Set docword = appword.Documents.Add()
appword.Visible = True
Set rngcurrent = docword.Content
With rngcurrent
/* aqui el autor tenia variables de nombres y apellidos
para que el Word sacara eso, el mio simplemente abre Word
*/
End With
End Sub
---------------------------------------------
Salu2.
