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

《一页A4纸9张PPT或16张自动排版》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、制作步骤要点：第一步：Word：工具—→宏—→VisualBasic编辑器  —→文件—→导入文件。宏命令文件见附件。（保存一下，以后就不用了再重复导入了）第二步：Powerpoint：文件—→另存为—→windows图元文件。（如果PPT有背景，可先将背景模板改为白版形式）第三步：Word：插入—→图片—→来自文件。用快捷键“Ctrl+A”全选刚才产生的所有图片，插入。第五步：Word：工具—→宏—→宏，选择第一步中导入的那个宏，运行。完工！Sub 一页9张PPT自动排版()''【调整页边距及页眉页脚距，

2、适用于A4纸】    With ActiveDocument.Styles(wdStyleNormal).Font        If .NameFarEast = .NameAscii Then            .NameAscii = ""        End If        .NameFarEast = ""    End With        With ActiveDocument.PageSetup        .LineNumbering.Active = False      

3、  .Orientation = wdOrientLandscape        .TopMargin = CentimetersToPoints(0.6)        .BottomMargin = CentimetersToPoints(0.6)        .LeftMargin = CentimetersToPoints(1)        .RightMargin = CentimetersToPoints(0.8)        .Gutter = CentimetersToPoints(

4、0)        .HeaderDistance = CentimetersToPoints(0.5)        .FooterDistance = CentimetersToPoints(0.9)        .PageWidth = CentimetersToPoints(29.7)        .PageHeight = CentimetersToPoints(21)        .FirstPageTray = wdPrinterDefaultBin        .OtherPages

5、Tray = wdPrinterDefaultBin        .SectionStart = wdSectionNewPage        .OddAndEvenPagesHeaderFooter = False        .DifferentFirstPageHeaderFooter = False        .VerticalAlignment = wdAlignVerticalTop        .SuppressEndnotes = False        .MirrorMarg

6、ins = False        .TwoPagesOnOne = False        .BookFoldPrinting = False        .BookFoldRevPrinting = False        .BookFoldPrintingSheets = 1        .GutterPos = wdGutterPosLeft        .LayoutMode = wdLayoutModeLineGrid    End With    '【调整每张幻灯片的大小为高184

7、宽262，也许还有更佳的值，可自己尝试】        Dim i As Integer    For i = 1 To ActiveDocument.InlineShapes.Count        ActiveDocument.InlineShapes(i).Height = 184        ActiveDocument.InlineShapes(i).Width = 262    Next i    '【给每张幻灯片加边框，感觉没有边框很难看】        Selection.HomeKey

8、 Unit:=wdStory        Dim j As Integer    For j = 1 To ActiveDocument.InlineShapes.Count           Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend    With Selection.InlineShapes(1)        Wi