vbscript 替换泰字符

Posted 2021-05-21

' 在option里的advance里把默认语言改成thai,再在word里用正常的查找替换，选上language为thai，然后关闭，运行如下宏,然后再检测Angsana New这个字体，再运行
With Selection.Find
    .Text = ""
    .Replacement.Text = ""
    .Forward = True
    .MatchWildcards = False
    Do
        .Execute
        If Not .Found Then
            Exit Do
        Else
            
            Dim aimT As String
            
            
            aimT = Selection.Text
            Selection.Range.Delete
            Selection.Range.Font.name = "Palatino Linotype"
            Selection.TypeText aimT
        End If
    Loop
End With