Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
"pdf aus Word-VBA öffnen" funktioniert nicht auf j
zurück: Fußzeile aus Tabelle weiter: Makro um Kopf- und Fußzeile zu ändern Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Heinz123
Gast


Verfasst am:
04. Aug 2009, 09:28
Rufname:

"pdf aus Word-VBA öffnen" funktioniert nicht auf j - "pdf aus Word-VBA öffnen" funktioniert nicht auf j

Nach oben
       Version: Office 2003

hey,
ich öffne in einer userform auf wunsch einzelne pdf's, die auf einem server abgelegt sind. meine userform wird auf verschiedenen pc's angewendet. leider öffnen sich die pdf's nur auf ca. 50% der pc's. bei den anderen passiert nichts. alle haben zugang zum server, wo die datei liegt, und der acrobat reader ist auch überall drauf.
Code:

If check_open3.Value = True Then
        Dim datei2 As String
        datei2 = "X:\\ProjektstartUserform\Zusatzdokumente\bma.pdf"
        ShellExecute 0, "open", datei2, "", "", SHOWMAXIMIZED
    End If

kann das am code liegen, oder wie ist das möglich? grüße, Heinz
Hubert_R
Gast


Verfasst am:
04. Aug 2009, 11:55
Rufname:


AW: "pdf aus Word-VBA öffnen" funktioniert nicht a - AW: "pdf aus Word-VBA öffnen" funktioniert nicht a

Nach oben
       Version: Office 2003

Hallo Heinz,

so funktioniert es bei mir. Hast Du alle relevanten Verweise im VBA-Editor für das Projekt aktiviert !?

Grüsse Hubert
Code:
'Attribute VB_Name = "modStart_Progr_mitShellExecute"
Private Declare Function ShellExecute Lib "shell32.dll" Alias _
   "ShellExecuteA" (ByVal hwnd As Long, _
   ByVal lpOperation As String, ByVal lpFile As String, _
   ByVal lpParameters As String, ByVal lpDirectory As String, _
   ByVal nShowCmd As Long) As Long
Private Declare Function GetActiveWindow Lib "user32" () As Long
'
Private Sub Start_Programm_mitShellExecute()
   Dim ret As Long
   Dim hwnd As Long
   strSite = "Dein Pfad\" & "Dein.pdf"
   hwnd = GetActiveWindow
   ret = ShellExecute(hwnd, "open", strSite, 0, 0, 3)
End Sub
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Word Serienbriefe: Serienbriefdruck in pdf MAC 2 Tanatos 105 04. März 2014, 13:29
fridica Serienbriefdruck in pdf MAC
Keine neuen Beiträge Word Serienbriefe: Serienbrief als PDF in Anlage mit personalisierter EMail 1 che.tux 695 13. Sep 2013, 17:24
Gast Serienbrief als PDF in Anlage mit personalisierter EMail
Keine neuen Beiträge Word Serienbriefe: Datenquelle für Serienbrief immer schreibgeschützt öffnen.. 1 Jugendwerkstatt 326 13. Sep 2013, 08:57
oiBio Datenquelle für Serienbrief immer schreibgeschützt öffnen..
Keine neuen Beiträge Word Serienbriefe: Datum im Serienbrief nach erneutem öffnen 2 welle 1199 22. Aug 2013, 13:40
Gastritis Datum im Serienbrief nach erneutem öffnen
Keine neuen Beiträge Word Serienbriefe: PDF mit Mouse - Over - Effekt aus Word erzeugen 0 tzentel 298 07. Aug 2013, 11:22
tzentel PDF mit Mouse - Over - Effekt aus Word erzeugen
Keine neuen Beiträge Word Serienbriefe: Serienbrief als PDF abspeichern - will nicht so recht 0 mrniceguy1977 295 30. Jan 2013, 09:27
mrniceguy1977 Serienbrief als PDF abspeichern - will nicht so recht
Keine neuen Beiträge Word Serienbriefe: Word Seriendruck Etiketten funktioniert nicht 0 evonkula 796 07. Sep 2012, 08:44
evonkula Word Seriendruck Etiketten funktioniert nicht
Keine neuen Beiträge Word Serienbriefe: Beim öffnen des Serienbriefs, Abfrage nach Wert 0 vividas1984 412 12. Feb 2012, 10:27
vividas1984 Beim öffnen des Serienbriefs, Abfrage nach Wert
Keine neuen Beiträge Word Serienbriefe: Word 2000||E-Mail Serien||PDF Anhang wird nicht mit gesendet 27 EagleEye 52270 24. Jan 2012, 14:14
Gast Word 2000||E-Mail Serien||PDF Anhang wird nicht mit gesendet
Keine neuen Beiträge Word Serienbriefe: Serienbrief mit PDF Anhang, Adressquelle Excel 0 Gast 1411 27. Jul 2011, 08:40
Gast Serienbrief mit PDF Anhang, Adressquelle Excel
Keine neuen Beiträge Word Serienbriefe: Ausgabe Serienbrief als viele pdf Dateien 2 Rich0 2164 23. Jun 2011, 15:44
Rich0 Ausgabe Serienbrief als viele pdf Dateien
Keine neuen Beiträge Word Serienbriefe: Hinweis beim öffnen eines Serienbriefes 1 summpas 600 06. Feb 2009, 14:04
Schneewittchen Hinweis beim öffnen eines Serienbriefes
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Frontpage Forum