版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领
文档简介
1、本宏制作者姚登波，qq制作目的：将文档格式转换为出版格式使用方法：打开officeword，选择开发工具，选择按钮，录制宏，宏名字和黄色标注一致，停止后，直接粘贴下面代码。Sub 整理资料() 格式设置 宏 Selection.Find.ClearFormatting Selection.Find.Font.Underline = wdUnderlineSingle Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = .Replacement.Text = _ .Forward = True .Wrap
2、= wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Selection.WholeStory Selection.ClearFormatting Selection.Font.Name = 宋体 Sele
3、ction.Font.Size = 12 Selection.Font.Name = Times New Roman Selection.Range.CharacterWidth = wdWidthFullWidth Selection.HomeKey Unit:=wdLine Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = l .Replacement.Text = p .Forward = True .Wrap = wdFindCont
4、inue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = .Replacement.Text = 1 .Forward = True .Wrap = wdFindContinu
5、e .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = .Replacement.Text = 2 .Forward = True .Wrap = wdFindContinue .
6、Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = .Replacement.Text = 3 .Forward = True .Wrap = wdFindContinue .For
7、mat = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = .Replacement.Text = 4 .Forward = True .Wrap = wdFindContinue .Format
8、 = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = .Replacement.Text = 5 .Forward = True .Wrap = wdFindContinue .Format =
9、False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = .Replacement.Text = 6 .Forward = True .Wrap = wdFindContinue .Format = Fal
10、se .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = .Replacement.Text = 7 .Forward = True .Wrap = wdFindContinue .Format = False
11、.MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = .Replacement.Text = 8 .Forward = True .Wrap = wdFindContinue .Format = False .Ma
12、tchCase = False .MatchWholeWord = False .MatchByte = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = .Replacement.Text = 9 .Forward = True .Wrap = wdFindContinue .Format = False .Match
13、Case = False .MatchWholeWord = False .MatchByte = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = .Replacement.Text = 0 .Forward = True .Wrap = wdFindContinue .Format = False .MatchCas
14、e = False .MatchWholeWord = False .MatchByte = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = .Replacement.Text = A .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase =
15、 False .MatchWholeWord = False .MatchByte = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = .Replacement.Text = B .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = Fa
16、lse .MatchWholeWord = False .MatchByte = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = .Replacement.Text = C .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False
17、 .MatchWholeWord = False .MatchByte = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = .Replacement.Text = D .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .M
18、atchWholeWord = False .MatchByte = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Selection.WholeStory With Selection.ParagraphFormat .LeftIndent = CentimetersToPoints(0) .RightIndent = CentimetersToPoints(0) .S
19、paceBefore = 0 .SpaceBeforeAuto = False .SpaceAfter = 0 .SpaceAfterAuto = False .LineSpacingRule = wdLineSpace1pt5 .Alignment = wdAlignParagraphLeft .FirstLineIndent = CentimetersToPoints(0.35) .CharacterUnitLeftIndent = 0 .CharacterUnitRightIndent = 0 .CharacterUnitFirstLineIndent = 2 .LineUnitBefo
20、re = 0 .LineUnitAfter = 0 .WordWrap = True End With Selection.HomeKey Unit:=wdStory Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = A、 .Replacement.Text = A .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord
21、 = False .MatchByte = False .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 = False .MatchWholeWord
22、 = False .MatchByte = False .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 = False .MatchWholeWord
23、 = False .MatchByte = False .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 = False .MatchWholeWord
24、 = False .MatchByte = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = AtB .Replacement.Text = A、B .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeW
25、ord = False .MatchByte = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = AB .Replacement.Text = A、B .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWhol
26、eWord = False .MatchByte = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = AC .Replacement.Text = A、C .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWh
27、oleWord = False .MatchByte = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = AD .Replacement.Text = A、D .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .Match
28、WholeWord = False .MatchByte = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = BD .Replacement.Text = B、D .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .Mat
29、chWholeWord = False .MatchByte = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = BC .Replacement.Text = B、C .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .M
30、atchWholeWord = False .MatchByte = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = CD .Replacement.Text = C、D .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False
31、.MatchWholeWord = False .MatchByte = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Selection.HomeKey Unit:=wdLine Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .T
32、ext = 一 .Replacement.Text = 一、 .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .T
33、ext = 二 .Replacement.Text = 二、 .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .T
34、ext = 三 .Replacement.Text = 三、 .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .T
35、ext = 四 .Replacement.Text = 四、 .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .T
36、ext = 五 .Replacement.Text = 五、 .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .T
37、ext = 六 .Replacement.Text = 六、 .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .T
38、ext = 七 .Replacement.Text = 七、 .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .T
39、ext = 八 .Replacement.Text = 八、 .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .T
40、ext = 九 .Replacement.Text = 九、 .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .T
41、ext = 十 .Replacement.Text = 十、 .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .T
42、ext = 一 .Replacement.Text = 一、 .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Selection.Find.ClearFormatting Selection.Fin
43、d.Replacement.ClearFormatting Selection.Find.Replacement.Font.Bold = True With Selection.Find .Text = 一、*13 .Replacement.Text = .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll With Se
温馨提示
- 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 三、重力教学设计初中物理八年级下册北师大版（闫金铎）
- 弘扬雷锋（教学设计）初三下学期教育主题班会
- 浙教版高中信息技术选2《多媒体技术应用》3.5《用Flash制作“今日辽宁”文字动画》教学设计
- 关于肾上腺的试题及精准答案
- 2026年远程医疗高级技术师招聘笔试试卷 招录14人完整版
- 综合复习与测试教学设计高中英语重庆大学版必修二-重大版2004
- 桂美版二年级美术下册《10 夜空》教学设计
- 2026年虚拟电厂高级研发专家招聘笔试试卷 招录14人真题题库
- 英语Unit8Time教案设计
- 2026年先进封装高级工程师招聘笔试试卷 招录13人大全
- 期末模拟测试卷（试卷）2025-2026学年五年级数学下册人教版（含答案）
- 华理工质量管理与可靠性课件第8章 可靠性工程基础
- 柴油叉车安全操作规程
- 2026秋人教版九年级英语上册单词默写
- 食品保质期试验制度规范
- 天宏公司的绩效管理体系案例
- GB 14544-2025乙炔法生产氯乙烯安全技术规范
- 智能制造工程管理 课件全套 第1-7章 绪论、智能制造的全生命周期管理 - 制造工程管理中的服务化技术
- 服务业手语培训课件
- 2025年秋教科版（2024）小学科学二年级上册教学计划及教学进度表（第一学期）
- 2025-2026北师大版二年级数学上册（全册）教案设计
评论
0/150
提交评论