将ASCII字符替换为Unicode

Question

这是我在Word VBA宏中的代码

Public sub as2uni()
    Dim rdcm As Range 
    Set rdcm = ActiveDocument.Range 
    With rdcm.Find    
     .MatchCase = True     
      rdcm.Select     
     .Text = "0079"
     .Replacement.Text = "\U0BB2"
     .Execute , , , , , , , , , , wdRepl
   End with
End sub 

我只想在所有文档中将ASC替换为Unicode ，我该怎么做？

Answer 1

我不确定我是否了解您的宏的用途...我了解您要用Latha脚本格式的字符替换所有大写的“ O”

在这种情况下，您需要更改指定替换项的方式。 Unicode的^ Unnn格式仅对“查找内容”框有效。 为了弄清楚这一点，我将copied复制并粘贴到Word界面的“替换”框中，然后执行“查找/替换”。 查看所显示的代码，您需要使用函数ChrW在宏中指定Unicode表示形式。

另外，您需要更改指定搜索ANSI 79的方式，如下所示。

Public Sub as2uni() 'Latha
    Dim rdcm As Range
    Set rdcm = ActiveDocument.Range
    With rdcm.Find
        .ClearFormatting
     .MatchCase = True
     ' rdcm.Select
     .Text = "^79"
     .Replacement.Text = ChrW(2994)
     .Execute Replace:=wdReplaceAll
   End With
End Sub