Microsoft office word关闭英文输入首字母大写设置

Microsoft office word关闭英文输入首字母大写设置

1、概述:

在使用office word的时,经常出现输入一段不需首字母大写的英文时,通常敲击完回车时word会自动将首字母大写,需要重新将首字母修改成小写,这样操作很不方便。于是需要对这个功能进行一下设置。以下以Microsoft office 2010为例对设置进行简单说明,很简单。

Microsoft office 2010、Microsoft office 2007、Microsoft office 2003更改设置类似。

2、方法:

找到word选项如下图所示:

进入word选项后,找到“校对”项,点击显示出相关设置界面,如下图:

点选“自动更正选项”选项卡,进入到如下界面:

将上面的“句首字母大写”勾选掉即可,就这么简单。

这其中可以根据需要,进行其它对应设置。

  • 1
    点赞
  • 3
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
### 回答1: 在 Excel 中将中文转换为拼音字母(包括首字母大写)可以使用 VBA 宏编程实现。以下是一个示例代码: ``` Function ChineseToPinyin(ByVal str As String, Optional ByVal IsCapitalize As Boolean = False) As String Dim i As Long Dim Pinyin As String Dim Char As String For i = 1 To Len(str) Char = Mid(str, i, 1) If Asc(Char) < 0 Or Asc(Char) > 255 Then Pinyin = Pinyin & Char Else Pinyin = Pinyin & Application.WorksheetFunction.Proper(Application.WorksheetFunction.Trim(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Trim(Char), " ", ""), "一", "yi"), "二", "er"), "三", "san"), "四", "si"), "五", "wu"), "六", "liu"), "七", "qi"), "八", "ba"), "九", "jiu"), "零", "ling"), "十", "shi"), "百", "bai"), "千", "qian"), "万", "wan"), "亿", "yi")) End If Next i If IsCapitalize = True Then ChineseToPinyin = UCase(Left(Pinyin, 1)) & LCase(Right(Pinyin, Len(Pinyin) - 1)) Else ChineseToPinyin = Pinyin End If End Function ``` 使用方法: 1. 在 Excel 中按 ALT + F11 打开 VBA 编辑器; 2. 右键点击项目名,选择“插入” -> “模块”; 3. 将上述代码复制粘贴到模块中; 4. 在 Excel 表格中输入中文,例如“你好”,然后在另一个单元格中输入以下公式:`=ChineseToPinyin(A1,TRUE)`; 5. 回车即可将中文转换为拼音字母(首字母大写),本例输出结果为“NiHao”。 注意: 1. 本方法只能将中文转换为拼音字母,无法转换为英文字母; 2. 需要将 VBA 宏编程启用才能使用本方法,具体方法可以参考相关教程。 ### 回答2: 在Excel中,将中文转换成拼音字母(包括首字母大写)可以通过使用VBA宏或者使用函数实现。 使用VBA宏的方法如下: 1. 打开Excel文件并按下Alt + F11键,进入VBA编辑器。 2. 在VBA编辑器中,选择插入->模块,打开一个新的模块。 3. 在模块中编写以下VBA代码: ``` Function PY(str As String) As String Dim result As String Dim i As Integer Dim ch As String For i = 1 To Len(str) ch = Mid(str, i, 1) If Asc(ch) < 0 Or Asc(ch) > 255 Then result = result & ch Else Select Case ch Case "阿": result = result & "A" Case "八": result = result & "B" Case "嚓": result = result & "C" '依此类推,根据需要补充其他字母的转换规则 '... Case Else: result = result & UCase(Left(Application.WorksheetFunction.VLookup(ch, Worksheets("PyTable").Range("A1:B50"), 2, False), 1))) End Select End If Next i PY = result End Function ``` 4. 保存并关闭VBA编辑器。 5. 在Excel中的一个单元格中输入`=PY(待转换的中文)`,按下回车键即可得到转换后的拼音字母。 使用函数的方法如下: 1. 打开Excel文件并在一个单元格中输入`=Phonetic(待转换的中文)`,按下回车键。 2. Excel会自动根据你的语言环境和安装的拼音输入法,将中文转换成拼音,并将结果显示在相应的单元格中。 这两种方法都可以将中文转换成拼音字母(包括首字母大写),你可以根据个人需求来选择使用哪种方法。 ### 回答3: 要在Excel中将中文转换为拼音字母(包括首字母大写),可以使用VBA宏编程结合Excel内置函数py将汉字转换为拼音。以下是一种实现方法: 首先,我们需要在Excel中开启VBA编辑器。在Excel中按下Alt+F11键,打开VBA编辑器。 然后,在VBA编辑器中插入一个新的模块。右击项目资源管理器中的ThisWorkbook,选择"插入"->"模块"。 在新模块中编写以下VBA代码: ```VBA Option Explicit Sub ConvertToPinyin() Dim rng As Range Dim cell As Range Set rng = Selection '选择要进行转换的单元格范围 For Each cell In rng cell.Value = Application.WorksheetFunction.Proper(Application.WorksheetFunction.Substitute(Application.Evaluate("=IF(ISERROR(PY_" & cell.Address & ")), """", PY_" & cell.Address & ")"), " ", "")) Next cell End Sub ``` 最后,保存并关闭VBA编辑器。 现在,我们可以在Excel中选择要进行转换的中文文本,并点击开发工具栏中的“宏”按钮,在弹出的对话框中选择"ConvertToPinyin"宏并点击"运行"。选择的中文文本将会被转换为拼音字母(包括首字母大写)。 请注意,在运行此宏之前,确保已安装了拼音输入法,因为该宏使用了内置的py函数来进行中文转拼音的操作。 此方法将帮助您将Excel中的中文文本转换为拼音字母,使得数据更容易被处理和分析。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值