Picking up formatting from bulleted text box

[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

 

[Brian Reilly, MS MVP]

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

 

[Shyam Pillai]

Bret,
Look up the help for IndentLevel, FirstMargin and LeftMargin properties.

--
Regards
Shyam Pillai

http://www.mvps.org/skp

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)?

 

[Steve Rindsberg]

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