Macro สำหรับการเปลี่ยนตัวเลขจาก เลขอารบิค เป็น เลขไทย และ เลขไทย เป็น เลขอารบิค

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

Sub thaitoarabic()

For i = 0 To 9

With Selection.Find

.Text = Chr(240 + i)

.Replacement.Text = Chr(48 + i)

.Wrap = wdFindContinue

End With

Selection.Find.Execute Replace:=wdReplaceAll

Next

End Sub

บันทึกนี้เขียนที่ GotoKnow โดย  ใน ความรู้



ความเห็น (0)