Cara Mengubah Tulisan Arab Menjadi Latin di Corel Draw

Описание: Beritku adalah cara mengubah tulisan arab menjadi latin di coreldraw.

Teman-teman bisa menggunakan perintah berikut di corelnya. cukup copy paste saja di editornya.

Sub GantiAngkaArabVersiKuat()
Dim s As Shape
Dim t As TextRange
Dim teksAwal As String
Dim teksBaru As String
Dim i As Integer
Dim angkaArab(0 To 9) As String
Dim angkaLatin(0 To 9) As String

' Persiapkan tabel konversi angka
For i = 0 To 9
angkaArab(i) = ChrW(1632 + i) ' Unicode ? hingga ?
angkaLatin(i) = CStr(i)
Next i

For Each s In ActivePage.Shapes
If s.Type = cdrTextShape Then
Set t = s.Text.Story
teksAwal = t.Text
teksBaru = teksAwal

' Ganti semua angka Arab dengan Latin
For i = 0 To 9
teksBaru = Replace(teksBaru, angkaArab(i), angkaLatin(i))
Next i

' Terapkan hasil penggantian ke text range
t.Text = teksBaru
t.Font = "Arial" ' Pastikan font Latin
End If
Next s

MsgBox "Angka Arab sudah diganti ke angka Latin dengan sukses!", vbInformation
End Sub

Dukung channel ini untuk terus tumbuh dengan like, share video ini dan subscribe channel Guru Jagoan. Kebaikan buat teman-teman, semangat bagi kami. 🥰