Thank you for your help John! I think I'm pretty close so it's been driving me nuts.

Quote Originally Posted by John Wilson
It looks like your code is overwriting each previous text file leaving you with just the last slide.

You will need to move the write text file out of the loop.
So am I correct in assuming this means I should place:

[VBA] '~~> Export Text
Print #filesize, shp.TextFrame.TextRange.Text & " " & shp.TextFrame.TextRange.Characters.ActionSettings(ppMouseClick).Hyperlink.A ddress [/VBA]

Right after: [VBA]Loop[/VBA] and right before: [VBA] Set ppPrsn = Nothing[/VBA]?

Quote Originally Posted by John Wilson
I don't understand the hyperlink bit, text files in Notepad don't have hyperlink capability AFAIK.
I am attempting to have the full link written out. For example, instead of "Click Here" the output would read, <full URL> when output to the .txt file. I don't need the functionality in notepad, I just need the URL written out.(The .txt file may be imported into another application anyway.)

Is there a way to convert all display text (e.g. "click here") within a powerpoint to the full URL (e.g. <full URL>)?

Would it be more appropriate to have that in a separate thread?