EXCEL中的“中文简繁转换”按钮不见了!
发布网友
发布时间:2022-05-11 18:03
我来回答
共4个回答
热心网友
时间:2023-10-16 16:58
打开“选项”-“加载项”-在窗口最下方的“管理”下拉菜单,转到“禁用项目”,把Chinese Conversion Addin 加载项重新启用,再重新开启Excel,设置成功后是如下图显示的,我的是Office2010。
请参考~
热心网友
时间:2023-10-16 16:59
直接给你VBA代码得了
'============================================================
Option Explicit
Dim STlen As Long, STf As String, str As String, STj As String
Private Declare Function LCMapString Lib "kernel32" Alias "LCMapStringA" (ByVal Locale As Long, ByVal dwMapFlags As Long, ByVal lpSrcStr As String, ByVal cchSrc As Long, ByVal lpDestStr As String, ByVal cchDest As Long) As Long
Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long
'============================================================
Sub 简体转繁体()
On Error GoTo err
Dim cell As Range
For Each cell In Selection
str = cell
STlen = lstrlen(str)
STf = Space(STlen)
LCMapString &H804, &H4000000, str, STlen, STf, STlen
cell.Value = STf
Next
err:
End Sub
Sub 繁体转简体()
On Error GoTo err
Dim cell As Range
For Each cell In Selection
str = cell
STlen = lstrlen(str)
STj = Space(STlen)
LCMapString &H804, &H2000000, str, STlen, STj, STlen
cell.Value = STj
Next
err:
End Sub
Public Function BIG5(ByVal str As String) As String
Dim STlen As Long, STf As String
STlen = lstrlen(str)
STf = Space(STlen)
LCMapString &H804, &H4000000, str, STlen, STf, STlen
BIG5 = STf
End Function
Public Function GB(ByVal str As String) As String
Dim STlen As Long, STj As String
STlen = lstrlen(str)
STj = Space(STlen)
LCMapString &H804, &H2000000, str, STlen, STj, STlen
GB = STj
End Function
'============================================================
热心网友
时间:2023-10-16 16:59
视图--工具栏--自定义--命令选项---普通工具栏下拉菜单---常用---将右侧的简繁互换按钮拖拽至word上工具栏中 即可!
热心网友
时间:2023-10-16 17:00
你安装的系统的问题!换个“深度”的就有了!还有就是在工具栏后面有一个小三角形的按钮点开有个自定义!里面去试试!还有实在不行的话!你可以安装繁体定呀!