Dobrodošao Gost ( Prijavi se | Registracija )

 
Reply to this topicStart new topic
> PPT Editovanje / budzenje
c0d3r
poruka Feb 16 2011, 10:19
Poruka #1




Grupa: Members
Poruke: 1,848
Registrovan/a: 2. November 02
Korisnik br: 111



Imam gomilu nekih slajdova sa raznih predavanja, pa me zanima jel ima neki brutalan program koji ce to sve da exportuje, u jedan word ili sta god fajl, da bude skripta lajk, da ne moram da stampam te slajdove i da otvaram gomile fajlova ovo ono... smile_black.gif

NS -code koji je polagao zorine predmete moguce da zna na koje slajdove mislim ;).gif
Go to the top of the page
 
+Quote Post
NS-CODE
poruka Feb 16 2011, 11:10
Poruka #2

you can't handle the tur!


Grupa: Members
Poruke: 9,840
Registrovan/a: 21. August 03
Lokacija: na glisadi
Korisnik br: 290



o da biggrin_black.gif ja sam samo skidao margine, kako bi više slajdova stalo na jedan list. bem li ga koji program beše, jer ti su bili zapravo u pdf

sad planiram drugu strategiju čim legne plata: e-papir biggrin_black.gif


--------------------
As an online discussion grows longer, the probability of a comparison involving Nazis or Hitler approaches 1.

Godwin's law
Go to the top of the page
 
+Quote Post
B0JAN
poruka May 16 2011, 21:36
Poruka #3

Unrivalled


Grupa: Members
Poruke: 2,655
Registrovan/a: 19. August 03
Lokacija: Novi Sad
Korisnik br: 288



Probaj preko makroa u pptu da exportujes sve to u txt pa odatle edituj:
CODE
Sub ExtractText()
Dim objPresentation As Presentation
Set objPresentation = Application.ActivePresentation
Dim objSlide As Slide
Dim objShape As Shape
Dim objShape4Note As Shape
Dim objFileSystem
Dim objTextFile
Set objFileSystem = CreateObject(“Scripting.FileSystemObject”)
Set objTextFile = objFileSystem.CreateTextFile(“c:\pptx2txt.txt”, True, True)
For Each objSlide In objPresentation.Slides
objTextFile.WriteLine “”
For Each objShape In objSlide.Shapes
If objShape.HasTextFrame = True Then
If Not objShape.TextFrame.TextRange Is Nothing Then
objTextFile.WriteLine objShape.TextFrame.TextRange.Text
End If
End If
Next
Set objShape4Note = objSlide.NotesPage.Shapes(2)
If objShape4Note.HasTextFrame = True Then
If Not objShape4Note.TextFrame.TextRange Is Nothing Then
objTextFile.WriteLine vbCrLf & “Notes: ” & objShape4Note.TextFrame.TextRange.Text
End If
End If
Next
objTextFile.Close
Set objTextFile = Nothing
Set objFileSystem = Nothing
End Sub



Ili saveuj ppt kao pdf, pa onda pdf kao doc ;-)
Go to the top of the page
 
+Quote Post

Reply to this topicStart new topic
1 korisnika čita ovu temu (1 gostiju i 0 anonimnih korisnika)
0 korisnika:

 

Tekstualna verzija Datum i vreme: 23rd September 2019 - 14:50