Excel简体繁体转换的VBA代码
时间:2023-04-20 10:11:50
在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
标签:Excel简体繁体转换的VBA代码
0
投稿
猜你喜欢
Win10系统定时关机命令失效怎么办?可能是这个设置未开启
2023-10-12 10:56:17
Windows7不断努力为了用户体验【图】
2023-11-06 04:23:37
Win7怎么禁止更改加载项?Win7禁止用户设置加载项的方法
2022-05-01 14:56:41
谷歌浏览器怎么登录账号?谷歌浏览器登录账号的方法
2023-12-20 01:13:11
Win8系统当中Windows defnedder安全软件应该如何禁用?
2022-11-29 14:00:20
Win10系统Cortana可以卸载吗?如何去掉Cortana?
2022-06-12 07:10:23
小方法教你禁用win7程序兼容性助手
2022-02-10 01:30:11
wps如何生成目录
2022-12-01 06:15:43
如何在excel2019中冻结查看首行
2023-03-20 10:04:32
WPS 2013新品评测 :轻办公功能,独特的边聊边办公的模式
2022-12-19 20:45:54
word文档编辑受限制怎么解除?word文档编辑受限解除教程
2023-11-29 03:58:57
联想win10摄像头打不开怎么办?win10笔记本摄像头打不开解决办法
2023-05-09 18:01:46
win10电脑如何设置禁止系统自动安装应用?
2023-09-02 19:19:43
Excel怎么筛选大于等于90与小于80的数据
2023-08-14 20:57:12
Win10怎么提升NVIDIA显卡打游戏性能
2022-08-10 03:49:22
如何在Mac上的“日历”中设定日程提醒和接收通知呢?
2022-12-11 19:27:55
WPS文件中怎么运行代码?
2023-04-06 09:52:31
win10代理设置地址位置在哪?win10打开计算机的代理设置教程
2022-07-18 10:09:01
SWNETSUP.EXE - SWNETSUP是什么进程 有什么用
2022-03-23 13:21:29
360浏览器怎么缩放页面?360安全浏览器页面缩放教程
2023-05-30 16:35:39