Microsoft Office Forums - View Single Post

jhansrod · 06-15-2019, 12:58 AM

Hi all

I am trying to assign arabic text as per the code below,

Code:

With ActiveDocument.SelectContentControlsByTitle("OFFICEHEAD")(1)
  .LockContents = False
   Select Case Split(StrDetails, "|")(0)
     Case "KSA": .Range.Text = "شركة"
   End Select
  .LockContents = True
End With

However, in the VBA editor the arabic text shows up as

Code:

     With ActiveDocument.SelectContentControlsByTitle("OFFICEHEAD")(1)
      .LockContents = False
      Select Case Split(StrDetails, "|")(0)
       Case "KSA": .Range.Text = "????"
       Case "OFFICE02": .Range.Text = "OFFICE02 HEADER"
       Case Else: .Range.Text = "JUST HEADER"
      End Select
      .LockContents = True
     End With

Any suggestions on how I can get the editor to use Arabic text ?

Thank you
J