ใครมีวิธีทำ เลขอารบิตให้เป็นเลขไทย

[rtumayo]

ใครมีวิธีทำ เลขอารบิตให้เป็นเลขไทย ในการ qry รายงานเช่น เลข13 หลัก 0123456789012 เป็น ๐๑๒๓๔๕๖๗๘๙๐๑๒ บ้างครับ  ตัวอย่างการเขียน scrip pascal ครับ

[udomchok]

เปลี่ยน font เป็นตระกูล IT๙ ครับ
http://itplayroom.blogspot.com/2009/06/font-fontthai-itt-it.html

[muang]

Sub arabictothai()
  For i = 0 To 9
  With Selection.Find
      .Text = Chr(48 + i)
      .Replacement.Text = Chr(240 + i)
      .Wrap = wdFindContinue
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
  Next
End Sub

สร้างเป็น Macro ครับ ใช้งานได้เลย สะดวกมาก

[rtumayo]

ขอบคุณ

[rtumayo]

ขอตัวอย่างการเขียน scrip pascal หน่อยครับ

[chaihosp]

ทำแล้วทุกอย่างอยู่ในนี้

[rtumayo]

ขอบคุณครับ

[rtumayo]

Sub arabictothai()
  For i = 0 To 9
  With Selection.Find
      .Text = Chr(48 + i)
      .Replacement.Text = Chr(240 + i)
      .Wrap = wdFindContinue
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
  Next
End Sub

สร้างเป็น Macro ครับ ใช้งานได้เลย สะดวกมาก

ขอตัวอย่างการเขียน crip pascal ครับ