🚀 go-pugleaf

Raymond--

Here's the VBScript version:



Rem MoveTableExample.vbs 
Rem 
Rem ----------example document setup---------- 
Set myInDesign = CreateObject("InDesign.Application.CS") 
Set myDocument = myInDesign.Documents.Add() 
myString = "1a" & vbTab & "1b" & vbTab & "1c" & vbCr & "2a" & vbTab & "2b" & vbTab & "2c" & vbCr & "3a" & vbTab & "3b" & vbTab & "3c" & vbCr & "4a" & vbTab & "4b" & vbTab & "4c" 
Set myTextFrame = myDocument.Pages.Item(1).TextFrames.Add 
myBounds = myGetBounds(myDocument.Pages.Item(1), myDocument) 
myTextFrame.GeometricBounds = myBounds 
myTextFrame.Contents = myString 
Set myTable = myTextFrame.Texts.Item(1).ConvertToTable 
Rem Add a bit more text--InDesign will crash if we attempt to move *all* of the text in a story. 
myTextFrame.InsertionPoints.Item(-1).Contents = vbCr & "A bit more text." & vbCr 
Set myParagraph = myTextFrame.Paragraphs.Item(1) 
Rem Create the destination text frame. 
Set myDestinationPage = myDocument.Pages.Add 
myBounds = myGetBounds(myDestinationPage, myDocument) 
Set myDestinationTextFrame = myDestinationPage.TextFrames.Add 
myDestinationTextFrame.GeometricBounds = myBounds 
Rem Now move the table into the new text frame. 
myParagraph.Move idLocationOptions.idAtBeginning, myDestinationTextFrame.ParentStory 
Rem----------functions--------- 
Function myGetBounds(myPage, myDocument) 
    myY1 = myPage.MarginPreferences.Top 
    myX1 = myPage.MarginPreferences.Left 
    myY2 = myDocument.DocumentPreferences.PageHeight - myPage.MarginPreferences.Bottom 
    myX2 = myDocument.DocumentPreferences.PageWidth - myPage.MarginPreferences.Right 
    myGetBounds = Array(myY1, myX1, myY2, myX2) 
End Function

Thanks,

Ole