Abrir Plantilla Word como copia
Publicado por Ángel (90 intervenciones) el 18/04/2018 22:48:47
Hola, y gracias por la ayuda que prestáis. He estado buscando un ejemplo sencillito en access para abrir una plantilla de word con los datos de un registro de access. Encontré un ejemplo que tiene el siguiente código (lo reduzco a un solo campo para que no resulte tedioso de ver)
Funciona perfectamente pero le encuentro un problema que da al traste con todo, y es que abre un documento de word como podéis ver, que al ser cerrado arroja el mensaje de guardar cambios, si por error le damos a sí, se pierden los marcadores que se sustituyen por lo que tenemos en el registro de access. He cambiado el documento por una plantilla de documento, pero pasa lo mismo.
Sabéis alguna forma de lograr que no guarde los cambio? Que abra la plantilla como copia y no en modo edición? Gracias de nuevo.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Comando60_Click()
If IsNull(Anio) Or Anio = "" Then
MsgBox "Debes poner el año para reflejar en el oficio de salida."Exit Sub
End If
Set MiWord = CreateObject("Word.Application")
Set MiDoc = MiWord.Documents.Open(CurrentProject.Path & "\Oficio_Trafico.dotm") 'docx")
MiWord.Visible = True
Set cambio = MiWord.ActiveWindow.Selection.Find
If IsNull(Expediente) Or Expediente = "" Then
cambio.Execute "#Expediente", False, , , , , , , , "", 2
Else
cambio.Execute "#Expediente", False, , , , , , , , Expediente, 2
Set MiWord = Nothing Set MiDoc = Nothing Set cambio = NothingEnd If
Funciona perfectamente pero le encuentro un problema que da al traste con todo, y es que abre un documento de word como podéis ver, que al ser cerrado arroja el mensaje de guardar cambios, si por error le damos a sí, se pierden los marcadores que se sustituyen por lo que tenemos en el registro de access. He cambiado el documento por una plantilla de documento, pero pasa lo mismo.
Sabéis alguna forma de lograr que no guarde los cambio? Que abra la plantilla como copia y no en modo edición? Gracias de nuevo.
Valora esta pregunta
0
