word自动化排版宏共7页-豆柴文库

您所在位置：网站首页 / word自动化排版宏共7页.pdf / 文档详情

免费试读已结束，剩余 2 页请下载文档后查看

10 金币

下载文档

/ 7

下载提示

如果您无法下载资料，请参考说明：

1、部分资料下载需要金币，请确保您的账户上有足够的金币

2、已购买过的文档，再次下载不重复扣费

3、资料包下载后请先用软件解压，在使用对应软件打开

文本预览

[分享]word自动化排版宏[复制链接]

自己制作的word自动化排版宏，水平低，很粗糙！还有一些功能未实现，希望高手多多
指点，把里面一些多余的代码删减掉，另外再添加一些功能！例如怎样能循环判断最后一
页如果只有不到三分之一页的几行时，通过减小行距和字号从而去除最后一页。再者就是
大家比较认可的正规排版格式（字号、行距等等）是什么？我想通过做这个东西，我们能
有效地提高工作效率，又无需借助其他软件。下面将全部代码奉上！


Sub格式设置()
'
'格式设置Macro
'宏在2008-9-23由陈凯制作
'
Application.ScreenUpdating=False
'更改所有硬回车为软回车
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
.MatchWildcards=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
Next
Application.ScreenUpdating=True
'去除半角空格
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
WithSelection.Find
.Text=""
.Replacement.Text=""
.Forward=True
.Wrap=wdFindContinue
.Format=False
.MatchCase=False
.MatchWholeWord=False
.MatchByte=True
.MatchWildcards=False
.MatchSoundsLike=False
.MatchAllWordForms=False
EndWith
Selection.Find.ExecuteReplace:=wdReplaceAll
'去除全角空格
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
WithSelection.Find
.Text=""
.Replacement.Text=""
.Forward=True
.Wrap=wdFindContinue
.Format=False
.MatchCase=False
.MatchWholeWord=False
.MatchByte=True
.MatchWildcards=False
.MatchSoundsLike=False
.MatchAllWordForms=False
EndWith
Selection.Find.ExecuteReplace:=wdReplaceAll
'替换非标准引号为标准引号
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
WithSelection.Find
.Text="""(*)"""
.Replacement.Text=ChrW(8220)&"\1"&ChrW(8221)
.Forward=True
.Wrap=wdFindContinue
.Format=False
.MatchCase=False
.MatchWholeWord=False
.MatchByte=False
.MatchAllWordForms=False
.MatchSoundsLike=False
.MatchWildcards=True
EndWith
Selection.Find.ExecuteReplace:=wdReplaceAll
'字母数字符号全角转半角Macro
Dimqjsz,bjszAsString,iiiA