一页9张PPT自动排版宏命令.doc一页9张PPT自动排版宏命令AttributeVB_Name="NewMacros"Sub一页9张PPT自动排版()="宏在2008-6-16由欣宇录制"=""''制作:啄木论坛(权所有''【调整页边距及页眉页脚距,适用于A4纸】(wdStyleNormal).=.=""=""===CentimetersToPoints().BottomMargin=CentimetersToPoints().LeftMargin=CentimetersToPoints(1).RightMargin=CentimetersToPoints().Gutter=CentimetersToPoints(0).HeaderDistance=CentimetersToPoints().FooterDistance=CentimetersToPoints().PageWidth=CentimetersToPoints().PageHeight=CentimetersToPoints(21).FirstPageTray==============wdLayoutModeLineGridEndWith'【调整每张幻灯片的大小为高184宽262,也许还有更佳的值,可自己尝试】DimiAsIntegerFori=(i).Height=(i).Width=262Nexti'【给每张幻灯片加边框】:=wdStoryDimjAsIntegerForj=1ToActiveD
一页9张PPT自动排版宏命令 来自淘豆网www.taodocs.com转载请标明出处.