Font properties

[Fonsi]

Hi All,

I´m looking for a macro to change all content in Latin text to Complex script.


This is very time consuming if we change it from the Font options. So basically, fonts and formats such as bold, italic or font size should remains as is. Just need the whole content is changed to Complex script.


Is this feasible?

Thanks!

[macropod]

Cross-posted at: http://www.msofficeforums.com/word-v...ex-script.html
Please read VBA Express' policy on Cross-Posting in Rule 3: http://www.vbaexpress.com/forum/faq...._new_faq_item3

[Wylsacom]

Have you googled this? There are many free online platforms that do this.

[macropod]

There are many free online platforms that do this.

Be that as it may, the OP clearly said:

I´m looking for a macro to change all content in Latin text to Complex script.

Kindly don't resurrect old threads (this one was last active more than two years ago) just to post advice that doesn't address the OP's needs.

[Aussiebear]

Perhaps try this:

Sub ConvertLatinToComplex()
    Dim rng As Range
    Dim i As Long
    Dim charCode As Integer
    Set rng = ActiveDocument.Content
    ' Loop through each character in the document
    For i = rng.Characters.Count To 1 Step -1 
        ' Loop backwards to avoid index issues after changes
        charCode = AscW(rng.Characters(i).Text)
        ' Check if the character is within the Latin Unicode range (Basic Latin and Latin-1 Supplement)
        If (charCode >= 32 And charCode <= 255) Then 
            ' Basic Latin and Latin-1 Supplement
            ' Check if the character is not a control character.
            If (charCode >= 32) Then
                ' Convert character to complex script. This forces Word to re-evaluate the character
                ' and treat it as complex if applicable.
                rng.Characters(i).Text = ChrW(charCode) & ChrW(8206) 
                ' Add Left-to-Right Mark
                rng.Characters(i).Characters(1).Delete 
                ' Delete the added Left-to-Right Mark
            End If
        End If
    Next i
    Set rng = Nothing
End Sub