Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

BATCH kann nicht gestartet werden

Mitglied: Sys3D

Sys3D (Level 1) - Jetzt verbinden

20.02.2006, aktualisiert 23.02.2006, 4271 Aufrufe, 3 Kommentare

Hi!

Ziel: Automatische PDF erstellung, sobalt man ein Dokument öffnet.

Folgend meine Anwendung:

Sobald ein Dokument mit Word geöffnet wird, startet ein VBA-Code, welcher den Dokumentennamen ausließt eine Postscriptdatei generiert und anschließend eine BAT-Datei erstellt (FreePDF/ghostscript kann automatisiert nur mit BAT-Dateien gesteuert werden).
Sobald diese BAT-Datei erstellt ist, wird sie von dem VBA-Code gestartet und das PDF mit dem richtigen Namen (also gleich wie der .doc-name) in einem festgelegten Verzeichnis abgespeichert.

Problem: Wenn der VBA-Code die BAT startet, ist das erstellte PDF leer. Klickt der User jedoch auf die eben von VBA erstellte BAT-Datei, wird das PDF ordnungsgemäß erstellt.

Ich bin ratlos.
Mitglied: Biber
20.02.2006 um 10:39 Uhr
Moin, Synamic,
hört sich an, als wäre zum Zeitpunkt der Batches kein Zugriff auf die Word-Datei möglich.
Hast Du denn ein explizites Document.Save vor dem Aufruf?
Poste doch bitte mal Deinen Makro-Schnipsel.

Grüße Biber
Bitte warten ..
Mitglied: Sys3D
20.02.2006 um 11:03 Uhr
Hi!

Nein, gespeichert wird nicht. Muss eigentlich auch nicht, denn das Dokument wird dann verworfen, nur das PDF bleibt also übrig.

Folgend der VBA-Code (Word97):

Public Function CreatePostScript()

Dim doc As String
doc = ActiveDocument.Name
doc = Left(doc, Len(doc) - 4)

ActivePrinter = "FreePDF XP"
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
Collate:=True, Background:=True, PrintToFile:=True, OutputFileName:="C:\Dokumente und Einstellungen\dewea051\Desktop\Nadler\vor\" & doc & ".ps", _
Append:=False


End Function
Public Function searchFile(sFolder As String, sFileName As String) As Boolean
' search in a directory for a specific file name or the last part of a file
' if one file is found it gives the file path and name back
' if there is more then one the return value is 'false'
' if there is no result the return value is an empty string ""

Set fs = Application.FileSearch
With fs
'.LookIn = sFolder
.LookIn = sFolder
.SearchSubFolders = False
.FileName = sFileName
If .Execute() > 0 Then
searchFile = True
Else
searchFile = False
Exit Function
End If
End With

End Function



Sub anfang()


Call CreatePostScript
Dim doc As String
doc = ActiveDocument.Name
doc = Left(doc, Len(doc) - 4)


Call createFile(doc)

Shell ("D:\createPDF.bat")



End Sub

Public Function createFile(strFilename As String)

Dim fso, erstellen
Set fso = CreateObject("Scripting.FileSystemObject")
Set erstellen = fso.CreateTextFile("D:\createPDF.bat", True)
erstellen.writeline ("C:\Programme\gs8.51\bin\gswin32c.exe -q -dNOSAFER -dNOPAUSE -dBATCH -sDEVICE=pdfwrite -dCompatibilityLevel=1.3 -dPDFSETTINGS=/prepress -dLockDistillerParams=false -dAutoRotatePages=/PageByPage -dEmbedAllFonts=true -dSubsetFonts=true -r600 -dDownsampleMonoImages=true -dMonoImageDownsampleThreshold=1.5 -dMonoImageDownsampleType=/Bicubic -dMonoImageResolution=300 -dDownsampleGrayImages=true -dGrayImageDownsampleThreshold=1.5 -dGrayImageDownsampleType=/Bicubic -dGrayImageResolution=150 -dDownsampleColorImages=true -dColorImageDownsampleThreshold=1.5 -dColorImageDownsampleType=/Bicubic -dColorImageResolution=75 -dConvertCMYKImagesToRGB=false -sOutputFile=""C:\Dokumente und Einstellungen\dewea051\Desktop\nadler\nach\" & strFilename & ".pdf"" -c .setpdfwrite -f C:\DOKUME~1\dewea051\Desktop\Nadler\vor\" & strFilename & ".ps")
erstellen.Close

End Function
Bitte warten ..
Mitglied: Sys3D
23.02.2006 um 09:32 Uhr
Was mir aufgefallen ist: Wenn ich das Windows neu starte, funktioniert die ganze Anwendung ein mal. Also einmal wird ein komplettes PDF erstellt, folgende Versuche führen zu einem leeren PDF.

?¿?¿
Bitte warten ..
Ähnliche Inhalte
Batch & Shell

Batch soll überprüfen, ob Windows-Explorer gestartet ist

gelöst Frage von kaeptenbleiBatch & Shell6 Kommentare

Hallo zusammen, ich würde gerne in einer Batch überprüfen, ob der Windows-Explorer (Dateimanager) gestartet ist (unter Win7prof. x64). Super ...

Windows Server

GPO werden nicht gestartet

gelöst Frage von VSimonWindows Server1 Kommentar

Guten Morgen, ich habe ein kleines Problem und hoffe das Ihr mir weiterhelfen könnt. Ich verteile Abteilungslaufwerke per GPO, ...

Server

Plesk kann nicht gestartet werden

gelöst Frage von irxn84Server5 Kommentare

Hallo, ich bekomme keine Verbindung mehr zu meinen PLESK Server auf meinem 1und1 Server. /etc/init.d/psa status sagt mir , ...

Microsoft

Tool gesucht, das anzeigt welche scripts oder batch etc. NACH dem Anmelden gestartet werden

gelöst Frage von johanna-pMicrosoft8 Kommentare

Hallo, ich suche ein tool, das mir anzeigt, welche Startdateien (scripts, batch-Dateien etc.) NACH dem Anmelden gestartet werden. Clients ...

Neue Wissensbeiträge
Exchange Server

Exchange 2010-2019 Sicherheitslücke durch Regkey löschen schließen

Information von sabines vor 1 StundeExchange Server

Unter ist eine Lücke im Exchange 2010-2019 beschrieben, die durch das Löschen eines reg keys geschlossen werden kann. In ...

Windows Server
Erneutes Release von WS2019 und Win10 v1809
Tipp von IT-Pro vor 1 TagWindows Server3 Kommentare

Hi, nachdem der Windows Server 2019 und Windows 10 in der Version 1809 aufgrund von verschwinden von Dateien nach ...

CPU, RAM, Mainboards
Spectre Update Tool für ältere PCs
Information von sabines vor 1 TagCPU, RAM, Mainboards6 Kommentare

Mit Hilfe eines Tools wird der betreffende PC permanent von einem USB Stick gestartet, der ein passendes Microcode Update ...

Windows 10
Windows 10 Oktober 2018 Update: Es ist wieder da
Tipp von Bowsette vor 1 TagWindows 101 Kommentar

Ein neuer Versuch von Microsoft das Windows 10 Oktober 2018 Update, auch bekannt als 1809, an den Mann zu ...

Heiß diskutierte Inhalte
Windows Server
Windows Server 2016 Lizenzierung - 7 Hyper V VMs
Frage von staybbWindows Server18 Kommentare

Hallo zusammen, wir haben zwei HP Server gekauft mit jeweils pro Server 2 CPUs à 10 Cores. Also insgesamt ...

Batch & Shell
Ordnernamen mit String aus Ziffern-Zahlenkombination erstellen
Frage von MmarKussBatch & Shell16 Kommentare

Hallo zusammen, ich habe ein etwas komplexeres Problem, welches ich selbst mittels einer Batch-Datei lösen will / muss, da ...

Windows Server
Lohnt sich eine Domäne für uns?
Frage von BowsetteWindows Server13 Kommentare

Hallo, ich arbeite in einem kleinen Unternehmen mit mehr als 5 und weniger als 10 Mitarbeitern, also Small Business ...

Windows Server
AD Password Reminder Mail
Frage von TeutoneWindows Server10 Kommentare

Hallo liebe Leute, ich habe vor langer Zeit einmal ein Password Reminder Mail Script erstellt, welches nun nicht mehr ...