I corrected a mistake in the code comments.
; Adds a column to the right of each table
; Find "Any Table" and copy a "table column width" before running
Dim $max
Dim $x = 1
$max = InputBox("","How many iterations?","5")
WinActivate("Adobe FrameMaker")
WinWaitActive("Adobe FrameMaker")
While $x <= $max
Sleep(200) ; pause 200 milliseconds
Send("^+f") ; find next (CTRL+SHIFT+f)
Sleep(200) ; pause 200 milliseconds
Send("{ESC}tme") ; move insertion point to rightmost cell
Sleep(200) ; pause 200 milliseconds
Send("{ESC}tcr") ; add column to the right
Sleep(200) ; pause 200 milliseconds
Send("^v") ; paste (CTRL+v)
$x = $x + 1
WEnd
Regards,
Shmuel Wolfson
052-763-7133
On 20-Jul-12 9:21 PM, Tammy Van Boening wrote:
Adding a column to multiple tables
All,
I havea twochapters in a guide that I am currently working on that
have over 100 tables each. The format for the tables was supposedly
locked down, but now, I have been asked to add an additional column to
every table. It would be the last(right-most column) in the table and
it must have width of 1.25". Is there a way to semi-automate this
process as at all in Framemaker? If I were copying rows that would be
one thing as Framemaker gives you the optionabout the location topaste
copied table rowsbut not w/ columns. Right now, I am just pointing and
clicking and using the Insert column and Resize column options and at
this rate, I will burn half a day!
Thanks,
TVB
_______________________________________________
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/shmuelw1%40gmail.com
Send administrative questions to [email protected]. Visit
http://www.frameusers.com/ for more resources and info.
; Adds a column to the right of each table
; Find "Any Table" and copy a "table column width" before running the macro
Dim $max
Dim $x = 1
$max = InputBox("","How many iterations?","5")
WinActivate("Adobe FrameMaker")
WinWaitActive("Adobe FrameMaker")
While $x <= $max
Sleep(200) ; pause 200 milliseconds
Send("^+f") ; find next (CTRL+SHIFT+f)
Sleep(200) ; pause 200 milliseconds
Send("{ESC}tme") ; move insertion point to rightmost cell
Sleep(200) ; pause 200 milliseconds
Send("{ESC}tcr") ; add column to the right
Sleep(200) ; pause 200 milliseconds
Send("^v") ; paste (CTRL+v)
$x = $x + 1
WEnd
_______________________________________________
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.
