Connecting Tech Pros Worldwide Forums | Help | Site Map

I want get power point note text

Newbie
 
Join Date: Jul 2009
Posts: 9
#1: Jul 29 '09
Application - Powerpoint 2003
VisualBasic - 2008

************************************************** ************************************

I want know, How can i extract the power point note text?

Any help, please replay.

Frinavale's Avatar
Site Moderator
 
Join Date: Oct 2006
Location: The Great White North
Posts: 5,137
#2: Jul 29 '09

re: I want get power point note text


What are you trying to do?

Powerpoint is used to create slide show presentations. There's text, graphics, videos, hyperlinks, direction/flow navigation, animations, and even music sometimes....

How are you planning on converting all of this to a "note text"?
What is a "note text"?
Newbie
 
Join Date: Jul 2009
Posts: 9
#3: Jul 30 '09

re: I want get power point note text


Thanks for your reply,

I want to extract the text from the............

PPT>>>Menu>>>View>>>Note pages text (presentations note)

Thanks
Newbie
 
Join Date: Jul 2009
Posts: 9
#4: Jul 31 '09

re: I want get power point note text


Hi

I able to get text form note page text , but i can not find still now , how to get text from the note page table text?

my note page extract text code is

Expand|Select|Wrap|Line Numbers
  1.  g_PPTApp = New PowerPoint.Application
  2.         g_PPTApp.Visible = MsoTriState.msoTrue
  3.  
  4.         Dim powerP As PowerPoint.Presentation = g_PPTApp.Presentations.Open(OpenFile, , , MsoTriState.msoTrue)
  5.  
  6.         Dim NotesText As String = String.Empty
  7.  
  8.         For Each slide As PowerPoint.Slide In g_PPTApp.ActivePresentation.Slides
  9.             For Each shape As PowerPoint.Shape In slide.NotesPage.Shapes
  10.  
  11.                 If shape.HasTextFrame = MsoTriState.msoTrue Then
  12.  
  13.                     If shape.TextFrame.HasText = MsoTriState.msoTrue Then
  14.                         NotesText = shape.TextFrame.TextRange.Text
  15.  
  16.                     End If
  17.                 End If
  18.  
  19.             Next
  20.         Next
  21.  
  22.         powerP.Close()
  23.         powerP = Nothing
Reply

Tags
vb.net ppt note text