大写字母变小写的Word宏

最新推荐文章于 2023-01-19 20:17:11 发布
最新推荐文章于 2023-01-19 20:17:11 发布
阅读量265 收藏
点赞数
分类专栏： 在网上收集的常用资料 文章标签： F# J#
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/iteye_15823/article/details/81649572
版权
Sub Aa()
'
' Aa Macro
' 宏在 2008-3-27 由 ccc 录制
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "A"
.Replacement.Text = "a"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "B"
.Replacement.Text = "b"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "C"
.Replacement.Text = "c"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "D"
.Replacement.Text = "d"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "E"
.Replacement.Text = "e"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "F"
.Replacement.Text = "f"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "G"
.Replacement.Text = "g"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "H"
.Replacement.Text = "h"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "I"
.Replacement.Text = "i"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "J"
.Replacement.Text = "j"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "K"
.Replacement.Text = "k"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "L"
.Replacement.Text = "l"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "M"
.Replacement.Text = "m"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "N"
.Replacement.Text = "n"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "O"
.Replacement.Text = "o"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "P"
.Replacement.Text = "p"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "Q"
.Replacement.Text = "q"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "R"
.Replacement.Text = "r"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "S"
.Replacement.Text = "s"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "T"
.Replacement.Text = "t"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "U"
.Replacement.Text = "u"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "V"
.Replacement.Text = "v"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "W"
.Replacement.Text = "w"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "X"
.Replacement.Text = "x"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "Y"
.Replacement.Text = "y"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "Z"
.Replacement.Text = "z"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "（"
.Replacement.Text = "("
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "）"
.Replacement.Text = ")"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With

Selection.Find.Execute Replace:=wdReplaceAll
End Sub
iteye_15823
关注
专栏目录
c语言多个大写变小写字母,c语言大写字母转换成小写字母
weixin_31199559的博客
05-16 5077
函数C语言函数说明1. 一个C程序的基本结构包括预处理部分和函数部分;2. 函数是C语言的基本单位;3. C语言程序开始于主函数,结束于主函数;4. C语言中没有输入输出语句但有输入输出函数.函数的定义类型标志符函数名 (形式参数表){}函数的调用函数名 (实际参数表);*函数的递归1. 使用条件a) 可以把问题转化为新问题，并且新问题解决方法与原问题的解决方案相同;b) 可以提高转化过程，使问题...
【办公-WORD】修改字母大小写的热键或快捷键
qq_43746676的博客
01-12 2384
【办公-WORD】修改字母大小写的热键或快捷键
小写字母转大写字母宏（Macro）
02-03
因工作中需要大量将小写字母的英文地址转成大写字母，以便制作商业单据。因此制作该宏使该工序更快捷有效。 该宏可以有效将29行小写字母转换为大写字母，并可以通过宏按钮将公式转换为值，以方便修改。 说明文档：https://mp.csdn.net/postedit/86760879
(C)定义一个宏，将大写字母变成小写字母。
qq_53201950的博客
01-19 747
宏定义
利用宏定义三目运算符，编写程序，要求用户输入字符串，将字符串中的大写字母转换成小写字母，小写字母转换为大写字母
0
08-05 3368
C 宏定义实现字符大小写转换
pingD的专栏
10-26 9993
使用两个简单的宏定义可以直接将两个大小写字符进行转换，分别是：
1044: 大写变小写（字符宏）
qq_54241971的博客
01-20 626
这一题是十分简单的，但我还是写到博客上了，原因是我这题主要运用了我博客前面文章所提到的字符宏，也就是头文件cctype，题目简介如下： 题目描述 从键盘上输入一行字符串，对于大写字母将其转化成小写字母，其余不变。 输入 输入若干个大写字母，输入到文件结束。 输出 按顺序输出所有的小写字母即可，其他的一律不用输出。 样例输入 A S D F G H J K L123+@a 样例输出 asdfghjkla #include <iostream> #include <cctype> usi
用Java将字符串的首字母转换大小写
09-01
在Java编程语言中，处理字符串是常见的任务之一，而字符串的首字母转换大小写功能在很多场景下都十分有用，例如格式化标题、创建驼峰命名的变量或方法等。以下我们将详细探讨如何使用Java来实现这个功能。 首先，...
word怎么将选中文本大写字母变小写
最新发布
06-09
在 Microsoft Word 中，可以使用内置的快捷键将选中文本的大写字母变成小写。以下是具体的步骤： 1. 选中需要转换的文本。 2. 按下键盘上的 `Shift` + `F3` 快捷键。每按一次，选中文本的大小写会切换一次，即全...
java 按 大写字母_用大写字母拆分字符串
weixin_39970823的博客
02-24 1564
回答(12)2 years ago这是另一种正则表达式解决方案 . 该问题可以被称为“如何在执行拆分之前在每个大写字母之前插入空格”：>>> s = "TheLongAndWindingRoad ABC A123B45">>> re.sub( r"([A-Z])", r" \1", s).split()['The', 'Long', 'And', 'Windin...
C语言 编程题
weixin_44099012的博客
05-13 497
编程题 1.定义一个宏，将大写字母转换成相应的小写字母 代码： #include <stdio.h> #define Z(a) a=a+32 void main() { char a; printf(“输人一个大写字母：\n”); scanf("%c",&a); printf("%c\n",Z(a)); } 运行结果： 2.定义一个宏，交换两个参数的值。 代码： #inclu...
Word 中几个较有用的宏
jhycjhyc的专栏
10-22 8251
Sub 文本粘贴1() 'ctrl+1 '用于粘贴纯文本 Selection.PasteAndFormat (wdFormatPlainText) End Sub Sub 文本粘贴2() 'ctrl+2 '用于粘贴从一般新闻网页中复制下来的文本，会自动去除多余的制表符和双行符。 Selection.PasteAndFormat (wdFormatPlainText) With Selection.Find ...
用Java实现定义一个大写字母，把它转换为小写字母后显示出来
翰林学士
08-07 1万+
/** *项目:Java实现定义一个大写字母，把它转换为小写字母后显示出来 * 时间:2019.8.7 * 作者:郑翰林 */ //方法一 import java.util.Scanner; public class Exercies3 { public static void main(String[] args) { Scanner scan = new Sc...
练习7-1 编写一个程序 实现大写字母转换成小写字母，小写字母转换成大写字母
热门推荐
d1306937299的博客
07-30 1万+
#include&lt;stdlib.h&gt; #include&lt;ctype.h&gt; #include&lt;stdio.h&gt; char to_lower(char c); int main() { int c; while((c = getchar()) != EOF) putchar(to_lower(c)); return 0; } ...
使用宏改变word中所有英文的字体
iamyina的专栏
05-29 5802
写实验报告通常有这样的情况：模板里中文用宋体,常规, 英文用Times New Roman。但是我觉得英文用Times New Roman不好看，自己比较喜欢Dotum，可是文章里中英文混排,很多文字,一个一个设置太麻烦，所以我用宏来实现。通过使用 Visual Basic for Applications创建宏1.在“工具”菜单中，指向“宏”，然后单击“宏”。2.在“宏的位置”列
C语言大小写转换宏
Qt君
12-31 2316
#define _toupper(c) ((c)+'A'-'a') #define _tolower(c) ((c)+'a'-'A')
Word一键排版
毛兴宇
01-06 5875
Word一键排版宏 Sub 自动排版() ' ' 自动排版 宏 ' ' Application.ScreenUpdating = False '更改所有硬回车为软回车 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find...
c语言宏定义大写小写变量,C语言常用宏定义技巧
weixin_33043471的博客
05-18 847
1、防止一个头文件被重复包含#ifndef COMDEF_H#define COMDEF_H//头文件内容#endif2、重新定义一些类型，防止由于各种平台和编译器的不同，而产生的类型字节数差异，方便移植。typedefunsigned charboolean; /* Boolean value type. */typedefunsigned long intuin...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值