เปลี่ยนเลขอารบิกเป็นไทย ไทยเป็นอารบิก ในword แบบง่ายๆ

Описание к видео เปลี่ยนเลขอารบิกเป็นไทย ไทยเป็นอารบิก ในword แบบง่ายๆ

เปลี่ยนเลขอารบิกเป็นไทย ไทยเป็นอารบิก แบบง่ายๆ
หลายๆท่านสอบถามเข้ามาเลยจัดทำวีดีโอนี้ขึ้นมา ลองไปดูกันเลย
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

Комментарии

Информация по комментариям в разработке