A
adiercks
I am trying to convert a .doc file ( a manuscript ) to a .pdf to transfer to
Palm. Adding converters was not the answer.
Palm. Adding converters was not the answer.
I am trying to convert a .doc file ( a manuscript ) to a .pdf to transfer to
Palm. Adding converters was not the answer.
Charlie Hoffpauir said:There are many programs out there that will generate a PDF from "any"
file... Acrobat is the original (expensive) one but there are also
free ones. (Google it). They install and then act like a printer....
you select the pdf generator and then "print" your file... resulting
in a PDF of your file.
Charlie Hoffpauir
http://freepages.genealogy.rootsweb.com/~charlieh/
[email protected] said:Thank you but, I can't get it from Word to Acrobat . . .
If you have Acrobat installed (the full version, not just the reader)Thank you but, I can't get it from Word to Acrobat . . .
Graham Mayor said:Others have commented on 'printing' to the PDF driver, which may work for
you, but to program the equivalent of the Convert to Adobe PDF function is a
tad more complicated and requires a reference to the AdobePDFMakerForOffice
object to be set. You could them use this code, which came up recently in
this forum to Convert to PDF.
Sub ConvertToPDF()
Dim pdfname, i, a
Dim pmkr As AdobePDFMakerForOffice.PDFMaker
Dim stng As AdobePDFMakerForOffice.ISettings
With ActiveDocument
'The document must be saved - so save it!
.Save
Set pmkr = Nothing ' locate PDFMaker object
For Each a In Application.COMAddIns
If InStr(UCase(a.Description), "PDFMAKER") > 0 Then
Set pmkr = a.Object
Exit For
End If
Next
If pmkr Is Nothing Then
MsgBox "Cannot Find PDFMaker add-in", vbOKOnly, ""
Exit Sub
End If
pdfname = Left(.name, InStrRev(.name, ".")) & "pdf"
' delete PDF file if it already exists
If Dir(pdfname) <> "" Then Kill pdfname
pmkr.GetCurrentConversionSettings stng
stng.AddBookmarks = True ' make desired settings
stng.AddLinks = True
stng.AddTags = False
stng.ConvertAllPages = True
stng.CreateFootnoteLinks = True
stng.CreateXrefLinks = True
stng.OutputPDFFileName = pdfname
stng.PromptForPDFFilename = False
stng.ShouldShowProgressDialog = True
stng.ViewPDFFile = False
pmkr.CreatePDFEx stng, 0 'perform conversion
If Dir(pdfname) = "" Then ' see if conversion failed
MsgBox "Could not create " & pdfname, vbOKOnly, "Conversion failed"
End If
End With
End Sub
--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
.
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.