Word宏代码集锦文档.pdfVIP

Word 宏代码集锦 Word 宏代码集锦 一、 修改 word 格式： 1、 智能清除选区软回车（换行符） 2 、 清除选区多余空段 3 、 合并选区中“，”结束的多余分段 4 、 清除选区单字节空格 5 、 清除选区单字节空格 6 、 清除选区 1 字空格 7 、 清除选区段首 2 字空格 8 、 清除选区 Tab 9 、 增加选区空格 10、 选区段首缩进 0 字 11、 选区段首缩进 :2 字 12、 选区段首缩进转空格—已完美 13、 选区段后间距 1 行 14、 选区段后间距 1 行 15、 选区段后间距 1 行 16、 清除选区图片 17、 选区硬回车转软回车 18、 清除选区软回车 19 合并选区段落 20、 选区空格转硬回车 21、 选区标点半角转全角 22、 选区标点全角转半角 23、 选区中文句号转半角 24、’把文档第一段设置为标题 1 的格式 25 、选中的文本横向居中 26 、缩小字距 27 、增大字距 28 、缩小行距 29 、增大行距 30 、等高变宽 31 、等高变窄 32 、字表间距 33 、纵向 16 开 34 、插入页码 35 、小写金额转大写金额 二、 其它 1. 调整图片大小 2. 转字体 3. 转文件格式 4 、文件加密 5 、字符替换 6 、替换引号 7 、打印为 PDF 格式文件 8 、朗读文本 9. 文献标号上标化 10. 箭头上方加文字 11 添加参考文献格式一，参考文献在文档末尾以 1 ． 2 ． 3 ． 格式排列 12. 添加参考文献格式二，参考文献在文档末尾以 [1] [2] [3] 格式排列，修改自格式一的代码 13. 返回正文 14. 再次引用已有参考文献 15. 查找被删参考文献遗留引用， 16、 统计修订的字数 17、快速提取脚注内容 18、从任意页面编排页码 19、批量实现缩放打印 20、对文档内容进行顺序排列 21、替换 Word 文档插图的超链接 22、为文档的每页添加固定内容 23、批量实现图片的等比例缩 一、 修改 word 格式： 1、 智能清除选区软回车（换行符） Sub 智能清除选区软回车 () With Selection.Find .Text = ?^l .Replacement.Text = ^^p .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = ^1^l .Replacement.Text = ^^p End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = ^l .Replacement.Text = End With Selection.Find.Execute Replace:=wdReplaceAll End Su