How change all languages of a Document to new Language?

Thanks all.

I think , i can change all language of document to new language by:

For i = oDocument.Languages.Count To 1 Step -1

            If oDocument.Languages(i).name <> oIndesign.LanguagesWithVendors(2).name Then

                oIndesign.FindTextPreferences = 1851876449

                oIndesign.ChangeTextPreferences = 1851876449

                oIndesign.FindChangeTextOptions.IncludeMasterPages = True

                oIndesign.FindChangeTextOptions.includeFootnotes = True

                oIndesign.FindTextPreferences.appliedLanguage = oDocument.Languages(i)

                oIndesign.ChangeTextPreferences.appliedLanguage = oIndesign.LanguagesWithVendors(2)

                Dim oaTargetList3 = oDocument.ChangeText

            End If

        Next

app.activeDocument.stories.everyItem().appliedLanguage="English: UK";
app.activeDocument.stories.everyItem().tables.everyItem().cells.everyItem().texts.everyItem().appliedLanguage="English: UK";

just type in your language.

Script applies defined language to all text in document , including groups, tables and overset text.

won't work for footnotes, though.

more details here

hope this link useful for you:

Re: Change Language of Document

Re: script to change language for all style lables in one click

Re: Change language in existing text

Re: Script to Change Language to English: USA