Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Umwandeln in PDF
Autor: keine frage
Datum: 20.08.02 13:01
hier eine kleine möglichkeit um alle docs in einem verzeichnis zu suchen und zu öffen. mfg jürgen Sub makewordtopdf() Direc = InputBox("Enter Path! Bsp.: c: est\") nextdoc = Dir(Direc & "*.doc") Do While nextdoc <> "" NameoffFile = filename1(nextdoc) Documents.Open FileName:=Direc & nextdoc 'hier nur noch print auf pdf nextdoc = Dir() Loop End Sub Public Function filename1(ByVal file As String) As String 'Funktion zur Extraktion des Filenamens aus Filename+Pfad Dim i As Integer ' Zählvariable For i = 1 To Len(file) If Mid(file, Len(file) - i, 1) = "." Then ' von Rechts solange bis filename1 = Left(file, Len(file) - i - 1) ' DirTrennZeichen gefunden wurde Exit Function End If Next i End Function

Umwandeln in PDF	82	Jürgen	20.08.02 10:58
Re: Umwandeln in PDF	69	Markus	20.08.02 11:33
Re: Umwandeln in PDF	68	Björn	20.08.02 12:17
Re: Umwandeln in PDF	66	Jürgen	20.08.02 12:57
Re: Umwandeln in PDF	288	Elwood	20.08.02 13:03
Re: Umwandeln in PDF	68	keine frage	20.08.02 13:01

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen