'នេះជាកូដសម្រាប់ប្រើប្រាស់ក្នុង ខូរេលដ្រ ជ្រើស អក្សរដែលកែបានដើម្បីលុបចេញឬរក្សាវាទុក

Sub SelectText()

    Dim srText As New ShapeRange
    Set srText = ActiveSelection.Shapes.FindShapes(Type:=cdrTextShape)
    Dim s As Shape
    For Each s In srText
    s.Fill.UniformColor.RGBAssign 100, 0, 100
    
    Next s
    
    srText.CreateSelection

End Sub

Sub DeleteText2()

    Dim srText As New ShapeRange
    Set srText = ActiveSelection.Shapes.FindShapes(Type:=cdrTextShape)
    srText.Delete
End Sub

 
'បើសិនជាយើងចង់ចាត់ពុម្ពអក្សរជាក្រុមនោះ ត្រូវថែមកូដបន្ទាប់