Error 462

Más
10 años 4 meses antes #12388 por jopicach
Error 462 Publicado por jopicach
Hola.

Tengo un base access que combino correspondencia con word y me da el siguiente error.

se ha producido el error '462' en tiempo de ejecucion. El equipo servidor remoto no existe o no está disponible. Finalizar-depurar-ayuda

Explico: si doy click al boton abre word y funciona bien. Cierro word y sin hacer nada vuelvo a hacer click al boton y da el error, así, siempre igual, una vez funciona y a la siguiente da error.

Gracias.

Por favor, Identificarse o Crear cuenta para unirse a la conversación.

Más
10 años 4 meses antes #12405 por Mónica
Respuesta de Mónica sobre el tema Error 462
Hola,

Leete el siguiente articulo >>

support.microsoft.com/kb/269330/es

Y comentanos....!

Saludos
Monica

Por favor, Identificarse o Crear cuenta para unirse a la conversación.

Más
10 años 4 meses antes #12407 por jopicach
Respuesta de jopicach sobre el tema Error 462
Hola Mónica.

Gracias por la respuesta, pero no me soluciona el problema.

Al darle al botón de access para que me combine el documento word, lo hace perfectamente a la primera, pero cierro word y vuelvo a pulsar el botón y es cuando me da el error, es como si se quedase abierto. Lo hace una vez sí y otra no, así sucesivamente.

Por favor, Identificarse o Crear cuenta para unirse a la conversación.

Más
10 años 4 meses antes #12408 por Mónica
Respuesta de Mónica sobre el tema Error 462
Holas,

Del articulo que te he pasado ¿que es lo que no te soluciona?

comentanos...!!

Por favor, Identificarse o Crear cuenta para unirse a la conversación.

Más
10 años 4 meses antes #12409 por jopicach
Respuesta de jopicach sobre el tema Error 462
Perdona, quizás sea un poco torpe, pero no veo la solución el el artículo.

Te puedo decir que tengo este códicgo en un módulo:

Option Compare Database
Option Explicit

Global nomDoc As String

Sub abrirDocumentoWord(ByVal nomDoc As String)
' NOTA: Hay que incluir una referencia (menú herramientas) a la librería:
' - Microsoft Word 11.0 Object Library
Dim miWord As Word.Application

On Error Resume Next
Set miWord = New Word.Application
miWord.Documents.Open nomDoc
If Err <> 0 Then
MsgBox "Error al abrir el documento '" & nomDoc & "'." & _
vbCrLf & vbCrLf & "El mensaje del sistema es:" & _
vbCrLf & vbCrLf & Error$ & _
vbCrLf & vbCrLf & "Apertura del documento cancelada."
miWord.Quit
Set miWord = Nothing
On Error GoTo 0
Exit Sub
End If
On Error GoTo 0
miWord.Visible = True
Set miWord = Nothing
AppActivate "Microsoft Word"
End Sub

Y éste otro en el botón de de access para combinar:

Private Sub btnPresentarCartas_Click()
Dim Diligencias As String
Dim año As String
Dim cadEntradaDatosS As String
Diligencias = [Diligencias]
año = Me![añodili] ' año de las diligencias
cadEntradaDatosS = Me![Diligencias] & "-" & Me![añodili]
MiRuta = "Z:TODOS DOCUMENTOS\" & "20" & año & "\" '& cadEntradaDatosS & "\"
MiNombre = Dir(MiRuta & cadEntradaDatosS & "*.*", vbDirectory) ' Recupera la primera entrada.



Dim CheckboxsnCarta As CheckBox ' crea la variable para el CheckBox
snCarta = CheckboxsnCarta
snCarta.Value = True ' Marca el ChekBox

Dim rs As Recordset
Dim rsC As Recordset
Dim n As Integer


' Borramos el contenido de la tabla de datos elegidos
Set rs = CurrentDb().OpenRecordset("datoselegidos", dbOpenDynaset)
If Not rs.EOF Then rs.MoveLast: rs.MoveFirst
Do While Not rs.EOF
rs.Delete
rs.MoveNext
Loop

' Actualizamos el contenido del formulario
Me.Refresh

' Y buscamos los registros marcados para incluir en la carta
Set rsC = CurrentDb().OpenRecordset("select * from datos where snCarta")
If rsC.EOF Then
MsgBox "No hay ningún cliente marcado para incluirlo en la carta."
Else
n = 0
Do While Not rsC.EOF
rs.AddNew
rs!Dili = rsC!Diligencias
rs.Update
rsC.MoveNext
n = n + 1
Loop
End If
rs.Close
rsC.Close

' El nombre del documento Word a abrir será 'prueba.doc' y se encontrará en la
' misma carpeta que esta base de datos
nomDoc = CurrentDb().Name
Do While Right$(nomDoc, 1) <> "\": nomDoc = Left$(nomDoc, Len(nomDoc) - 1): Loop
nomDoc = nomDoc & "Acta.doc"
If n > 0 Then abrirDocumentoWord nomDoc 'abrirDocumentoWord

snCarta.Value = False ' Desactiva el CheckBox

'Combinar en documento nuevo
With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
With .DataSource
.FirstRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord
.LastRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord
End With
.Execute pause:=False
End With

' Guardar documento nuevo en el directorio asiganado a las Diligencias
ChangeFileOpenDirectory "Z:TODOS DOCUMENTOS\" & "20" & año & "\" & cadEntradaDatosS & "\" '& cadEntradaDatosS & " \ " ' Poner ruta de Diligencias"
ActiveDocument.SaveAs FileName:="Acta.doc", FileFormat:= _
wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False

' Guardar plantilla
ActiveDocument.Save

' Cerrar nuevo documento guardado
ActiveWindow.Close
' Guardar plantilla


End Sub

Por favor, Identificarse o Crear cuenta para unirse a la conversación.

Más
10 años 4 meses antes #12410 por jopicach
Respuesta de jopicach sobre el tema Error 462
Perdona por preguntar de nuevo antes de que respondas, pero habría alguna manera de que al abrir el documento word se combinase la correspondencia en ese mismo documento y no en uno nuevo?
Gracias

Por favor, Identificarse o Crear cuenta para unirse a la conversación.

Tiempo de carga de la página: 0.286 segundos
Gracias a Foro Kunena