Word - Macro guardar PDF nombre parte del texto del documento

   
Vista:

Macro guardar PDF nombre parte del texto del documento

Publicado por Angel (2 intervenciones) el 09/08/2017 10:09:19
Hola, he estado buscando en este foro y tambien en el de access, pero no encuentro la forma de hacer lo que quiero.
Pretendo guardar una copia de un documento de word, que abro a traves de access como copia de una plantilla word 2016. Guardar con el nombre de parte de texto del mismo documento, en realidad es una fecha que muestra dicho documentos en un campo DocProperty que forma parte de un campo de la base de datos. fecha cambiante siempre.
He probado en el evento AutoClose del documento de word, grabando la macro pero no consigo que me lo guarde con la fecha indicada, sino con la que tenia cuando grabe la macro. Lo he conseguido mediante un InputBox, pero me gustaría automatizarlo completamente sin recurrir a la pregunta y consiguientes errores al guardar la fecha en distintos formatos segun quien digita. tambien probé mediante código VBA en access pero no lo consigo. A ver si por medio de la macro en la plantilla de word se puede hacer, no se como referencias dicho campo DocProperty.
Espero ayuda. Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Macro guardar PDF nombre parte del texto del documento

Publicado por Angel (2 intervenciones) el 15/08/2017 12:02:56
Bueno, ya lo tengo. Lo dejo por si alguien lo necesita en el futuro. Gracias.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub CommandButton11_Click()
'
' Guarda copia pdf con nombre del documento activo
'
Dim strName As String
ActiveDocument.Save
strName = Left(ActiveDocument.FullName, Len(ActiveDocument.FullName) - 4)
strName = strName & "pdf"
ActiveDocument.ExportAsFixedFormat OutputFileName:=strName, _
	ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
	wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, to:=99, _
	Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
	CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
	BitmapMissingFonts:=True, UseISO19005_1:=True
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar