Word Makro wie abändern?

bono_d70 — Thu, 22 Dec 2016 09:18:25 GMT

Hallo Leute

Ich habe in Word ein Makro aufgezeichnet und bräuchte für den nächsten Schritt nun aber Eure Hilfe, da ich da nicht weiterkomme.

Das Makro soll auf Knopfdruck den in Word geschriebenen Inhalt als DOCX und PDF an einen frei auszuwählenden Speicherort abspeichern und dann die Datei schließen.

Die Makroaufzeichnung lautet:

   Sub Save_as_PDF_and_DOC()
   '
   ' Save_as_PDF_and_DOC Makro
   '
   '
       ActiveDocument.ExportAsFixedFormat OutputFileName:= _
           "C:\Pool\Pool\Das ist ein Test.pdf", ExportFormat:=wdExportFormatPDF, _
           OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, Range:= _
           wdExportAllDocument, From:=1, To:=1, Item:=wdExportDocumentContent, _
           IncludeDocProps:=True, KeepIRM:=True, CreateBookmarks:= _
           wdExportCreateNoBookmarks, DocStructureTags:=True, BitmapMissingFonts:= _
           True, UseISO19005_1:=False
       ChangeFileOpenDirectory "C:\Pool\Pool\"
       ActiveDocument.SaveAs2 FileName:="Das ist ein Test.docx", FileFormat:= _
           wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
           :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
           :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
           SaveAsAOCELetter:=False, CompatibilityMode:=14
       ActiveDocument.Close
   End Sub

Wie bekomme ich es jetzt hin, dass man nach der Makro-Anwahl noch den Speicherort auswählen kann?
Es handelt sich um Office Prof. Plus 2010

Oder hat da Word schon von Haus aus eine Automatik eingebaut die ich bislang nicht finden konnte?

Herzlichen Dank schon jetzt vorab für alle sachdienlichen Hinweise.

Edit: Hab es selbst lösen können - schliesse somit den Thread

Meine Lösung sieht wie folgt aus, falls jemand so eine Lösung auch braucht:

   Sub MakroSaveAsPDF()
   '
   ' MakroSaveAsPDF Makro
   '
   '

   Dialogs(wdDialogFileSaveAs).Show

        ActiveDocument.ExportAsFixedFormat _
            OutputFileName:=ActiveDocument.Path + "\" + Left(ActiveDocument.Name, InStr     (ActiveDocument.Name, ".") - 1) + ".pdf", _
            ExportFormat:=wdExportFormatPDF, _
            OpenAfterExport:=False, _
            OptimizeFor:=wdExportOptimizeForPrint, _
            Range:=wdExportAllDocument, _
            From:=1, _
            To:=1, _
            Item:=wdExportDocumentContent, _
            IncludeDocProps:=True, _
            KeepIRM:=True, _
            CreateBookmarks:=wdExportCreateNoBookmarks, _
            DocStructureTags:=True, _
            BitmapMissingFonts:=True, _
            UseISO19005_1:=False

            ActiveDocument.Close (wdWordDocument)
   End Sub

Word Makro wie abändern?

bono_d70 — Thu, 22 Dec 2016 09:18:25 GMT

Word Makro wie abändern?

bono_d70 — Thu, 22 Dec 2016 09:18:25 GMT