Hi guys,

Firstly: my goal. I need to extract particular parts of text from a PowerPoint presentation to be formatted via regex and used to name other files.

I found this excellent script on PPT Alchemy that writes most of what I need to a Word Document

Sub word()
Dim WdApp As Object
Dim WdDoc As Object
Dim osld As Slide
Dim oshp As Shape
Dim strText As String
Err.Clear
On Error Resume Next
Set WdApp = GetObject(Class:="Word.Application")
If Err <> 0 Then
Set WdApp = CreateObject("Word.Application")
End If
WdApp.Visible = True
Set WdDoc = WdApp.Documents.Add
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If oshp.HasTextFrame Then
If oshp.TextFrame.HasText Then
strText = strText & "Shape: " & oshp.Name & " >>" & _
" Text: " & oshp.TextFrame.TextRange.Font.Color.RGB & oshp.TextFrame.TextRange & vbCrLf
End If
End If
Next oshp
If strText <> "" Then
With WdApp.Selection
.Font.Bold = True
.Font.Size = .Font.Size + 10
.TypeText "Slide " & osld.SlideIndex & " Text"
.TypeParagraph
.Font.Bold = False
.Font.Size = .Font.Size - 10
.TypeText (strText)
.TypeParagraph
End With
End If
strText = ""
Next osld
End Sub
I added the colour into the text string so I can pick out text headings of that colour with Regex.
The problem is the other thing I need are some bulleted lists, formatted with Letters A, B,C,D etc.
These are coming through without their lettering/numbering in the Word doc, and I need it to parse the responses to a multiple choice question.

1. How do I fix this?
2. Is there a way to make this all directly go to the clipboard to cut out the trip to word?

I appreciate the advice, I'm new to this but glad to be figuring out what I can.