Thema Datum  Von Nutzer Rating
Antwort
03.01.2020 02:33:09 Zilan
NotSolved
03.01.2020 09:48:37 Codo
NotSolved
03.01.2020 10:00:49 Gast44083
NotSolved
Blau Word als pdf abspeichern
03.01.2020 10:57:39 Codo
NotSolved
03.01.2020 11:55:55 Zilan
Solved
03.01.2020 12:13:08 Zilan
Solved

Ansicht des Beitrags:
Von:
Codo		 Datum:
03.01.2020 10:57:39		 Views:
489		 Rating:
     
Antwort:
  Ja
Thema:
Word als pdf abspeichern 
Sub test()
Dim strOrdner As String
Dim oFileDialog As FileDialog
Set oFileDialog = Application.FileDialog(msoFileDialogSaveAs)
' Dialog
With oFileDialog
     .InitialFileName = ActiveDocument.Path
     .Title = "Beschreibung"
     .FilterIndex = 7    'PDF
     If .Show = -1 Then
        strOrdner = .SelectedItems(1)
        If Right(strOrdner, 1) <> "\" Then strOrdner = strOrdner
     Else
        strOrdner = ""
     End If
End With
End Sub

Das ist eine mögliche Variante. In strOrdner ist dann der komplette Pfad mit Dateinamen.

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
03.01.2020 02:33:09 Zilan
NotSolved
03.01.2020 09:48:37 Codo
NotSolved
03.01.2020 10:00:49 Gast44083
NotSolved
Blau Word als pdf abspeichern
03.01.2020 10:57:39 Codo
NotSolved
03.01.2020 11:55:55 Zilan
Solved
03.01.2020 12:13:08 Zilan
Solved