Macro to create sequencial versions from a word doc to sequencial pdf files.

macropod · #2 12-03-2018, 02:32 PM

Try:

Code:

Sub A2()
ActiveDocument.ExportAsFixedFormat OutputFileName:= _
  "\\servidor\qsspublic\enfermagem\PISO A\A2 - MFJ\Diario Clinico\Registos\PDFs 2018\Rec" & _
  Format(Now, "DD.MM.YYYY") & ".pdf", _
  ExportFormat:=wdExportFormatPDF, OpenAfterExport:=True, _
  OptimizeFor:=wdExportOptimizeForOnScreen, Range:=wdExportAllDocument, _
  From:=1, To:=1, Item:=wdExportDocumentContent, IncludeDocProps:=True, _
  KeepIRM:=True, CreateBookmarks:=wdExportCreateNoBookmarks, _
  DocStructureTags:=True, BitmapMissingFonts:=True, UseISO19005_1:=False
End Sub

or, if it's only a one-page document:

Code:

Sub A2()
ActiveDocument.SaveAs2 FileName:= _
  "\\servidor\qsspublic\enfermagem\PISO A\A2 - MFJ\Diario Clinico\Registos\PDFs 2018\Rec" & _
  Format(Now, "DD.MM.YYYY") & ".pdf", FileFormat:=wdFormatPDF, AddToRecentFiles:=False
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Batch create word files with link to changing excel	hannes.ledegen	Mail Merge	8	04-07-2016 01:22 AM
How to create a MS word file that automatically logs something specific inside other WORD files?	meys	Word VBA	1	01-04-2015 05:22 AM
Global macro across a number of different word files	daffy	Word VBA	6	07-08-2014 05:42 PM
sequencial numbering keeps breaking	tpen3219	Word	4	12-05-2012 07:45 PM
Merging word files from excel macro	hklein	Excel Programming	0	08-05-2011 02:27 AM