How to Convert Word to PDF

How to Convert Word to PDF. Converting Word to PDF files is easy and simple; it is also quite convenient, since PDF files, standing for Portable Document Format, are very convenient and safe systems, allowing the easy and fast transfer of files without broken fonts or other visibility problems.

Converting Word to PDF can be easy, as you can choose the document converter as the printer. Set the document converter as the default printer, using the Control Panel orders. Right clicking the Printers and Faxes options, you can use the document converter as the default one.

In the case you are already using another printer you can easily choose the proper one from the window that opens when pressing the order ‘Print’. In this case, you follow three simple steps:

- You open the Word document
- You click on File, and then on Print
- You choose the converter you want – PDF printer or Universal Converter. In this case you simply go for the PDF files and you are done.

Converting Word to PDF files is easy if you use the Open Office application. The Macro option facilitates the procedure, in a few simple steps:

- Go to Open Office
- Click on Tools
- Then click on Macro
- Click on the Organizer
- Click on Libraries Tab
- Check the Document to Office and then give a name to the new library
- Click on Modules and then rename the module to conversion
- A new window will pop up. All you need to do in this case is to paste the following code:

Sub ConvertWordToPDF(cFile) cURL = ConvertToURL(cFile)

' Open the document.
' Just blindly assume that the document is of a type that OOo will
' correctly recognize and open -- without specifying an import filter.
oDoc = StarDesktop.loadComponentFromURL(cURL, "_blank", 0, Array(MakePropertyValue("Hidden", True), ))

cFile = Left(cFile, Len(cFile) - 4) ".pdf"
cURL = ConvertToURL(cFile)

' Save the document using a filter.
oDoc.storeToURL(cURL, Array(MakePropertyValue("FilterName", "writer_pdf_Export"), ))

oDoc.close(True)

End Sub

Function MakePropertyValue( Optional cName As String, Optional uValue ) As com.sun.star.beans.PropertyValue

Dim oPropertyValue As New com.sun.star.beans.PropertyValue
If Not IsMissing( cName ) Then
oPropertyValue.Name = cName
EndIf
If Not IsMissing( uValue ) Then
oPropertyValue.Value = uValue
EndIf
MakePropertyValue() = oPropertyValue
End Function

You are done with your PDF files!. Article Source: http://arsharing.com

Article title: How to Convert Word to PDF By: Alex De Mostafa

Sturat enjoys writing articles on topics like Converting Word to PDF and Convert Word to PDF

Bookmark and Share


or Search in search box below

Copyright © 2007 - 2010 ArSharing.com | Sitemap

Sedo - Buy and Sell Domain Names and Websites project info: arsharing.com Statistics for project arsharing.com etracker® web controlling instead of log file analysis

Powered by Article Dashboard