VBA, Converting Word BookMarks to PDF Files

Converting Word BookMarks to PDF Files

Author	Message
N #1 / 2	Converting Word BookMarks to PDF Files (I hate cross posting, but it does pertain to PDFs and Word) I have a Word97 macro that scans a file and breaks it into bookmarks. I then need to loop thru the bookmarks and create individual PDFs. I'm having trouble with the code to automate the creation of the individual PDFs. I'm using a combination of the SendKeys to the active printer as such: Sub SendToPDF(ByVal OutPutFile As String) Dim PDFFile As String Dim DateSfx As String ' ' SendToPDf Macro ' Macro recorded 06/11/01 by Nicholas C. Osdale-Popa ' DateSfx = Format(DateStamp, "mm-dd-yy") PDFFile = OutPutFile & "-" & DateSfx & ".PDF" If FileExists(SAVEDIR, PDFFile) Then Kill SAVEDIR & "\" & PDFFile DoEvents End If ActivePrinter = "Acrobat PDFWriter" SendKeys SAVEDIR & "\" & PDFFile & "{ENTER}" Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _ wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _ Collate:=True, Background:=True, PrintToFile:=False End Sub The main problem with this is that Acrobat starts to run after the first file is made. I would like to use the Acrobat Object (if one exists) to make the files, rather than using the clumsy SendKeys. I'm using Word97 and Acrobat 5.0 Thanks.
Sat, 29 Nov 2003 04:56:44 GMT

Roy Walte #2 / 2	Converting Word BookMarks to PDF Files If I understand your post correctly you need to take a look at the PDFWriter API. There you can set ini/registry flags that a) supress the Save As dialog; and b) allow you to set the output filename. Download a worked example from: http://www.brookhouse.co.uk/adobe/tips/docs2pdf.txt - Roy Quote: > (I hate cross posting, but it does pertain to PDFs and Word) > I have a Word97 macro that scans a file and breaks it into bookmarks. I > then need to loop thru the bookmarks and create individual PDFs. > I'm having trouble with the code to automate the creation of the individual > PDFs. > I'm using a combination of the SendKeys to the active printer as such: > Sub SendToPDF(ByVal OutPutFile As String) > Dim PDFFile As String > Dim DateSfx As String > ' > ' SendToPDf Macro > ' Macro recorded 06/11/01 by Nicholas C. Osdale-Popa > ' > DateSfx = Format(DateStamp, "mm-dd-yy") > PDFFile = OutPutFile & "-" & DateSfx & ".PDF" > If FileExists(SAVEDIR, PDFFile) Then > Kill SAVEDIR & "\" & PDFFile > DoEvents > End If > ActivePrinter = "Acrobat PDFWriter" > SendKeys SAVEDIR & "\" & PDFFile & "{ENTER}" > Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _ > wdPrintDocumentContent, Copies:=1, Pages:="", > PageType:=wdPrintAllPages, _ > Collate:=True, Background:=True, PrintToFile:=False > End Sub > The main problem with this is that Acrobat starts to run after the first > file is made. > I would like to use the Acrobat Object (if one exists) to make the files, > rather than using the clumsy SendKeys. > I'm using Word97 and Acrobat 5.0 > Thanks.
Sat, 29 Nov 2003 05:30:22 GMT

Page 1 of 1

[ 2 post ]