#Notizen #exportieren aus #PowerPoint – #ichtippdasdochnichtallesab


Sie haben eine große, schöne PowerPoint-Präsentation und wollen die Notizen daraus abschreiben? Aber nicht doch – benützen Sie doch folgenden VBA-Code:

Sub Export_Notes()
Dim myPres As Presentation
Dim myPath As Variant
Dim mySlide As Slide
Dim I As Long
Dim myDoc As New Word.Document
Dim WordApp As New Word.Application
On Error GoTo Fehler
     
    Set WordApp = CreateObject("Word.Application")
    WordApp.Visible = True
    Set myDoc = WordApp.Documents.Add
    myDoc.Activate
    Set myPres = PowerPoint.ActivePresentation
    myPath = Left(myPres.FullName, Len(myPres.FullName) - 5) & "_notes.docx"
    For Each mySlide In myPres.Slides
        WordApp.Selection.TypeText "Folie " & mySlide.SlideNumber & vbCrLf
        For I = 1 To mySlide.NotesPage.Shapes.Count
            If mySlide.NotesPage.Shapes(I).TextFrame.HasText Then
                WordApp.Selection.TypeText mySlide.NotesPage.Shapes(I).TextFrame.TextRange & vbCrLf
            End If
        Next I
    Next mySlide
Schluss:
    myDoc.SaveAs2 FileName:=myPath, FileFormat:= _
        wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
        :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
        :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
        SaveAsAOCELetter:=False, CompatibilityMode:=15
    
    Set myPres = Nothing
    MsgBox "Export der Notizen erfolgte in" & vbCrLf & myPath, vbOKOnly, "Fertig"
    Exit Sub
Fehler:
    MsgBox "Error " & Err.Number & " – " & Err.Description
    GoTo Schluss
End Sub
Das erspart Ihnen VIEL Arbeit.

Über katharinakanns

Microsoft Office Master Specialist mit viel Verständnis für IHR Geschäft - ich analysiere IHRE Situation, optimiere IHRE Prozesse, automatisiere IHRE Routineaufgaben, finde IHRE Lösung, unterrichte IHRE MitarbeiterInnen, mache Vorlagen mit IHRER CI, spare IHRE Zeit und IHR Geld. Ich freue mich darauf, SIE kennenlernen zu dürfen :-)
Dieser Beitrag wurde unter PowerPoint, VBA abgelegt und mit , , , , , verschlagwortet. Setze ein Lesezeichen auf den Permalink.

Kommentar verfassen

Trage deine Daten unten ein oder klicke ein Icon um dich einzuloggen:

WordPress.com-Logo

Du kommentierst mit Deinem WordPress.com-Konto. Abmelden / Ändern )

Twitter-Bild

Du kommentierst mit Deinem Twitter-Konto. Abmelden / Ändern )

Facebook-Foto

Du kommentierst mit Deinem Facebook-Konto. Abmelden / Ändern )

Google+ Foto

Du kommentierst mit Deinem Google+-Konto. Abmelden / Ändern )

Verbinde mit %s