auxmoney - Geld leihen für das Studiumauxmoney - Geld leihen für das Studium

auxmoney - Geld leihen für den Umzugauxmoney - Geld leihen für den Umzug

Notizentext in Textfile speichern

Notizentext in Textfile speichern; Presentation, Slides, Shapes
Sub Save_NotesText_in_Textfile()
Dim ppPower As Presentation
Dim ppSlids As Slides
Dim ppSlide As Slide
Dim ppShaps As Shapes
Dim ppShape As Shape
Dim NotesText As String
Dim FileNum As Integer
Dim PathSep As String
#If Mac Then
PathSep = ":"
#Else
PathSep = "\"
#End If
Set ppPower = ActivePresentation
Set ppSlids = ppPower.Slides
For Each ppSlide In ppSlids
NotesText = NotesText & "Slide " & ppSlide.SlideIndex & vbCrLf
Set ppShaps = ppSlide.NotesPage.Shapes
For Each ppShape In ppShaps
If ppShape.HasTextFrame Then
If ppShape.TextFrame.HasText Then
NotesText = NotesText & ppShape.TextFrame.TextRange.Text
End If
End If
Next ppShape
NotesText = NotesText & vbCrLf
Next ppSlide
FileNum = FreeFile
Open ppPower.Path & PathSep & "NotesText.TXT" For Output As FileNum
Print #FileNum, NotesText
Close FileNum
End Sub

Mehr Tipps: Präsentation in Textfile speichern

Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen!
Wenn Sie die Information(en) auf dieser Seite interessant fanden, freuen wir uns über eine kleine Spende. Empfehlen Sie uns bitte auch in Ihren Netzwerken (z. B. Twitter, Facebook oder Google+). Herzlichen Dank!

Nach oben Sitemap
Impressum & Kontakt