Excel简体繁体转换的VBA代码

来源：本站整理作者：梦在深巷时间：2013-05-09 02:56:51

在Excel中，没有简体和繁体文字之间的转换功能。

但是Word却有此功能，因此，我们可以在Excel中通过VBA代码调用Word的繁体和简体功能，实现在Excel中的简体繁体转换的功能。

下面就是与此相关的VBA代码，希望对你有帮助。

Sub JFZH()

Dim wd As Word.Application

Set wd = New Word.Application

With wd.Documents.Add .Sections(1).Range.Text = Sheet1.Cells(1, 1).Text ' .Sections(1).Range.Select 'wd.WordBasic.ToolsSCTCTranslate Direction:=0, Varients:=0, TranslateCommon:=0

wd.WordBasic.ToolsTCSCTranslate Direction:=0, Varients:=0, TranslateCommon:=0 '繁体转简体

Sheet1.Cells(1, 1) = .Sections(1).Range.Text .Close False'简体转繁体

End With wd.Quit

Set wd = Nothing End Sub

本周热门

1

在用EXCEL计算标准偏差的时候该用STDEV STDEVA STDEVP哪一种? 2016/07/22
2

Excel怎么设置英文首字母大写 2020/08/24
3

Excel常用函数公式大全 2013/08/05
4

excel表格的水平(分类)轴标签灰色不可编辑是什么原因? 2016/07/24
5

表格中的斜线怎么弄 2022/03/09
6

EXCEL表中#N/A是什么意思?#N/A是什么? 2015/05/26
7

excel求和出现#value是什么原因? 2016/08/18
8

excel单元格中格式太多该怎么解决? 2016/11/25

本月热门

1

在用EXCEL计算标准偏差的时候该用STDEV STDEVA STDEVP哪一种? 2016/07/22
2

Excel常用函数公式大全 2013/08/05
3

Excel怎么设置英文首字母大写 2020/08/24
4

excel求和出现#value是什么原因? 2016/08/18
5

Excel中怎么在散点图中插入直线 2016/08/08
6

Excel怎么提取时间中的小时 2020/08/27
7

excel表格的水平(分类)轴标签灰色不可编辑是什么原因? 2016/07/24
8

excel表格中隔行选取的三种方法 2016/12/03
9

Excel怎么做表格 2013/03/06
10

Excel中将15位身份证号转换为18位 2014/07/08

Excel简体繁体转换的VBA代码

相关推荐

本周热门

本月热门