一页A4纸9张PPT或16张自动排版

2024年1月9日发(作者：老款福克斯三厢)

制作步骤要点：第一步：Word：工具—→宏—→VisualBasic编辑器—→文件—→导入文件。宏命令文件见附件。（保存一下，以后就不用了再重复导入了）第二步：Powerpoint：文件—→另存为—→windows图元文件。（如果PPT有背景，可先将背景模板改为白版形式）第三步：Word：插入—→图片—→来自文件。用快捷键“Ctrl+A”全选刚才产生的所有图片，插入。第五步：Word：工具—→宏—→宏，选择第一步中导入的那个宏，运行。完工！Sub一页9张PPT自动排版()\'\'【调整页边距及页眉页脚距，适用于A4纸】(wdStyleNormal).rEast=.cii=\"\"rEast=\"\"=ation=gin=CentimetersToPoints(0.6).BottomMargin=CentimetersToPoints(0.6).LeftMargin=CentimetersToPoints(1).RightMargin=CentimetersToPoints(0.8).Gutter=CentimetersToPoints(0).HeaderDistance=CentimetersToPoints(0.5).FooterDistance=CentimetersToPoints(0.9).PageWidth=CentimetersToPoints(29.7).PageHeight=CentimetersToPoints(21).FirstPageTray=agesTray=nStart=EvenPagesHeaderFooter=entFirstPageHeaderFooter=False

.VerticalAlignment=ssEndnotes=Margins=esOnOne=ldPrinting=ldRevPrinting=ldPrintingSheets=Pos=Mode=wdLayoutModeLineGridEndWith\'【调整每张幻灯片的大小为高184宽262，也许还有更佳的值，可自己尝试】DimiAsIntegerFori=Shapes(i).Height=Shapes(i).Width=262Nexti\'【给每张幻灯片加边框，感觉没有边框很难看】yUnit:=wdStoryDimjAsIntegerForj=ghtUnit:=wdCharacter,Count:=1,Extend:=Shapes(1)s(wdBorderLeft).LineStyle=dth==s(wdBorderRight).LineStyle=dth==s(wdBorderTop).LineStyle=dth==wdColorAutomaticEndWith

s(wdBorderBottom).LineStyle=dth===tBorderLineStyle=tBorderLineWidth=tBorderColor=ghtUnit:=wdCharacter,Count:=1NextjEndSub