Hi Yves,
We once created a simple script to find text overflows, run the script and
it will find the first overflow. May be you can use it to create a more
advanced script.
// Detect overflow in AFrames
// Script detects first overflow and stops there
// copyright iDTP; versie 1.0; januari 2003
Set vCurrentDoc = ActiveDoc
Set vPgf = vCurrentDoc.FirstPgfInDoc;
Set vStop = 0; //Stop when first overflow found
Loop While((vPgf) and (vStop=0))
Set vNextPgf = vPgf.NextPgfInDoc;
Set vSubCol = vPgf.InTextObj;
If ((vSubCol.Overflowed) and (vSubCol.FrameParent.ObjectName = 'AFrame'))
// Display vSubCol.Properties;
// Position Cursor
New TextLoc NewVar(vTextLoc) Object(vPgf) Offset(0);
Set vCurrentDoc.TextSelection = vTextLoc;
Find TextRange(vTextLoc) ScrollTo;
MsgBox 'Overflow script: Overflow in Anchored Frame (see cursor).
Adapt Frame and run script again.
Set vStop = 1;
Endif;
Set vPgf = vNextPgf;
EndLoop
If (vStop = 0)
MsgBox 'Overflow script: no overflow
EndIf;
Kind regards, vriendelijke groet,
Wim Hooghwinkel
iDTP - Technical Communication Consultant
Adobe Certified Expert (ACE) in FrameMaker
tel. +31652036811
[email protected]
www.idtp.eu
_______________________________________________
You are currently subscribed to Framers as [email protected].
Send list messages to [email protected].
To unsubscribe send a blank email to
[email protected]
or visit
http://lists.frameusers.com/mailman/options/framers/archive%40mail-archive.com
Send administrative questions to [email protected]. Visit
http://www.frameusers.com/ for more resources and info.
