🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: adobe.scripting.indesign
Article #1126

[AS CS3] Another MathType Baseline Shift Question

#1126
From: marcusstringer
Date: Tue, 17 Feb 2009 20:44
62 lines
3161 bytes
Hi Guys,
I am using the below script to place MathType Equations into an InDesign File
Basically it searches for tags <<Filename.eps>> and replaces it with a inline graphic.

My question is:
Is there anyway I can get it to read the height of the InLine Graphic Box and then get it to baseline shift so it's centered height wise on the line, instead of the set amount of -10pt that is uses now?

We have to open the MathType Equations in Illustrator to change font and colour to Pantone etc, so they are save back as Illustrator EPS's

Below is the Script:

tell application "Adobe InDesign CS3"
	tell document 1
		set baselineVar to "Yes"
		set countVar to 0
		set imageCount to 0
		set docPath to file path as alias
		tell application "Finder"
			set imageFolder to folder (choose folder with prompt "Please choose the folder containing the appropriate MathType files") --"MathType" of artFolder
		end tell
		activate
		set allStories to stories
		repeat with s from 1 to count of items of allStories
			set theStory to item s of allStories
			if class of theStory is story then
				set theLim to count of words of theStory
				try
					repeat with i from 1 to theLim
						if word i of theStory contains "<<" then 							set theText to contents of word i of theStory as Unicode text 							set theOffset to (offset of "<<" in theText) 							set endOffset to (offset of ">>" in theText)
							set imageName to characters (theOffset + 2) through (endOffset - 1) of theText as string
							set imageFolderPath to ((imageFolder as string) & imageName)
							set wholeTag to characters theOffset through (endOffset + 1) of theText as string
							if baselineVar = "Yes" then
								set baseline shift of characters theOffset through (endOffset + 1) of word i of theStory to -10.2
							end if
							delete characters theOffset through (endOffset) of word i of theStory
							tell theStory
								tell word i
									tell character theOffset
										place imageFolderPath as alias
										set countVar to (countVar + 1)
									end tell
								end tell
							end tell
						end if
					end repeat
				end try
			end if
		end repeat
	end tell
	activate
	if countVar = 0 then
		display dialog "No Images were found" buttons "OK" default button 1 with icon 2
	else if countVar = 1 then
		display dialog "1 lonely Images has been placed." buttons "OK" default button 1
	else
		display dialog (countVar as string) & " Images have been placed." buttons "OK" default button 1
	end if
end tell

Thanks
Marcus
Technical Details
Message-ID: <59b7f769.-1@webcrossing.la2eafNXanI>
Path: arc1-ca.pugleaf.net!g2news2.google.com!news2.google.com!news.glorb.com!news2.glorb.com!newshub.sdsu.edu!webcrossing

Show Full Headers
Complete Article Headers
X-Google-Thread: f939a,8f362174dba44ec7,start
X-Google-Attributes: gidf939a,domainid0,public,usenet
X-Google-Language: ENGLISH,ASCII-7-bit
From: marcusstringer@adobeforums.com
Path: arc1-ca.pugleaf.net!g2news2.google.com!news2.google.com!news.glorb.com!news2.glorb.com!newshub.sdsu.edu!webcrossing
Newsgroups: adobe.scripting.indesign
Subject: [AS CS3] Another MathType Baseline Shift Question
Message-ID: <59b7f769.-1@webcrossing.la2eafNXanI>
Date: Tue, 17 Feb 2009 12:44:00 -0800
Lines: 79
MIME-Version: 1.0
Content-Type: text/plain; charset="ISO-8859-1"
Content-Transfer-Encoding: 8bit