杜兄, Excel 有 繁简转换功能的吗? 请指教啊!
身为香港人, 怎可能不预我来解答呢!
以上导出 Word 是很快速的批量处理方法来的!
不过平常我们会用自定义函数 TCSCConvert 调用Word的功能来实现(从Office97用到现在的了!):
0. 规定转为 繁体
1. 规定转为 简体
2. 自动识别 繁转简 或 简转繁
Public Function TCSCConvert(str As String, Optional direction As Byte = 2)
Static app As Word.Application
Static doc As Word.Document
Dim sel As Word.Selection
If app Is Nothing Then
Set app = New Word.Application
End If
If doc Is Nothing Then
Set doc = app.Documents.Add
Else
On Error Resume Next
Set app = doc.Application
If Err > 0 Then
Set doc = app.Documents.Add
End If
On Error GoTo 0
End If
Set sel = app.Selection
sel.TypeText str
sel.MoveLeft Unit:=wdCharacter, Count:=Len(str), Extend:=wdExtend
sel.Range.TCSCConverter WdTCSCConverterDirection:= _
direction, CommonTerms:=True, UseVariants:=False
TCSCConvert = sel.Text
doc.Undo
doc.Undo
End Function
