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

制作步骤要点： 第一步：Word：工具宏Visual Basic 编辑器文件导入文件。宏命令文件见附件。（保存一下，以后就不用了再重复导入了） 第二步：Powerpoint：文件另存为windows图元文件。（如果PPT有背景，可先将背景模板改为白版形式） 第三步：Word：插入图片来自文件。用快捷键“Ctrl+A”全选刚才产生的所有图片，插入。 第五步：Word：工具宏宏，选择第一步中导入的那个宏，运行。 完工！Sub一页9张PPT自动排版()【调整页边距及页眉页脚距，适用于A4纸】WithActiveDocument.Styles(wdStyleNormal).FontIf.NameFarEast=.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=CentimetersToPoints(0).HeaderDistance=CentimetersToPoints(0.5).FooterDistance=CentimetersToPoints(0.9).PageWidth=CentimetersToPoints(29.7).PageHeight=CentimetersToPoints(21).FirstPageTray=wdPrinterDefaultBin.OtherPagesTray=wdPrinterDefaultBin.SectionStart=wdSectionNewPage.OddAndEvenPagesHeaderFooter=False.DifferentFirstPageHeaderFooter=False.VerticalAlignment=wdAlignVerticalTop.SuppressEndnotes=False.MirrorMargins=False.TwoPagesOnOne=False.BookFoldPrinting=False.BookFoldRevPrinting=False.BookFoldPrintingSheets=1.GutterPos=wdGutterPosLeft.LayoutMode=wdLayoutModeLineGridEndWith【调整每张幻灯片的大小为高184宽262，也许还有更佳的值，可自己尝试】DimiAsIntegerFori=1ToActiveDocument.InlineShapes.CountActiveDocument.InlineShapes(i).Height=184ActiveDocument.InlineShapes(i).Width=262Nexti【给每张幻灯片加边框，感觉没有边框很难看】Selection.HomeKeyUnit:=wdStoryDimjAsIntegerForj=1ToActiveDocument.InlineShapes.CountSelection.MoveRightUnit:=wdCharacter,Count:=1,Extend:=wdExtendWithSelection.InlineShapes(1)With.Borders(wdBorderLeft).LineStyle=wdLineStyleSingle.LineWidth=wdLineWidth050pt.Color=wdColorAutomaticEndWithWith.Borders(wdBorderRight).LineStyle=wdLineStyleSingle.LineWidth=wdLineWidth050pt.Color=wdColorAutomaticEndWithWith.Borders(wdBorderTop).LineStyle=wdLineStyleSingle.LineWidth=wdLineWidth050pt.Color=wdColorAutomaticEndWithWith.Borders(wdBorderBottom).LineStyle=wdLineStyleSingle.LineWidth=wdLineWidth050pt.Color=wdColorAutomaticEndWith.Borders.Shadow=FalseEndWithWithOptions.DefaultBorderLineStyle=wdLineStyleSingle.DefaultBorderLineWidth=wdLin