Hi all,

every FrameScript user working under Windows and with text containing
non-ASCII characters has experienced the PlatformToFrame encoding
troubles. In other words: You may want to name a format "schön" or
insert some text "ärgerlich" only to find that FrameMaker replies
with "sch–n" or "”rgerlich" or similar illegible text.

Version 2.1R3 introduced the new options PlatformToFrame and
FrameToPlatform to the Get String command which allow transformation
between those different encodings.

Additional irritations arise from the fact that there are several
places where you _have_ to use platform encoding: The ESystem or
EFileInfo object and with certain dialog boxes.

That is what I (used to) do:

* New String IntValue(138) NewVar(vsae) -- to create the "ä" string
and use this variable to build string (I stopped doing this)

* Enter such characters using Alt+0138 and live with the wrong
presentation in my editor

* Edit such strings an a Mac OS text editor and live with the wrong
presentation in my Windows editor

* Write strings in Windows encoding (possibly from INI files) and
apply Get String PlatformToFrame to them

What I would like to see, is full platform encoding support built
into FrameScript. But if this would be a new feature (and not an
option) older scripts which use non-ASCII strings may break.

Would you be affected by such a change?

Would you go through the one-time trouble checking all your scripts
for non-ASCII string processing to make the necessary changes? (I
would!)

Curious,

- Michael
--
____________________________________________________________
Dipl.-Ing. Michael Müller-Hillebrand    http://cap-studio.de

FrameMaker automatisieren?  Alle Infos:  http://elmscript.de

Hello,

The download problems some of you may have experienced is fixed.
Sorry for any convenience.

http://www.framescript.com/beta
User: beta
Password: betatestfs


Thanks,
Nick

Hi all.

Currently, I am trying to examine the need of
a) skipping text insets in regular scripts at all and
b) the ways to actually do this (if necessary).

During my initial FrameScript days, I got some feedback
from a user that some of my script doesn't work with his
documents that regularly act as containers for text insets.
(Unfortunately, I for myself do not work much with TIs at all.)

So I tried to make (some of) my scripts 'text inset ready'
the following way:
Loop through all flows & all pgfs in that flows, get text
list, skip test inset pgfs. Find table and footnote anchors.
Find table title and table footnotes.
Well: This approach is much too complicated for simple scripts.

Because of the current thread, I questioned in depth
whether it is actually necessary to skip text insets at all.

Although it is (obviously) clear that changes in text
inset paragraphs will be useless (and probably irritating
to the user) because those changes will be rejected after
the next update of the text insets:
I questioned whether regular scripts should *not* work when
processing TI paragraphs.

All changes of TI paragraphs with FrameScript I tested do
seem to *work* without any grumbling from FS:
Changing character properties, deleting chars, changing
paragraph properties, deleting complete paragraphs.

So:
Could anyone illuminate me what problems could occur
when processing text inset paragraphs??

- - - - - - - -

Another way trying to avoid the way skipping TI paragraphs
I already mentioned:

Skilled FrameScript writers know that it is necessary to
   Set TextInset.Locked = False;
to change any TI properties
(and after processing
   Set TextInset.Locked = True;
of course).

Actually, all paragraphs do also have a .Locked property.
Unfortunately, this prop is (quoting the FS Reference) only
"True if the paragraph is part of a text inset that retains
formatting information from the source document."
That means, the source of the imported text's format must
be set to 'SourceDoc':
   Set TextInset.TiFormat = SourceDoc;
to get any 'Pgf.Locked = True'.

So: One could reliably check whether any paragraph is part
of a text inset when changing all text inset's .TiFormat
property to 'SourceDoc', scanning the paragraphs and then
(optionally) changing back the original .TiFormat.

- - -

An alternative way would be to collect all TI paragraph
.unique IDs - and check that IDs when processing the pgs
- see my previous message.

- - -

Anyway: The main question it whether there are any problems
when changing/deleting any TI's pgfs/properties at all.

Thank you & kind regards,
Klaus Mueller

Hi Klaus,

I usually use the Unlock/Lock technique to prevent errors.

Rick Quatro
585 659-8267
frameexpert@...

Message Attachments:

Email attachments will no longer be archived in the Messages area, although

Yahoo! Groups will continue to deliver attachments sent by email.  On August

21st, all attachments in the Messages area will be removed, and Yahoo! will be

unable to retrieve the data. Please note: All of your group messages will

remain. Only the attachments will be deleted.

Hi,

I am trying to publish the contents of a email notification datatbase.  When I
try to run just a basic script I get this "Framescript: Run Error (Unknown Error
Code) on command RUN At line 44 in C:\Program
Files\ElmSoft\Framescript70\LIB\EDBUtils.fsl"

A few weeks ago when I was working on a different script, everything was fine. 
I havn't modified this file at all and I was hoping someone could help me.

Thanks,

Wade

-----------------------------------
C. Wade Courtney
Sr. Technical Writer
Elance, Inc.
direct   408.524.7537
cell      510.828.2564
fax       408.524.4814
email   wcourtney@...
YM      wcourtne
www.elance.com

Hi Wade,

You did not try that DB query with FrameScript 3, did you?

Kind regards,
Klaus Mueller

I don;t know, but I fixed the problem.  The DB wasn;t registed in my
windows ODBC panel.

But now there is another problem.
This error was in a window entitled WinEdit.


When I run the query everything is fine then I get the following
error

"Access violation at address 035831EF in module'eplusdb.dll'. Read
of Address 000000000.

I looked through the archive and saw a few messages about the dll.
Are these issues related?

How can I update my dlls?

Thanks

Wade

--- In framescript-users@yahoogroups.com, Klaus Mueller
<mueller23@w...> wrote:
> Hi Wade,
>
> You did not try that DB query with FrameScript 3, did you?
>
> Kind regards,
> Klaus Mueller

This error was in a window entitled WinEdit.


When I run the query everything is fine then I get the following error

"Access violation at address 035831EF in module'eplusdb.dll'. Read of Address
000000000.

I looked through the archive and saw a few messages about the dll.  Are these
issues related?

How can I update my dlls?

Thanks

Wade

-----------------------------------
C. Wade Courtney
Sr. Technical Writer
Elance, Inc.
direct   408.524.7537
cell      510.828.2564
fax       408.524.4814
email   wcourtney@...
YM      wcourtne
www.elance.com

This error was in a window entitled WinEdit.


When I run the query everything is fine then I get the following error

"Access violation at address 035831EF in module'eplusdb.dll'. Read of Address
000000000.

I looked through the archive and saw a few messages about the dll.  Are these
issues related?

How can I update my dlls?

Thanks

Wade

-----------------------------------
C. Wade Courtney
Sr. Technical Writer
Elance, Inc.
direct   408.524.7537
cell      510.828.2564
fax       408.524.4814
email   wcourtney@...
YM      wcourtne
www.elance.com

Greetings!

I've just dived into FrameScript, and I really, really
like it...once I get it to work.

I'm having a little difficulty understanding how all
the variable names/objects relate to each other.
Therefore, I'm having trouble. (I'm also hopeless at
searching archives)

As some of you may have heard from the STC
SingleSourcing or LoneWriters SIGs, I'm in the process
of converting a large pile of Frame documents from one
template to another.

Before I import styles, I like to clean out my table,
character and Paragraph catalogs, so that they don't
get cluttered. I'd REALLY like this to happen via
FrameScript, and given the Delete command, it should.

I'm just having issues.

This is my current guess:

Loop ForEach(TblFmt) In(ActiveDoc) LoopVar(tblloopy)
   Display tblloopy.TblTag; //I see that I do find the
right name
   Delete(tblloopy.TblTag);
EndLoop

But, that's not working.

Any and all suggestions greatly appreciated!

Thanks!

Zoe





__________________________________
Do you Yahoo!?
Yahoo! SiteBuilder - Free, easy-to-use web site design software
http://sitebuilder.yahoo.com

Hello,

The documents I work with use captioned examples to describe
programming examples. These often break across pages, and so we put
them inside tables (single column, one row per line) so that the
caption (and the continuation variable) will follow the examples
across pages.

This table "wrapping" is currently done using some custom routines
written with the FDK by a consultant. I'd like to replace this with a
FrameScript script.

I'm new to FrameScript, but I've had some modest success getting
parts of the algorithm to run correctly. I'm stuck, though, on
transferring the text into the tables.

Here's the setup:

(1) An example is defined as a paragraph with the tag "ExampleTitle"
followed by one or more paragraphs tagged as "Code" or "CodeEmphasis".

(2) There exists an anchor holder tag named "TableHolder".

(3) There is a table format, named 'Example' that is already set up
to begin its header with a paragraph tagged "ExampleLabel," which
includes required autonumbering. The text of the paragraph that is
tagged "ExampleTitle" should go after this "ExampleLabel" paragraph,
in the header row.

I've succeeded in being able to identify the examples, then insert
above them an "Example" table, anchored in a "TableHolder" paragraph,
with the same number of rows as there are lines
of "Code"/"CodeEmphasis".

I'm assuming I need to cut and paste the text, but I've run into two
problems with that -- either processing stops, or all of the text
gets dropped into the first row.

Any help you can provide would be appreciated!

Sorry for the long post, just wanted to be as specific as possible.

Thanks,
Andrew Savikas

Hi Zoe,

you must store the next TblFmt before you delete the current. Otherwise the
loop has no chance to "pass the baton" to the next TblFmt. In your loop you
only delete the tag. I think you would delete the complete TblFmt?

>
> I'm just having issues.
>
> This is my current guess:
>
> Loop ForEach(TblFmt) In(ActiveDoc) LoopVar(tblloopy)
>   Display tblloopy.TblTag; //I see that I do find the right name
>   Delete(tblloopy.TblTag);
> EndLoop
>
> But, that's not working.

Loop ForEach(TblFmt) In(ActiveDoc) LoopVar(tblloopy)
   Display tblloopy.TblTag; //I see that I do find the right name
   // Store the next table format in a temporary variable
   Set vNextTblFmt = tblloopy.NextTblFmtInDoc;
   DeleteObject(tblloopy);
   // Set the loop variable to the temporary variable
   Set tblloopy = vNextTblFmt;
EndLoop

Regards

Michael

--- In framescript-users@yahoogroups.com, Zoe Lawson
<messalina17@y...> wrote:
> Greetings!
>
> I've just dived into FrameScript, and I really, really
> like it...once I get it to work.
>
> I'm having a little difficulty understanding how all
> the variable names/objects relate to each other.
> Therefore, I'm having trouble. (I'm also hopeless at
> searching archives)
>
> As some of you may have heard from the STC
> SingleSourcing or LoneWriters SIGs, I'm in the process
> of converting a large pile of Frame documents from one
> template to another.
>
> Before I import styles, I like to clean out my table,
> character and Paragraph catalogs, so that they don't
> get cluttered. I'd REALLY like this to happen via
> FrameScript, and given the Delete command, it should.
>
> I'm just having issues.
>
> This is my current guess:
>
> Loop ForEach(TblFmt) In(ActiveDoc) LoopVar(tblloopy)
>   Display tblloopy.TblTag; //I see that I do find the
> right name
>   Delete(tblloopy.TblTag);
> EndLoop
>
> But, that's not working.
>
> Any and all suggestions greatly appreciated!
>
> Thanks!
>
> Zoe
>
>

Zoe,

This works for me....

Rick D.

========

Set vDoc = ActiveDoc;

//Delete Character Formats
Set vCharFmt = vDoc.FirstCharFmtInDoc;
Loop While(vCharFmt)
   Set vDelFmt = vCharFmt;
   Set vCharFmt = vCharFmt.NextCharFmtInDoc;
   Delete Object(vDelFmt);
EndLoop

//Delete Paragraph Formats
Set vPgfFmt = vDoc.FirstPgfFmtInDoc;
Loop While(vPgfFmt)
   Set vDelFmt = vPgfFmt;
   Set vPgfFmt = vPgfFmt.NextPgfFmtInDoc;
   Delete Object(vDelFmt);
EndLoop

//Delete Table Formats
Set vTblFmt = vDoc.FirstTblFmtInDoc;
Loop While(vTblFmt)
   Set vDelFmt = vTblFmt;
   Set vTblFmt = vTblFmt.NextTblFmtInDoc;
   Delete Object(vDelFmt);
EndLoop

Hi Andrew,

> I'm assuming I need to cut and paste the text, but I've run into two
> problems with that -- either processing stops, or all of the text
> gets dropped into the first row.
>

I think there are two reasons, because your script is running failure:

1) The cut command only works in visible documents

2) If you cut the paragraph in a loop, without saving the next paragraph,
your loop has no change to "pass the baton" to the next paragraph.

Loop ForEach(Pgf) In(vDoc) LoopVar(vPgf)
   // Save the next paragraph in a temporary variable
   Set vNextPgf = vPgf.NextPgfInFlow;
   // Do something else with the paragraph

   // Delete or cut the paragraph
   Delete Object(vPgf);
   // Set the loop variable to the temporary variable
   Set vPgf = vNextPgf;
EndLoop

Regards

Michael

Hello Zoe,

Welcome!

> I'm having a little difficulty understanding how all
> the variable names/objects relate to each other.

You may check out Michael Müller-Hillerbrand's FOS
Browser (Frame Object Structure Browser) at
http://www.elmscript.de/res/FOSBrowser.zip (Win) or
http://www.elmscript.de/res/FOSBrowser.sit (Mac).

If you are using TextPad as script editor, you may find
the FS ClipLibrary useful:
http://groups.yahoo.com/group/framescript-users/files
(there you also find sample scripts and other useful
things like syntax coloring definitions)

> Before I import styles, I like to clean out my table,
> character and Paragraph catalogs

Are you sure you want to delete the complete catalog?
(There are some scripts available to delete only the
unused objects.)

> Loop ForEach(TblFmt) In(ActiveDoc) LoopVar(tblloopy)
>   Display tblloopy.TblTag; //I see that I do find the right name
>   Delete(tblloopy.TblTag);
> EndLoop

You can't delete objects this way.
Instead you need to:

   Set vDoc = ActiveDoc;
   Set vObj = vDoc.FirstPgfFmtInDoc;
   Loop While(vObj)
     Set vObjToDelete = vObj;
     Set vObj = vObj.NextPgfFmtInDoc;
     Delete Object(vObjToDelete);
   EndLoop
   Set vObj = vDoc.FirstCharFmtInDoc;
   Loop While(vObj)
     Set vObjToDelete = vObj;
     Set vObj = vObj.NextCharFmtInDoc;
     Delete Object(vObjToDelete);
   EndLoop´
   Set vObj = vDoc.FirstTblFmtInDoc;
   Loop While(vObj)
     Set vObjToDelete = vObj;
     Set vObj = vObj.NextTblFmtInDoc;
     Delete Object(vObjToDelete);
   EndLoop

See also "Loops and Linked Lists" and other FrameScript
tutorials from Rick Quatro at
http://www.frameexpert.com/tutorials/index.htm

> Display tblloopy.TblTag; //I see that I do find the right name

If you want to get all properties of an object, take
a look in the FS Reference or simply

   write console ObjectVar.Properties;
   // e.g.:
   write console tblloopy.Properties;

Kind regards,
Klaus Mueller



"Hi, my name is Messalina, I'm going to be your server tonight."
Xena glared at the woman and then whispered to the bard, "Why is she so furking
friendly? What's her problem, anyway? She another poet girl groupie?"

Hello Andrew,

> I'm assuming I need to cut and paste the text

Regularly, you want to avoid the commands Cut & Paste
because of the restriction Michael already mentioned.

Instead, try it this way:

   Set vDoc = ActiveDoc;
   If (not vDoc) LeaveSub; EndIf

   //-- Get pgf & tbl fmts:
   Get Object Type(PgfFmt) Name('TableHolder')
     NewVar(vTableHolder) DocObject(vDoc);
   If (not vTableHolder) LeaveSub; EndIf
   Get Object Type(PgfFmt) Name('ExampleLabel')
     NewVar(vExampleLabel) DocObject(vDoc);
   If (not vExampleLabel) LeaveSub; EndIf
   Get Object Type(PgfFmt) Name('ExampleTitle')
     NewVar(vExampleTitle) DocObject(vDoc);
   If (not vExampleTitle) LeaveSub; EndIf
   Get Object Type(TblFmt) Name('Example')
     NewVar(vTblExample) DocObject(vDoc);
   If (not vTblExample) LeaveSub; EndIf

   //-- Loop through pgfs:
   Set vPgf = vDoc.FirstPgfInMainFlow;
   Loop While(vPgf)
     //-- Store next pgf object:
     Set vPgfNext = vPgf.NextPgfInFlow;
     //-- Check pgf name:
     If (vPgf.Name = 'ExampleTitle') //-- Found starting pgf
       //-- Apply anchor tag:
       Set vPgf.Properties = vTableHolder.Properties;
       //-- Store title text:
       Set vTitle = vPgf.Text;
       //-- Delete pgf text:
       New TextRange NewVar(vTR) Object(vPgf)
         Offset(0) Offset(ObjEndOffset-1);
       Delete Text TextRange(vTR);
       //-- Insert new table:
       New Table NewVar(vTbl) TextLoc(vPgf.TextRange.Begin)
         Format('Example') NumCols(1)
         HeaderRows(1) BodyRows(1) FooterRows(0);
       //-- Get/set table col width:
       //Set vColWidth = vPgf.InTextObj.Width; //-- SubCol
       Set vColWidth = vPgf.InTextFrame.Width; //-- TextFrame
       New MetricList NewVar(vColWidhts) Value(vColWidth);
       Set vTbl.TblColWidths = vColWidhts;
       //-- Set table title setting:
       //Set vTbl.TblTitlePosition = TblTitleAbove;
       Set vTbl.TblTitlePosition = TblNoTitle;
       //-- Insert table title:
       //New Text Object(vTbl.FirstPgf) NewVar(vTL) vTitle;
       //-- Insert table header:
       Set vRow = vTbl.FirstRowInTbl;
       Set vTblPgf = vRow.FirstCellInRow.FirstPgf;
       New Text Object(vTblPgf) vTitle;
       Set vTblPgf.Properties = vExampleLabel.Properties;
       // > "ExampleTitle" should go *after this "ExampleLabel" paragraph*
       //-- New paragraph?:
       //New Pgf PrevObject(vTblPgf) NewVar(vTblPgf) Text(vTitle);
       //Set vTblPgf.Properties = vExampleTitle.Properties;
       Set vIsTable = True;
     Else
       If (vIsTable) //-- table already created
         Find String('Code') InString(vPgf.Name) Prefix
           ReturnStatus(vFound);
         If (vFound) //-- Move pgf text into table
           If (vRow not= vTbl.FirstRowInTbl)
             //-- Insert new row:
             New TableRows TableObject(vTbl) RowObject(vRow)
               Direction(Below) BodyRows(1);
           EndIf
           Set vRow = vRow.NextRowInTbl;
           //-- Insert code text:
           Set vTblPgf = vRow.FirstCellInRow.FirstPgf;
           New Text Object(vTblPgf) vPgf.Text;
           //-- Apply pgf properties:
           Set vTblPgf.Properties = vPgf.Properties;
           //-- Delete pgf:
           Delete Object(vPgf);
         Else
           //-- End of code
           Set vIsTable = False;
         EndIf
       EndIf
     EndIf
     Set vPgf = vPgfNext;
   EndLoop


Kind regards,
Klaus Mueller


At 01.08.2003 18:52, andrewsavikas wrote:
>Hello,
>
>The documents I work with use captioned examples to describe
>programming examples. These often break across pages, and so we put
>them inside tables (single column, one row per line) so that the
>caption (and the continuation variable) will follow the examples
>across pages.
>
>This table "wrapping" is currently done using some custom routines
>written with the FDK by a consultant. I'd like to replace this with a
>FrameScript script.
>
>I'm new to FrameScript, but I've had some modest success getting
>parts of the algorithm to run correctly. I'm stuck, though, on
>transferring the text into the tables.
>
>Here's the setup:
>
>(1) An example is defined as a paragraph with the tag "ExampleTitle"
>followed by one or more paragraphs tagged as "Code" or "CodeEmphasis".
>
>(2) There exists an anchor holder tag named "TableHolder".
>
>(3) There is a table format, named 'Example' that is already set up
>to begin its header with a paragraph tagged "ExampleLabel," which
>includes required autonumbering. The text of the paragraph that is
>tagged "ExampleTitle" should go after this "ExampleLabel" paragraph,
>in the header row.
>
>I've succeeded in being able to identify the examples, then insert
>above them an "Example" table, anchored in a "TableHolder" paragraph,
>with the same number of rows as there are lines
>of "Code"/"CodeEmphasis".
>
>I'm assuming I need to cut and paste the text, but I've run into two
>problems with that -- either processing stops, or all of the text
>gets dropped into the first row.
>
>Any help you can provide would be appreciated!
>
>Sorry for the long post, just wanted to be as specific as possible.
>
>Thanks,
>Andrew Savikas

Enter your vote today!  A new poll has been created for the
framescript-users group:

Favourite breakup phraselet

   o "It's not you, it's me..."
   o "It's not me, it's you..."
   o 'You're more like a brother /sister / best friend..."
   o "We've grown apart..."
   o "We've outgrown eachother..."
   o "You're too good for me..."
   o "By the time you read this I'll be a woman..."
   o "I'm holding you back from all the other lives you could be ruining..."
   o "I've got this disease..."
   o "I got too much love for one, baby..."


To vote, please visit the following web page:

http://groups.yahoo.com/group/framescript-users/surveys?id=1128461

Note: Please do not reply to this message. Poll votes are
not collected via email. To vote, you must go to the Yahoo! Groups
web site listed above.

Thanks!

Sorry everyone, that poll was intended for another group...

(although in the spirit of adaptation, I may create one appropriate
for this group)

Mike

Hi everyone (and, once again, apologies for my earlier off-topic
silliness)

I've written a script that extracts xref ID attribute information
from specific elements in a structured template. This data is then
stored and used elsewhere within the script.

The elements containing the ID attribute are numerous, and exist at
all levels within the document; however, the only ones I am
interested in sit three levels below the root element
(called 'section').

Fortunately for me, elements at this level have a context label and
this is how I've managed to discriminate between them and others
within the element hierarchy. What I *really* wanted to do though was
discriminate on the basis of depth. The relevant code fragment is
shown below:


Set vCurrentDoc = ActiveDoc;
Set vFirstElement = vCurrentDoc.MainFlowInDoc.HighestLevelElement;
Run ScanElements vElement(vFirstElement);
Sub ScanElements
Local vNextElement;
Set vNextElement = vElement.FirstChildElement;
Loop While(vNextElement)
Run ScanElements vElement(vNextElement);
If vNextElement.ContextLabel = 'header';
  Set vAttributes = vElement.Attributes;
   Loop While(i <= vAttributes.Count) LoopVar(i) Init(1) Incr(1)
     Get Member Number(i) From(vAttributes) NewVar(vAttribute);
     If vAttribute.attrName = 'ID'

\\ ---- Stuff happens here -------

     EndIf
   EndLoop
EndIf
Set vNextElement = vNextElement.NextSiblingElement;
EndLoop
EndSub


I would like to replace: If vNextElement.ContextLabel = 'header'

with: If vNextElement.Parent.Parent.Parent.ElementDef.Name = 'section'

...but this doesn't work. Anyone have any idea why? I'm new to
structured FrameScripting and feeling a bit confused!

Cheers,

Mike

-----Original Message-----
From: Wade Courtney
Sent: Monday, August 18, 2003 5:04 PM
To: Framescript-user@yahoogroups.com
Subject: [framescript-users] I fixed my previous problem but now I have another issue SORRY for the spam

This error was in a window entitled WinEdit.


When I run the query everything is fine then I get the following error

"Access violation at address 035831EF in module'eplusdb.dll'. Read of Address 000000000.

I looked through the archive and saw a few messages about the dll.  Are these issues related?

How can I update my dlls?

Thanks

Wade

-----------------------------------
C. Wade Courtney
Sr. Technical Writer
Elance, Inc.
direct   408.524.7537
cell      510.828.2564
fax       408.524.4814
email   wcourtney@...
YM      wcourtne
www.elance.com


------------------------------------
    To post a message, email: framescript-users@yahoogroups.com
    To subscribe, email: framescript-users-subscribe@yahoogroups.com
    To unsubscribe, email: framescript-users-unsubscribe@yahoogroups.com
    To contact the list owner, email: framescript-users-owner@yahoogroups.com
    To change your email address or delivery options, visit: http://groups.yahoo.com/group/framescript-users
    To promote this group on your web site, visit: http://groups.yahoo.com/group/framescript-users/promote


Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.

I'm trying to create a dialog box for choosing a condition format.
When I select the condition, other processing of the document(s)
occurs.

I can make it work in a single file using the following code:

      DialogBox
        Type(ScrollBox)
        Title('Please select a condition format:')
        Caption('Condition Format')
        List(DocCondFmtNameList)
        Button(vButton)
        NewVar(vCondition);

Is there a simple way to do the same in a book file? Or do I need to
do something like loop through the book components and check the
DocCondFmtNameList in each document?

Rick

Hi Rick,

> do I need to do something like loop through the book
> components and check the DocCondFmtNameList in each
> document?

Definitely (unless you can import CondFmts from a template).

Additionally, you need to make sure that the selected
condition format (and its color definitions) does exist
in each document.

Kind regards,
Klaus Mueller

Hello there,

This works great!
Lets say, however, taht before I am vist the cells of a table, i.e.
after ( Set vTbl = vAnchor.TextData; ), I want to also visit each
PgfFmt of the table Title (tblTitle). I have tried treating it like a
flow, cell, or row but I cannot seem to access it:
set vTblTitle = vTbl.TblTitleElement
???

Thank you very much!
Ben





--- In framescript-users@yahoogroups.com, Klaus Mueller
<mueller23@w...> wrote:
> Rick,
>
> > I created a script--based on Klaus's char tags script--
> > that will strip all occurrences of our change bar tags
> > in a document/book.
>
> > how do I tell the script to ignore the insets that it sees?
>
> The CharFormattingsToTags.fsl and RemoveCharTags.fsl do
> skip pgfs in text insets since version 1.1.
> Search the script for "Get TextList InObject(vPgfFlow)
TextInsetBegin".
>
>
> Generally:
> If your script does loop through paragraphs, the only way
> to check whether a paragraph is part of a text inset is to
> Get TextList TextInsetBegin and skip the paragraphs until
> the text inset ends.
>
> But this leads to a problem: Because a normal loop through
> paragraphs are not necessarily in flow order, the following
> code may NOT work:
>
>   Set vPgf = ActiveDoc.FirstPgfInDoc;
>   Loop While(vPgf)
>     Get TextList InObject(vPgf) TextInsetBegin NewVar(vTlist);
>     If vTlist.Count > 0
>       Get Member Number(1) From(vTlist) NewVar(vTItem);
>       Set vTi = vTItem.TextData;
>       Set vPgf = vTi.TextRange.End.Object;
>     Else
>       Run ProcessPgf;
>       Set vPgf = vPgf.NextPgfInDoc;
>     EndIf
>   EndLoop
>
> Instead, you need to loop through all pgfs in all flows,
> check table and footnote anchors and loop also through the
> table and footnote pgfs:
>
>   Loop ForEach(Flow) In(ActiveDoc) LoopVar(vFlow)
>     If vFlow.FirstTextFrameInFlow.Page.ObjectName = 'BodyPage'
>     Set vPgfFlow = vFlow.FirstTextFrameInFlow.FirstPgf;
>     Loop While(vPgfFlow)
>       Get TextList InObject(vPgfFlow) TextInsetBegin NewVar(vTlist);
>       If vTlist.Count > 0
>         Get Member Number(1) From(vTlist) NewVar(vTItem);
>         Set vTi = vTItem.TextData;
>         Set vPgfFlow = vTi.TextRange.End.Object;
>       Else
>         Set vPgf = vPgfFlow;
>         Run ProcessPgf;
>         Get TextList InObject(vPgf) NewVar(vTlistA) TblAnchor
FnAnchor;
>         Loop While (i <= vTlistA.Count) LoopVar(i) Init(1) Incr(1)
>           Get Member Number(i) From(vTlistA) NewVar(vAnchor);
>           If vAnchor.TextType = 'TblAnchor';
>             Set vTbl = vAnchor.TextData;
>             Set vCell = vTbl.FirstRowInTbl.FirstCellInRow;
>             Loop While(vCell)
>               Set vPgfCell = vCell.FirstPgf;
>                 Loop While(vPgfCell)
>                   Set vPgf = vPgfCell;
>                   Run ProcessPgf;
>                   Set vPgfCell = vPgfCell.NextPgfInFlow;
>                 EndLoop
>               Set vCell = vCell.NextCellInTbl;
>             EndLoop
>           Else
>             Set vFn = vAnchor.TextData;
>             Set vPgfFn = vFn.FirstPgf;
>             Loop While(vPgfFn)
>               Set vPgf = vPgfFn;
>               Run ProcessPgf;
>               Set vPgfFn = vPgfFn.NextPgfInFlow;
>             EndLoop
>           EndIf
>         EndLoop
>         Set vPgfFlow = vPgfFlow.NextPgfInFlow;
>       EndIf
>     EndLoop
>     EndIf
>   EndLoop
>
> Well, this seems to be a little bit complicated.
> And we are still missing table title and footnotes ...
>
> So, here's another way.
> If you're TIs do not contain tables, it's easy:
>
>   //-- Get Pgfs in TIs:
>   New IntList NewVar(vTiPgfLst);
>   Set vTi = ActiveDoc.FirstTiInDoc;
>   Loop While(vTi)
>     Set vPgf = vTi.TextRange.Begin.Object;
>     Loop Until(vPgf = vTi.TextRange.End.Object)
>       Add Member(vPgf.Unique) To(vTiPgfLst);
>       Set vPgf = vPgf.NextPgfInFlow;
>     EndLoop
>     Set vTi = vTi.NextTiInDoc;
>   EndLoop
>   //-- Loop through Pgfs:
>   Loop ForEach(Pgf) In(ActiveDoc) LoopVar(vPgf)
>     If (vPgf.Page.ObjectName = 'BodyPage')
>       Find Member(vPgf.Unique) InList(vTiPgfLst) ReturnStatus
(vFound);
>       If (not vFound)
>         Run ProcessPgf;
>       EndIf
>     EndIf
>   EndLoop
>
> If your TIs do contain tables, you need to check them, too
> (see code above).
>
> Kind regards,
> Klaus Mueller

Getting the table title is described in Rick Quatro's _indispensable_
tutorial about navigating paragraphs:

English: http://www.frameexpert.com/tutorials/paragraphnavigation.htm

German: http://elmscript.de/more/navigierend.html

It is: vTbl.FirstPgf

- Michael

PS: Did I say that IMHO all of Rick Quatro's tutorials are indispensable?

English: http://www.frameexpert.com/tutorials/index.htm

German: http://elmscript.de/lernen.html

On 21.08.2003 (14:07 Uhr +0000), livelinxbenb wrote:

>Hello there,
>
>This works great!
>Lets say, however, taht before I am vist the cells of a table, i.e.
>after ( Set vTbl = vAnchor.TextData; ), I want to also visit each
>PgfFmt of the table Title (tblTitle). I have tried treating it like a
>flow, cell, or row but I cannot seem to access it:
>set vTblTitle = vTbl.TblTitleElement
>???
>
>Thank you very much!
>Ben


--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Der effizienteste Weg zur FrameMaker-Automation?
FrameScript Training on-the-job!
http://elmscript.de/more/training.html

Thanks Michael, it works great!

Ben


--- In framescript-users@yahoogroups.com, Michael Müller-Hillebrand
<info@c...> wrote:
> Getting the table title is described in Rick Quatro's
_indispensable_
> tutorial about navigating paragraphs:
>
> English:
http://www.frameexpert.com/tutorials/paragraphnavigation.htm
>
> German: http://elmscript.de/more/navigierend.html
>
> It is: vTbl.FirstPgf
>
> - Michael
>
> PS: Did I say that IMHO all of Rick Quatro's tutorials are
indispensable?
>
> English: http://www.frameexpert.com/tutorials/index.htm
>
> German: http://elmscript.de/lernen.html
>
> On 21.08.2003 (14:07 Uhr +0000), livelinxbenb wrote:
>
> >Hello there,
> >
> >This works great!
> >Lets say, however, taht before I am vist the cells of a table, i.e.
> >after ( Set vTbl = vAnchor.TextData; ), I want to also visit each
> >PgfFmt of the table Title (tblTitle). I have tried treating it
like a
> >flow, cell, or row but I cannot seem to access it:
> >set vTblTitle = vTbl.TblTitleElement
> >???
> >
> >Thank you very much!
> >Ben
>
>
> --
> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
> Der effizienteste Weg zur FrameMaker-Automation?
> FrameScript Training on-the-job!
> http://elmscript.de/more/training.html

Hello,
I am trying to resize a table with 3 columns. I have seen the
tutorial on the website, but am still having a problem.
I wrote the script below and this is what I have found out:
The width size of the columns are indeed changed (i see the new
measurments in the message box), however, i do not see any change in
the table in the file i.e. it looks exactly the same. Am I missing
something here?

Thank you very much for any assistance,
Ben

Set vTbl = ActiveDoc.FirstTblInDoc;
Set vWidths = vTbl.TblColWidths;
Loop While(vCounter <= vWidths.Count) LoopVar(vCounter)
	 Init(1) Incr(1)
	 Get Member Number(vCounter) From(vWidths) NewVar(vWidth);
	 MsgBox 'old - vWidth = '+vWidth;
EndLoop

New MetricList NewVar(x);
Add Member(3.75cm) To(x);
Add Member(4.75cm) To(x);
Add Member(5.75cm) To(x);
Loop While(vCounter <= x.Count) LoopVar(vCounter)
	 Init(1) Incr(1)
	 Get Member Number(vCounter) From(x) NewVar(vWidth);
EndLoop
Set vTbl.TblColWidths = x;

Set vWidths = vTbl.TblColWidths;
Loop While(vCounter <= vWidths.Count) LoopVar(vCounter)
	 Init(1) Incr(1)
	 Get Member Number(vCounter) From(vWidths) NewVar(vWidth);
	 MsgBox 'new - vWidth = '+vWidth;
EndLoop

On 25.08.2003 (9:51 Uhr +0000), livelinxbenb wrote:

>Hello,
>I am trying to resize a table with 3 columns. I have seen the
>tutorial on the website, but am still having a problem.
>I wrote the script below and this is what I have found out:
>The width size of the columns are indeed changed (i see the new
>measurments in the message box), however, i do not see any change in
>the table in the file i.e. it looks exactly the same. Am I missing
>something here?

You may have to force FrameMaker to redraw the screen.

Execute FC KbdRefreshWin;

Especially with table formatting (straddling cells and stuff like
that) I have seen that one needs an even stronger update to see all
changes:

Execute FC KbdReformatDoc;

- Michael


>Set vTbl = ActiveDoc.FirstTblInDoc;
>Set vWidths = vTbl.TblColWidths;
>Loop While(vCounter <= vWidths.Count) LoopVar(vCounter)
> Init(1) Incr(1)
> Get Member Number(vCounter) From(vWidths) NewVar(vWidth);
> MsgBox 'old - vWidth = '+vWidth;
>EndLoop
>
>New MetricList NewVar(x);
>Add Member(3.75cm) To(x);
>Add Member(4.75cm) To(x);
>Add Member(5.75cm) To(x);
>Loop While(vCounter <= x.Count) LoopVar(vCounter)
> Init(1) Incr(1)
> Get Member Number(vCounter) From(x) NewVar(vWidth);
>EndLoop
>Set vTbl.TblColWidths = x;
>
>Set vWidths = vTbl.TblColWidths;
>Loop While(vCounter <= vWidths.Count) LoopVar(vCounter)
> Init(1) Incr(1)
> Get Member Number(vCounter) From(vWidths) NewVar(vWidth);
> MsgBox 'new - vWidth = '+vWidth;
>EndLoop

--
_____________________________________________________________
Dipl.-Ing. Michael Müller-Hillebrand

"Mehr Effizienz für Wissensarbeiter" --> http://cap-studio.de

Ben,

Michael did already give the answer.

   Execute FC KbdRefreshWin;
   //Execute FC KbdReformatDoc;

Just for completeness:
The regular FrameScript commands for that FCs are:

   Update Redisplay;
or
   Update Hyphenating;

Kind regards,
Klaus Mueller

I have created a script that runs through the main flow of a document
collecting conditional text formats and removing those that don't
exist.  However, I now have a requirement now to search in the
MasterPage header/footer for the InCond property.  How do I do this?
All my other scripts have dealt with the main flow, so this is new to
me.  If I can get some help getting to the text frames, then I think
I can locate the flow and paragraph properties.

thanks,
Rick D.