《一页A4纸9张PPT或16张自动排版》由会员分享，可在线阅读，更多相关《一页A4纸9张PPT或16张自动排版（3页珍藏版）》请在金锄头文库上搜索。
1、制作步骤要点：第一步：Word：工具一宏一VisualBasic编辑器一文件一导入文件。宏命令文件见附件。（保存一下，以后就不用了再重复导入了）第二步：Powerpoint：文件一另存为一windows图元文件。（如果PPT有背景，可先将背景模板改为白版形式）第三步：Word：插入一图片一来自文件。用快捷键CtrlA全选刚才产生的所有图片，插入。第五步：Word：工具一宏一宏，选择第一步中导入的那个宏，运行。完工！Sub一页9张PPT自动排版()【调整页边距及页眉页脚距，适用于A4纸】WithActiveDocument.Styles(wdStyleNormal).FontIf.NameFar
2、East=.NameAsciiThen.NameAscii=EndIf.NameFarEast=EndWithWithActiveDocument.PageSetup.LineNumbering.Active=False.Orientation=wdOrientLandscape.TopMargin=CentimetersToPoints(0.6).BottomMargin=CentimetersToPoints(0.6).LeftMargin=CentimetersToPoints(1).RightMargin=CentimetersToPoints(0.8).Gutter=Centimet
3、ersToPoints(0).HeaderDistance=CentimetersToPoints(0.5).FooterDistance=CentimetersToPoints(0.9).PageWidth=CentimetersToPoints(29.7).PageHeight=CentimetersToPoints(21).FirstPageTray=wdPrinterDefaultBin.OtherPagesTray=wdPrinterDefaultBin.SectionStart=wdSectionNewPage.OddAndEvenPagesHeaderFooter=False.D
4、ifferentFirstPageHeaderFooter=False.VerticalAlignment=wdAlignVerticalTop.SuppressEndnotes=False.MirrorMargins=False.TwoPagesOnOne=False.BookFoldPrinting=False.BookFoldRevPrinting=False.BookFoldPrintingSheets=1.GutterPos=wdGutterPosLeft.LayoutMode=wdLayoutModeLineGridEndWith调整每张幻灯片的大小为高184宽262，也许还有更佳
5、的值，可自己尝试】DimiAsIntegerFori=1ToActiveDocument.InlineShapes.CountActiveDocument.InlineShapes(i).Height=184ActiveDocument.InlineShapes(i).Width=262Nexti给每张幻灯片加边框，感觉没有边框很难看】Selection.HomeKeyUnit:=wdStoryDimjAsIntegerForj=1ToActiveDocument.InlineShapes.CountSelection.MoveRightUnit:=wdCharacter,Count:=1,E
6、xtend:=wdExtendWithSelection.InlineShapes(1)With.Borders(wdBorderLeft).LineStyle=wdLineStyleSingle.LineWidth=wdLineWidth050pt.Color=wdColorAutomaticEndWithWith.Borders(wdBorderRight).LineStyle=wdLineStyleSingle.LineWidth=wdLineWidth050pt.Color=wdColorAutomaticEndWithWith.Borders(wdBorderTop).LineSty
7、le=wdLineStyleSingle.LineWidth=wdLineWidth050pt.Color=wdColorAutomaticEndWithWith.Borders(wdBorderBottom).LineStyle=wdLineStyleSingle.LineWidth=wdLineWidth050pt.Color=wdColorAutomaticEndWith.Borders.Shadow=FalseEndWithWithOptions.DefaultBorderLineStyle=wdLineStyleSingle.DefaultBorderLineWidth=wdLineWidth050pt.DefaultBorderColor=wdColorAutomaticEndWithSelection.MoveRightUnit:=wdCharacter,Count:=1NextjEndSub
