Applescript to format text in powerpoint 2008?

Could some kind soul please help me translate a few lines of VBA to Applescript?

Here is the VBA code:


  -- Warning: this is VBA code!
    ActiveWindow.Selection.TextRange.Font.subscript = msoTrue
    ActiveWindow.Selection.TextRange.Font.BaselineOffset = -0.2
    
    If ActiveWindow.Selection.TextRange.Font.Size < 20 Then
        ActiveWindow.Selection.TextRange.Font.Size = ActiveWindow.Selection.TextRange.Font.Size + 2
    Else
        ActiveWindow.Selection.TextRange.Font.Size = ActiveWindow.Selection.TextRange.Font.Size + 4
    End If

The VBA code would just turn the currently selected text into subscript, change its offset, and its font size.

I tried to learn applescript, but keeps escaping me ;-(

All hints, code snippets, pointers to specific places in documentation, etc. will be highly appreciated.

Thanks a lot in advance.

Best regards,
Gabriel.

No one? pleeeeease …

Or, could someone explain to me how to obtain the currently selected text in applescript from powerpoint 2008?

Thanks a lot in advance.

Best regards,
Gabriel.

Model: Macbook Pro
Browser: Safari 525.27.1
Operating System: Mac OS X (10.5)