Word宏代码集锦

《Word宏代码集锦》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、Word宏代码集锦Word宏代码集锦1一、修改word格式：11、'智能清除选区软回车（换行符）12、'清除选区多余空段13、'合并选区中“，”结束的多余分段34、'清除选区单字节空格35、'清除选区单字节空格46、'清除选区1字空格47、'清除选区段首2字空格48、'清除选区Tab59、'增加选区空格510、'选区段首缩进0字511、'选区段首缩进:2字612、'选区段首缩进转空格—已完美613、'选区段后间距1行714、'选区段后间距1行715、'选区段后间距1行716、'清除选区图片817、'选

2、区硬回车转软回车818、'清除选区软回车819'合并选区段落920、'选区空格转硬回车921、'选区标点半角转全角1022、'选区标点全角转半角1123、'选区中文句号转半角1224、’把文档第一段设置为标题1的格式1225、选中的文本横向居中1326、缩小字距1327、增大字距1428、缩小行距1429、增大行距1530、等高变宽1531、等高变窄1532、字表间距1633、纵向16开1634、插入页码1735、小写金额转大写金额18二、其它231.调整图片大小232.转字体243.转文件格式254

3、、文件加密2725、字符替换276、替换引号287、打印为PDF格式文件298、朗读文本299.文献标号上标化2910.箭头上方加文字3011添加参考文献格式一，参考文献在文档末尾以1．2．3．格式排列3012.添加参考文献格式二，参考文献在文档末尾以[1][2][3]格式排列，修改自格式一的代码3113.返回正文3214.再次引用已有参考文献3215.查找被删参考文献遗留引用，3216、统计修订的字数3317、快速提取脚注内容3318、从任意页面编排页码3419、批量实现缩放打印3520、对文档内容

4、进行顺序排列3621、替换Word文档插图的超链接3622、为文档的每页添加固定内容3723、批量实现图片的等比例缩372一、修改word格式：1、'智能清除选区软回车（换行符）Sub智能清除选区软回车()WithSelection.Find.Text="?^l".Replacement.Text="^&^p".Forward=True.Wrap=wdFindContinue.Format=False.MatchCase=False.MatchWholeWord=False.MatchByte=Fal

5、se.MatchAllWordForms=False.MatchSoundsLike=False.MatchWildcards=TrueEndWithSelection.Find.ExecuteReplace:=wdReplaceAllWithSelection.Find.Text="^1^l".Replacement.Text="^&^p"EndWithSelection.Find.ExecuteReplace:=wdReplaceAllWithSelection.Find.Text="^l".Re

6、placement.Text=""EndWithSelection.Find.ExecuteReplace:=wdReplaceAllEndSub2、'清除选区多余空段Sub清除选区多余空段()WithSelection.Find.Text="^p^p".Replacement.Text="^p".MatchWildcards=FalseEndWithSelection.Find.ExecuteReplace:=wdReplaceAll39WithSelection.Find.Text="^p^p^p

7、".Replacement.Text="^p".MatchWildcards=FalseEndWithSelection.Find.ExecuteReplace:=wdReplaceAllWithSelection.Find.Text="^p^p^p".Replacement.Text="^p".MatchWildcards=FalseEndWithSelection.Find.ExecuteReplace:=wdReplaceAllWithSelection.Find.Text="^p^p".Rep

8、lacement.Text="^p".MatchWildcards=FalseEndWithSelection.Find.ExecuteReplace:=wdReplaceAllWithSelection.Find.Text="^p^p".Replacement.Text="^p".MatchWildcards=FalseEndWithSelection.Find.ExecuteReplace:=wdReplaceAllWithSelection.Fin