Picking up formatting from bulleted text box

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I'm scraping/extracting content from some PowerPoint files from an external VBScript routine, and have been able to find/isolate the text boxes I want reasonably and reliably, but am not sure how to (or if it's possible) to pick up on the formatting used

Specifically, most of the content I'm grabbing is contained in bulleted lists. When I just regurgitate the TextFrame.TextRange.Text property, I get all of the text, but with no delimiters or knowledge of where the bullets are. Is there a property(ies) that would allow me to pick up on the breaks between bullets (so that I can store the content in a manner that will allow it to be redisplayed as intended later)

Thanks

Bret
 
Bret,
Yes you can get all this through a VBA interface. Not easy. Been there
done that. Built an Addin to do it called ShapeStyles available at
www.pptools.com

Not trying to sell my addin as such but it is a very tedious thing to
do. I know.

Brian Reilly, PowerPoint MVP
 
Bret,
Look up the help for IndentLevel, FirstMargin and LeftMargin properties.

--
Regards
Shyam Pillai

http://www.mvps.org/skp

Bret said:
I'm scraping/extracting content from some PowerPoint files from an
Click to expand...
external VBScript routine, and have been able to find/isolate the text boxes
I want reasonably and reliably, but am not sure how to (or if it's possible)
to pick up on the formatting used.
Specifically, most of the content I'm grabbing is contained in bulleted
Click to expand...
lists. When I just regurgitate the TextFrame.TextRange.Text property, I get
all of the text, but with no delimiters or knowledge of where the bullets
are. Is there a property(ies) that would allow me to pick up on the breaks
between bullets (so that I can store the content in a manner that will allow
it to be redisplayed as intended later)?
 
Specifically, most of the content I'm grabbing is contained in bulleted
lists. When I just regurgitate the TextFrame.TextRange.Text property, I get
all of the text, but with no delimiters or knowledge of where the bullets
are. Is there a property(ies) that would allow me to pick up on the breaks
between bullets (so that I can store the content in a manner that will allow
it to be redisplayed as intended later)?>>

Depending on what you're after, this might help:

Sub ByParagraphs()

Dim x As Long
With ActiveWindow.Selection.ShapeRange(1).TextFrame.TextRange
For x = 1 To .Paragraphs.Count
Debug.Print .Paragraphs(x).TrimText
Next x
End With

End Sub
 
Back
Top