🚀 go-pugleaf

Hi there,

I'm writing a script right now that converts every text on a page into outlines and then deletes the left tables. Now I'm having trouble with the table delete part. Any ideas how to start?

Dim MyIndesign
Set MyIndesign = CreateObject("InDesign.Application.2.0")
Set myDocument = myInDesign.ActiveDocument

REM Unlock all Layers
Set myLayers = myDocument.Layers
For Each Layer In myLayers
Layer.Locked = False
Next

REM Ungroup everything
For InDGroupCount = myDocument.Groups.Count to 1 Step -1
Set InDG = myDocument.Groups.Item(InDGroupCount)
InDG.Ungroup
Next

REM Convert every text on Page into outline
For InDOutlineCount = myDocument.TextFrames.Count to 1 Step -1
Set InDOutline = myDocument.TextFrames.Item(InDOutlineCount)
InDOutline.CreateOutlines
Next

REM How to delete all tables in the Document?

MsgBox ("Finished!")

Btw, is the CreateOutline Part correct? Does it really take every text into account?

Sometimes I wish you could just simulate keyboard commands via script. I know it's not good programming, but would make things easier sometimes for a programming newbie like me ;-) Well, I'm sure it's possible somehow...

Thanks in advance,
Alex