Excel简体繁体转换的VBA代码
发布时间：2023-04-20 10:11:50
标签：Excel简体繁体转换的VBA代码
在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
0
投稿猜你喜欢
win10怎么网络诊断？在日常使用win10的过程中，如果遇到了故障，可以使用系统自带的网络诊断功能进行诊断，可以省去不少的排查时间，那么在- Win10 10074预览版怎么开启夜间模式？如果你正运行着Windows 10 Insider Preview的Build 10074版本
- 借助接力（Handoff）功能，可以将 iOS 设备上正在执行的操作切换到附近的另一台 Mac 设备上继续执行，例如正在 iPhone 上使
- 对于大多数用户来说，可能都知道怎样在wps表格中使用求和公式来处理数据，那么，如果我们需要使用条件求和公式，那么，如何使用呢?下面就让小编告
- 如何在excel中快速下拉公式？要在excel中快速下拉公式：打开excel，然后我们直接进入excel的主页输入我们的材料，或在我们的电脑
- 电脑网络连接正常但是不能上网怎么办？最近有用户发现，电脑网络成功连接，但是却不能上网，如何解决呢？请看下文介绍。解决方法：1.点击开始-运行
- 平日忙于工作，不习惯表露感情？一直埋头忙于工作而忽略了需要陪伴的Ta？趁今天给Ta一个惊喜吧！将一起经历的点滴都整理起来，将喜怒哀乐的瞬间都
- 近日，微软正式确定了Windows 10的默认桌面壁纸“Hero”(英雄)。同时，微软还公布了该壁纸的幕后制作花絮，介绍了这一桌面的拍摄由来
- UAC，全名User Account Control，中文名叫做用户帐户控制，Win10为提高系统安全而引入的技术。UAC默认情况下权限还是
- 在 在Excel 2007中，还可以使用鼠标拖动法来移动或复制单元格内容。要移动单元格内容，应首先单击要移动的单元格或选定单元格区域，然后将
- Windows 8正常连接后，如果没有双击打开进行传输文件，会显示脱机状态，这是win8的一个特殊功能类似节电，通过双击打开进行传输后正常W
- 最近有用户跟小编反映自己使用Win11系统打游戏时，出现彩色光斑闪屏，这该怎么办？非常影响游戏体验。下面小编针对这个问题，就大家分享一下详细
- 第一步参考这里第二步如果使用ping命令超时，建议断网，然后把所有防火墙都关闭一般这时候就能ping了第三步按需设置第四步打开我的电脑，网络
- 文泰刻绘显示不了eps文件？很多用户使用中会莫名其妙的多了一些路径，有没有让ai做得文件能100％在文泰雕刻中打开的，文件不会变的，因为后期
- 我们如果电脑遇到严重的问题，我我们需要通过重置系统来解决问题，但是有很多用户为了节省系统空间，会默认将文件重置系统进行删除，那有什么方法可以
- 日常使用电脑的时候碰到无internet访问权限的网络问题，很多小伙伴都会打电话给网络供应商看看是否欠费，在没有欠费的情况下，那就是系统无i
- 当你使用的是Win10系统时，可能会遇到Win10锁屏界面设置不了的情况，这个时候不要慌，解决的办法是很简单的，为了方便用户正常的使用电脑，
- 微软是这个星球上对桌面操作系统最有话语权的公司，它成就了很多企业，但同时，也摧毁着许多企业。近日，微软和卡巴斯基闹僵，前者在俄罗斯提起诉讼后
- Wondershare(万兴科技)是以自主品牌、面向全球消费者提供市场领先的App应用工具的高科技企业，用户遍布全球200多个国家和地区。旗
- excel如何设置图表?1、首先打开表格; 2、选中两组数据，点击插入--图表; &nb
