Planet PDF Forum Archive

Planet PDF ForumWowsers! This is page is old, head to the LIVE Planet PDF Forum. It features more than 10 conferences, covering everything from beginner to in-depth developer and pre-press discussions. If you wish to continue... one & two archive covers 1999-2011 (160,000 pages).


New Forum | Previous | Next | (P-PDF) Developers


Topic: Create PDF form Word with VBA
Conf: (P-PDF) Developers, Msg: 100935
From: FeThomas
Date: 11/19/2003 11:47 PM

Hi my Name is Felix and I am working as a Controller. I created a report that consists of several Word-Files. They are all stored in one folder. I want to reuse these World files and mark each version with a specific number. Then I need to convert these Word files to PDFs. I tried to realize it in VBA.

My little Program runs so far. The only part that is not working yet, is the automatic conversion form Word to PDF. I cannot get it done.

Below I posted my code.

Sub Zuweisen()
Dim wrd As New Word.Application
Dim myWord As Word.Document

Dim Projektnummer As String
Dim Projektname As String
Dim Counter As String

Dim Path As String

Counter = 1

Projektnummer = TextBox1.Value
Projektname = TextBox2.Value

wrd.Visible = True
wrd.ActivePrinter = "Acrobat Distiller"


With Application.FileSearch
.LookIn = ThisDocument.Path & "\Dokumentenbeschriftung"
.FileType = msoFileTypeWordDocuments
.Execute

For Each Datei In .FoundFiles


Documents.Open Datei
Set myWord = ActiveDocument


myWord.Bookmarks("PNR").Select
With Selection

.InsertAfter Projektnummer
End With


myWord.Bookmarks("PN").Select
With Selection

.InsertAfter Projektname
End With

Application.DisplayAlerts = False

myWord.Save

Dim Name As String

Name = myWord.Name

Path = myWord.Path & "\" & myWord.Name

Application.ActivePrinter = "Acrobat Distiller"


'Print it to a PostScript file using Distiller

Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
Collate:=True, Background:=True, PrintToFile:=False, PrintZoomColumn:=0, _
PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0

Word.Documents(Name).Close

Set myWord = Nothing
Application.DisplayAlerts = True


Next Datei
End With

End Sub

Thanx a lot!

Felix

Germany


PDF In-Depth Free Product Trials Ubiquitous PDF

Debenu Aerialist

The ultimate plug-in for Adobe Acrobat. Advanced splitting, merging, stamping, bookmarking, and link...

Download free demo

Debenu PDF Tools Pro

It's simple to use and will let you preview and edit PDF files, it's a Windows application that makes...

Download free demo

Back to the past, 15 years ago! Open Publish 2002

Looking back to 2002, it's amazing how much of the prediction became a reality. Take a read and see what you think!

September 14, 2017
Platinum Sponsor





Search Planet PDF
more searching options...
Planet PDF Newsletter
Most Popular Articles
Featured Product

Debenu PDF Aerialist

The ultimate plug-in for Adobe Acrobat. Advanced splitting, merging, stamping, bookmarking, and link control. Take Acrobat to the next level.

Features

Adding a PDF Stamp Comment

OK, so you want to stamp your document. Maybe you need to give reviewers some advice about the document's status or sensitivity. This tip from author Ted Padova demonstrates how to add stamps with the Stamp Tool along with related comments.