Ich habe in Word einen Comandbutton erstellt um das Word als PDF zu speichern. Dazu soll das Dialogfeld "Speichern unter" geöffnet werden, der Dateiname mit .pdf vorgegeben werden und der Dateityp soll ebenfalls PDF sein.
Mit untenstehendem Code funktioniert zwar das oben beschriebene aber wenn ich dann auf speichern klicke passiert nichts. D.h. das Dialogfeld Speichern schliesst sich aber es wird nichts abgespeichert.
Was mir aufgefallen ist, dass das Dialogfenster nur "Datei speichern" heisst und nicht "Speichern unter". Aber ich finde den Fehler im Code nicht.
Besten Dank für eure Hilfe
Gil
Private Sub CommandButton2_Click()
Dim dlgFile As FileDialog
Dim i As Integer
Dim ext As String
Dim fileName As String
Set dlgFile = Application.FileDialog(msoFileDialogSaveAs)
ext = "*.pdf"
fileName = "MyFileNameHere"
For i = 1 To dlgFile.Filters.Count
If dlgFile.Filters(i).Extensions = "*.pdf" Then
dlgFile.FilterIndex = i
Exit For
End If
Next
With dlgFile
.InitialFileName = fileName
.Show
End With
End Sub
|