word自动化排版宏(共7页).doc

精选优质文档-倾情为你奉上 自己制作的word自动化排版宏，水平低，很粗糙！还有一些功能未实现，希望高手多多指点，把里面一些多余的代码删减掉，另外再添加一些功能！例如怎样能循环判断最后一页如果只有不到三分之一页的几行时，通过减小行距和字号从而去除最后一页。再者就是大家比较认可的正规排版格式（字号、行距等等）是什么？我想通过做这个东西，我们能有效地提高工作效率，又无需借助其他软件。下面将全部代码奉上！ Sub 格式设置() 格式设置 Macro 宏在 2008-9-23 由 陈凯 制作 Application.ScreenUpdating = False 更改所有硬回车为软回车 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = l .Replacement.Text = p