word自动化排版宏.doc

《word自动化排版宏.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

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

2、为软回车  Selection.Find.ClearFormatting  Selection.Find.Replacement.ClearFormatting  WithSelection.Find      .Text="^l"      .Replacement.Text="^p"      .Forward=True      .Wrap=wdFindContinue      .Format=False      .MatchCase=False      .MatchWholeWord=False      .MatchByte=True      .Matc

3、hWildcards=False      .MatchSoundsLike=False      .MatchAllWordForms=False  EndWith  Selection.Find.ExecuteReplace:=wdReplaceAll  '去除所有空行  DimiAsParagraph,nAsInteger  Application.ScreenUpdating=False  ForEachiInActiveDocument.Paragraphs  IfLen(i.Range)=1Then  i.Range.Delete  n=n+1  EndIf 

4、 Next  Application.ScreenUpdating=True  '去除半角空格  Selection.Find.ClearFormatting  Selection.Find.Replacement.ClearFormatting  WithSelection.Find      .Text=""      .Replacement.Text=""      .Forward=True      .Wrap=wdFindContinue      .Format=False      .MatchCase=False      .MatchWholeWor

5、d=False      .MatchByte=True      .MatchWildcards=False      .MatchSoundsLike=False      .MatchAllWordForms=False  EndWith  Selection.Find.ExecuteReplace:=wdReplaceAll  '去除全角空格  Selection.Find.ClearFormatting  Selection.Find.Replacement.ClearFormatting  WithSelection.Find      .Text="　"  

6、    .Replacement.Text=""      .Forward=True      .Wrap=wdFindContinue      .Format=False      .MatchCase=False      .MatchWholeWord=False      .MatchByte=True      .MatchWildcards=False      .MatchSoundsLike=False      .MatchAllWordForms=False  EndWith  Selection.Find.ExecuteReplace:=wdRe

7、placeAll  '替换非标准引号为标准引号  Selection.Find.ClearFormatting  Selection.Find.Replacement.ClearFormatting  WithSelection.Find      .Text="""(*)"""      .Replacement.Text=ChrW(8220)&"1"&ChrW(8221)      .Forward=True      .Wrap=wdFindContinue      .Format=False      .Match