🚀 go-pugleaf

The actual script here does work, but seems a little bit slow...

* ************************

Dim WordsCount, PagesCount, ParagraphsCount, CharactersCounti, j, k, number, letter

Set myindesign = CreateObject("InDesign.Application.2.0")

Set MyPages = myindesign.ActiveDocument.Pages

PagesCount = MyPages.count

Set MyActualTextFrame = MyPages.Item(1).TextFrames.Item(1)

Set MyStory = MyActualTextFrame.ParentStory

Set MyParagraphs = MyStory.Paragraphs

ParagraphsCount = MyParagraphs.Count

'Paragraph Loop

For l=1 to ParagraphsCount

	'Get WordsCount

	Set MyWords = MyParagraphs.Item(l).TextWords

	WordsCount= MyWords.Count

	'Words Loop

	For j = 1 to WordsCount
		'This is the word
		letter = MyWords.item(j).TextContents
		'Get the Word Lenght
		CharactersCount=Len(letter)
		'If word is long enough
		If CharactersCount > 2 Then
		'To avoid testing capitalized letter and apostrophe, begins with the third letter of the world
			number=Asc(Mid(letter,3,1))

			If number > 64 and number <91 or number >191 and number <222 Then
				Set TheWord = MyWords.Item(j).Characters
				For k=2 to CharactersCount
					TheWord.Item(k).CharacterStyle="BiblioCaps"
				Next
			End If

		End If

	Next

Next

MsgBox "Finish"