Option Explicit

Sub KhmerTextCorel()
'    Dim doc As Document
    Dim s As Shape
    Dim myStr As String
    
'    Set doc = Application.CreateDocument
    
    ' ??????????? "??????"
    myStr = ChrW(&H179F) & ChrW(&H17BD) & ChrW(&H179F) & ChrW(&H17D2) & ChrW(&H178A) & ChrW(&H17B8)
    
    ' ?????? Text Shape
    Set s = ActiveLayer.CreateArtisticText(ActivePage.CenterX, ActivePage.CenterY, myStr) '(doc.ActivePage.CenterX, doc.ActivePage.CenterY, myStr)
    
    ' ????? Font ??? Size
    's.Text.Font = "U4 Svayton New"
    's.Text.Size = 24
End Sub