🚀 go-pugleaf

Jay, Kari,

The method is faster, not really the handler.
In my method, I take the index of the first "tab" of the paragraph directly in the InDesign application:



 
set properties of text from character 1 to � 
  (character 1 whose contents = "	") of paragraph i to � 
  {applied font:"Times", font style:"Bold"} 



In the script of Kari, it copy the content of the paragraph
in a variable (theText), and make the comparison from this variable.
This script also works with the styles: character style and paragraph style.
I (re)wrote this script without handler. For 1400 paragraphs, it takes 60 sec.
The version with handler takes 54 sec.




 
set myStart to time of (current date)

set paraStyle to "BodyText" -- name of paragraph style to have run-in head   
set runinStyle to "TimesStyle" -- name of character style to be applied   
set sepChar to "	" as text -- separator character : a tabulation in this case

tell application "InDesign 2.0.2" 
 set theStories to object reference of stories of document 1 
 repeat with theStory in theStories 
  try 
   set theParaStyles to name of applied paragraph style of object reference of paragraphs of theStory 
   repeat with x from 1 to count of theParaStyles 
    if paraStyle = contents of item x of theParaStyles then 
     set theText to paragraph x of theStory 
     set theEnd to (offset of sepChar in theText) - 1 
     if theEnd > 0 then 
      set the applied character style of �  
       characters 1 through theEnd of paragraph x of theStory � 
       to character style runinStyle of document 1 
     end if 
    end if 
   end repeat 
  end try 
 end repeat 
end tell

set myEnd to time of (current date) 
set myDifference to myEnd - myStart 
display dialog "Time: " & myDifference





HTH

Olivier.