🚀 go-pugleaf

Any language supporting COM would do. I use Borland Delphi. The actual commands send to InDesign are similair as to VB.

For example:

function TFormMain.InDesignConnect: Boolean;
begin
  try
    IDApp := CreateOleObject( 'InDesign.Application' ); // IDApp is global OleVariant
    Result := True;
  except
    ShowMessage( 'InDesign app not found on this pc !' );
    Result := False;
  end;
end;

procedure TFormMain.InDesignNewDoc( iPages: Integer );
var
  i: Integer;
begin
  InDesignConnect;
  IDDoc := IDApp.Documents.Add;
  IDDoc.DocumentPreferences.PageHeight := PAGE_HEIGHT;
  IDDoc.DocumentPreferences.PageWidth := PAGE_WIDTH;
  IDDoc.DocumentPreferences.PagesPerSpread := 1;
  IDDoc.DocumentPreferences.NumberOfPages := iPages;
  for i := 1 to iPages do begin
    IDDoc.Pages.Item( i ).MarginPreferences.ColumnCount := COL_COUNT;
    IDDoc.Pages.Item( i ).MarginPreferences.ColumnGutter := COL_GUTTER;
    IDDoc.Pages.Item( i ).MarginPreferences.MarginBottom := MARGIN_BOTTOM;
    IDDoc.Pages.Item( i ).MarginPreferences.MarginLeft := MARGIN_LEFT;
    IDDoc.Pages.Item( i ).MarginPreferences.MarginRight := MARGIN_RIGHT;
    IDDoc.Pages.Item( i ).MarginPreferences.MarginTop := MARGIN_TOP;
  end;
end;