Datos de access en word

Hola
Mira a ver sí esto te puede orientar: http://support.microsoft.com/kb/210271/en-us

Salu2,
-
José Mª Fueyo
[MS MVP Access]

está en inglés, veamos a ver si saco algo claro... gracias por el
aporte.

On 25 abr, 09:19, José Mª Fueyo wrote:

Hola
Mira a ver sí esto te puede orientar:http://support.microsoft.com/kb/210271/en-us

Salu2,
-
José Mª Fueyo
[MS MVPAccess]

Hola de nuevo,
He seguido los pasos, bueno, no era tan difícil ;) lo único es que el
código me da error en objWord As Word.Application y tengo activada la
librería, así que no sé qué puede ser :(


On 30 abr, 19:55, jealindgar wrote:

está en inglés, veamos a ver si saco algo claro... gracias por el
aporte.

On 25 abr, 09:19, José Mª Fueyo wrote:



> Hola
> Mira a ver sí esto te puede orientar:http://support.microsoft.com/kb/210271/en-us

> Salu2,
> -
> José Mª Fueyo
> [MS MVPAccess]- Ocultar texto de la cita -

- Mostrar texto de la cita -

He insertado

Dim objWord As Object
Set objWord = CreateObject("Word.Application")

y me abre el word!!!! qué bien, lo único es que hay una pega... quiero
que el documento sea temporal, es decir, nada más crearse el mismo, se
cierra y me crea un PDF. Esto no me interesa, porque seguramente
tendré que modificar algún punto o cualquier dato, además, siempre
quiero verificar que esté todo correcto. Lo único que quiero es
imprimir y que se borre el documento (los datos se guardarán en la
base para poder imprimirlo cuando quiera).

Otra segunda duda que tengo es... ¿cómo combino en una hoja de word
los datos del form principal con cierto registro del subformulario?

yo sigo investigando

finalmente, mi código (ya lo limpiaré, sólo es la prueba), viene a ser
algo así como:
_________________________________________________________________________________________
Private Sub MergeButton_Click()
On Error GoTo MergeButton_Err

Dim objWord As Object
Set objWord = CreateObject("Word.Application")

With objWord
'Make the application visible.
.Visible = True

'Open the document.
.Documents.Open ("C:\Documents and Settings\Jeannette
\Escritorio\Minutas Pelayo (DB)\MyMerge.docx")

'Move to each bookmark and insert text from the form.
.ActiveDocument.Bookmarks("First").Select
.Selection.Text = (CStr(Forms!Empleados!Nombre))
.ActiveDocument.Bookmarks("Last").Select
.Selection.Text = (CStr(Forms!Empleados!Apellidos))

End With

'Print the document in the foreground so Microsoft Word will not
close
'until the document finishes printing.
objWord.ActiveDocument.PrintOut Background:=False

'Close the document without saving changes.
objWord.ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges

'Quit Microsoft Word and release the object variable.
objWord.Quit
Set objWord = Nothing
Exit Sub

MergeButton_Err:
'If a field on the form is empty, remove the bookmark text, and
'continue.
If Err.Number = 94 Then
objWord.Selection.Text = ""
Resume Next

'If the Photo field is empty.
ElseIf Err.Number = 2046 Then
MsgBox "Please add a photo to this record and try again."
Else
MsgBox Err.Number & vbCr & Err.Description
End If

Exit Sub

End Sub
_________________________________________________________________________________________


On 30 abr, 20:19, jealindgar wrote:

Hola de nuevo,
He seguido los pasos, bueno, no era tan difícil ;) lo único es que el
código me da error en objWord AsWord.Application y tengo activada la
librería, así que no sé qué puede ser :(

On 30 abr, 19:55,jealindgar wrote:



> está en inglés, veamos a ver si saco algo claro... gracias por el
> aporte.

> On 25 abr, 09:19, José Mª Fueyo wrote:

> > Hola
> > Mira a ver sí esto te puede orientar:http://support.microsoft.com/kb/210271/en-us

> > Salu2,
> > -
> > José Mª Fueyo
> > [MS MVPAccess]- Ocultar texto de la cita -

> - Mostrar texto de la cita -- Ocultar texto de la cita -

- Mostrar texto de la cita -