tell document 1 of application "QuarkXPress 5.01" 
  activate 
  tell current box 
    tell story 1 
      repeat with i from 1 to count of paragraphs 
        set tmpList to {} 
        set curPara to contents of paragraph i 
        if curPara contains "[mm]" then 
          set AppleScript's text item delimiters to tab 
          set curList to every text item of curPara 
          set AppleScript's text item delimiters to {""} 
          repeat with j from 1 to count of curList 
            set curItem to item j of curList 
            if curItem contains "[mm]" then 
              set curItem to change "[mm]" into "[mm/inch]" in curItem 
              set end of tmpList to curItem 
            else 
              try 
                curItem / 2 
                set inVal to my convMM(curItem) 
                set end of tmpList to curItem & " / " & inVal 
              on error 
                set end of tmpList to curItem 
              end try 
            end if 
          end repeat 
          set AppleScript's text item delimiters to tab 
          set curString to every item of tmpList as string 
          set AppleScript's text item delimiters to {""} 
          set contents of paragraph i to curString 
        end if 
      end repeat 
    end tell 
  end tell 
end tell 
 
on convMM(curNum) 
  set curNum to ((((curNum * 0.03937) * 10000) + 0.5) div 1) / 10000 
  set curNum to curNum as string 
  if curNum contains "E-" then 
    set x to offset of "." in curNum 
    set y to offset of "-" in curNum 
    set z to offset of "E" in curNum 
    set decAdjust to text (y - (count of curNum)) thru -1 of curNum as number 
    if x is not 0 then 
      set firstPart to text 1 thru (x - 1) of curNum 
    else 
      set firstPart to "" 
    end if 
    set secondPart to characters (x + 1) thru (z - 1) of curNum as string 
    set convNum to firstPart & secondPart 
    set defNum to "0." 
    repeat with i from 1 to decAdjust - (count of firstPart) 
      set defNum to defNum & "0" 
    end repeat 
    set defNum to text 1 thru 6 of (defNum & convNum & "000") 
  else 
    set defNum to text 1 thru 6 of (curNum & "000") 
  end if 
  return defNum 
end convMM 

set retChar to "" 
set tmpStr to "" 
repeat with i from 1 to count of curNum 
 set curChar to character i of curNum 
 if curChar is in "0123456789" then 
  set tmpStr to tmpStr & curChar 
 else if curChar is " " then 
 else if curChar is in ",." then 
  set tmpStr to tmpStr & decSep 
 else if curChar is return then 
  set retChar to return 
 else 
  return 
 end if 
end repeat 
set curNum to tmpStr 

try 
 "1.5" as real 
 set decSep to "." 
on error 
 set decSep to "," 
end try 
 
global decSep 
 
tell document 1 of application "QuarkXPress 5.01" 
 activate 
 tell current box 
  tell story 1 
   repeat with i from 1 to count of paragraphs 
    set tmpList to {} 
    set curPara to contents of paragraph i 
    if curPara contains "[mm]" then 
     set AppleScript's text item delimiters to tab 
     set curList to every text item of curPara 
     set AppleScript's text item delimiters to {""} 
     repeat with j from 1 to count of curList 
      set curItem to item j of curList 
      if curItem contains "[mm]" then 
       set curItem to change "[mm]" into "[mm/inch]" in curItem 
       set end of tmpList to curItem 
      else 
       try 
        set {curNum, convNum, retChar} to my convMM(curItem) 
        set end of tmpList to curNum & " / " & convNum & retChar 
       on error 
        set end of tmpList to curItem 
       end try 
      end if 
     end repeat 
     set AppleScript's text item delimiters to tab 
     set curString to every text item of tmpList as string 
     set AppleScript's text item delimiters to {""} 
     set contents of paragraph i to curString 
    end if 
   end repeat 
  end tell 
 end tell 
end tell 
 
on convMM(curNum) 
 set retChar to "" 
 set tmpStr to "" 
 repeat with i from 1 to count of curNum 
  set curChar to character i of curNum 
  if curChar is in "0123456789" then 
   set tmpStr to tmpStr & curChar 
  else if curChar is " " then 
  else if curChar is in ",." then 
   set tmpStr to tmpStr & decSep 
  else if curChar is return then 
   set retChar to return 
  else 
   return 
  end if 
 end repeat 
 set curNum to tmpStr 
 set tmpNum to ((((curNum * 0.03937) * 10000) + 0.5) div 1) / 10000 
 set tmpNum to tmpNum as string 
 if tmpNum contains "E-" then 
  set x to offset of decSep in tmpNum 
  set y to offset of "-" in tmpNum 
  set z to offset of "E" in tmpNum 
  set decAdjust to text (y - (count of tmpNum)) thru -1 of tmpNum as number 
  if x is not 0 then 
   set firstPart to text 1 thru (x - 1) of tmpNum 
  else 
   set firstPart to "" 
  end if 
  set secondPart to characters (x + 1) thru (z - 1) of tmpNum as string 
  set convNum to firstPart & secondPart 
  set defNum to "0" & decSep 
  repeat with i from 1 to decAdjust - (count of firstPart) 
   set defNum to defNum & "0" 
  end repeat 
  set convNum to text 1 thru 6 of (defNum & convNum & "000") 
 else 
  set convNum to text 1 thru 6 of (tmpNum & "000") 
 end if 
 return {curNum, convNum, retChar} 
end convMM 

try 
  "1.5" as real 
  set decSep to "." 
on error 
  set decSep to "," 
end try 
 
global decSep 
 
tell document 1 of application "QuarkXPress 5.01" 
  activate 
  tell current box 
    tell story 1 
      repeat with i from 1 to count of paragraphs 
        set tmpList to {} 
        set curPara to contents of paragraph i 
        if curPara contains "[mm]" then 
          set AppleScript's text item delimiters to tab 
          set curList to every text item of curPara 
          set AppleScript's text item delimiters to {""} 
          repeat with j from 1 to count of curList 
            set curItem to item j of curList 
            if curItem is not "" then 
              if curItem contains "[mm]" then 
                set curItem to change "[mm]" into "[mm/inch]" in curItem 
                set end of tmpList to curItem 
              else 
                try 
                  set {curNum, convNum, retChar} to my convMM(curItem) 
                  set end of tmpList to curNum & " / " & convNum & retChar 
                on error 
                  set end of tmpList to curItem 
                end try 
              end if 
            end if 
          end repeat 
          set AppleScript's text item delimiters to tab 
          set curString to every text item of tmpList as string 
          set AppleScript's text item delimiters to {""} 
          set contents of paragraph i to curString 
        end if 
      end repeat 
    end tell 
  end tell 
end tell 
 
on convMM(curNum) 
  set retChar to "" 
  set tmpStr to "" 
  repeat with i from 1 to count of curNum 
    set curChar to character i of curNum 
    if curChar is in "0123456789" then 
      set tmpStr to tmpStr & curChar 
    else if curChar is " " then 
    else if curChar is in ",." then 
      set actSep to curChar 
      set tmpStr to tmpStr & decSep 
    else if curChar is return then 
      set retChar to return 
    else 
      return 
    end if 
  end repeat 
  set curNum to tmpStr 
  set tmpNum to ((((curNum * 0.03937) * 10000) + 0.5) div 1) / 10000 
  set tmpNum to tmpNum as string 
  if tmpNum contains "E-" then 
    set x to offset of decSep in tmpNum 
    set y to offset of "-" in tmpNum 
    set z to offset of "E" in tmpNum 
    set decAdjust to text (y - (count of tmpNum)) thru -1 of tmpNum as number 
    if x is not 0 then 
      set firstPart to text 1 thru (x - 1) of tmpNum 
    else 
      set firstPart to "" 
    end if 
    set secondPart to characters (x + 1) thru (z - 1) of tmpNum as string 
    set convNum to firstPart & secondPart 
    set defNum to "0" & decSep 
    repeat with i from 1 to decAdjust - (count of firstPart) 
      set defNum to defNum & "0" 
    end repeat 
    set convNum to text 1 thru 6 of (defNum & convNum & "000") 
  else 
    set convNum to text 1 thru 6 of (tmpNum & "000") 
  end if 
  set curNum to change decSep into actSep in curNum 
  set convNum to change decSep into actSep in convNum 
  return {curNum, convNum, retChar} 
end convMM