using Arabic in VBA

jhansrod · #1 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

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
I need Proofing Tool for Arabic	sami1900	Word	0	11-07-2012 12:56 PM
Arabic word order	SimonCramer	Word	0	02-23-2012 03:02 PM
Arabic typing problem	mfarhan_ahmed	Word	2	01-01-2012 06:42 AM
Please help!!! Arabic encoding	justry	Word	1	04-30-2010 08:15 AM
arabic language typing	shariefbe	Word	1	08-09-2009 12:19 PM