Kopiowanie tekstu z power point

Otwierasz Power pointa, wciskasz alt+f11 u góry wybierasz tools->macros wpisujesz jakąś nazwę , klikasz create. Kasujesz początek i koniec kodu i wklejasz to.

Sub Kopia_Tekstow_PP_do_Worda() 'MVP OShon from VBATools.pl Dim shp As Shape, sl&, i& Dim gshp As GroupShapes Dim wdApp As Object Set wdApp = CreateObject("Word.Application") wdApp.Visible = True wdApp.Documents.Add

With wdApp.Selection For sl = 1 To ActivePresentation.Slides.Count .TypeText Text:="------------- Slajd: " & sl & " -----------------" & vbCr For Each shp In ActivePresentation.Slides(sl).Shapes On Error Resume Next .TypeText Text:=Trim(shp.TextFrame.TextRange) & vbCr Set gshp = shp.GroupItems If shp.Type = msoPlaceholder Then If shp.PlaceholderFormat.ContainedType = msoSmartArt Then For i = 1 To gshp.Count If gshp(i).TextFrame.HasText Then _ .TypeText Text:=Trim(gshp(i).TextFrame.TextRange.Text) & vbCr Next End If End If Next shp Next sl End With

Set gshp = Nothing Set wdApp = Nothing MsgBox "Export wykonany!", vbInformation, "VBATools.pl" End Sub

ctrl+s żeby zapisać macro, F5 do wywołania go będąc w edytorze VBS, F8 jeżeli "jesteś w" prezentacji. ;)