巧用宏命令，完美实现一页A4纸打印多张高清照片或幻灯片
莘县一中张仿刚
工作中我们经常遇到这些情况：学籍库中2000多张照片，如何有序的打印在A4纸上，每张36张且把学籍号有序的自动填充到照片下方？家庭外出游玩的照片如何方便的按规定的尺寸打印在A4像纸上？一个ppt文件有96张幻灯片，如何清晰的在A4纸中一页打8张ppt（甚至更多张）？本文就以实例解决上述问题。
首先我们需要在word中安装“自动排版”宏命令，方法如下：word→工具→宏→录制新宏→宏名macrol 改为“自动排版”→确定→界面出现蓝色对话框，停止录制，然后word→工具→宏→选中宏“自动排版”→编辑，删除尾行的“end sub”，然后在尾行复制粘贴下列内容，关闭Visual Basic编辑器，这样自动排版的宏命令就已经制作好了。
'【调整页边距及页眉页脚距，适用于A4纸】
With ActiveDocument.Styles(wdStyleNormal).Font
https://www.doczj.com/doc/2e3801361.html,FarEast=.NameAscii Then
.NameAscii=""
End If
.NameFarEast=""
End With
With ActiveDocument.PageSetup
.LineNumbering.Active=False
.Orientation=wdOrientPortrait
.TopMargin=CentimetersToPoints(1.6)
.BottomMargin=CentimetersToPoints(0.9)
.LeftMargin=CentimetersToPoints(1.4)
.RightMargin=CentimetersToPoints(1)
.Gutter=CentimetersToPoints(0)
.HeaderDistance=CentimetersToPoints(0.5)
.FooterDistance=CentimetersToPoints(0.9)
.PageWidth=CentimetersToPoints(21)
.PageHeight=CentimetersToPoints(29.7)
.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=wdLayoutModeLineGrid
End With
'【加页码，页脚居中处】
Selection.Sections(1).Footers(1).PageNumbers.Add PageNumberAlignment:=_
wdAlignPageNumberCenter,FirstPage:=True
If ActiveWindow.View.SplitSpecial<>wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type=wdNormalView Or ActiveWindow._
ActivePane.View.Type=wdOutlineView Then
ActiveWindow.ActivePane.View.Type=wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView=wdSeekCurrentPageHeader
If Selection.HeaderFooter.IsHeader=True Then
ActiveWindow.ActivePane.View.SeekView=wdSeekCurrentPageFooter
Else
ActiveWindow.ActivePane.View.SeekView=wdSeekCurrentPageHeader
End If
If ActiveWindow.ActivePane.View.Type=wdNormalView Or ActiveWindow._
ActivePane.View.Type=wdOutlineView Then
If ActiveWindow.Panes.Count=2Then
ActiveWindow.Panes(2).Close
End If
ActiveWindow.View.SplitSpecial=wdPaneCurrentPageHeader
Else
ActiveWindow.View.SeekView=wdSeekCurrentPageHeader
End If
ActiveWindow.ActivePane.View.SeekView=wdSeekMainDocument
ActiveWindow.ActivePane.VerticalPercentScrolled=0
'【调整每张幻灯片的大小为高184宽262，也许还有更佳的值，可自己尝试】
Dim i As Integer
For i=1To ActiveDocument.InlineShapes.Count
ActiveDocument.InlineShapes(i).Height=184
ActiveDocument.InlineShapes(i).Width=262
Next i
'【给每张幻灯片加边框】
Selection.HomeKey Unit:=wdStory
Dim j As Integer
For j=1To ActiveDocument.InlineShapes.Count
Selection.MoveRight Unit:=wdCharacter,Count:=1,Extend:=wdExtend
With Selection.InlineShapes(1)
With.Borders(wdBorderLeft)
.LineStyle=wdLineStyleSingle
.LineWidth=wdLineWidth050pt
.Color=wdColorAutomatic
End With
With.Borders(wdBorderRight)
.LineStyle=wdLineStyleSingle
.LineWidth=wdLineWidth050pt
.Color=wdColorAutomatic
End With
With.Borders(wdBorderTop)
.LineStyle=wdLineStyleSingle
.LineWidth=wdLineWidth050pt
.Color=wdColorAutomatic
End With
With.Borders(wdBorderBottom)
.LineStyle=wdLineStyleSingle
.LineWidth=wdLineWidth050pt
.Color=wdColorAutomatic
End With
.Borders.Shadow=False
End With
With Options
.DefaultBorderLineStyle=wdLineStyleSingle
.DefaultBorderLineWidth=wdLineWidth050pt
.DefaultBorderColor=wdColorAutomatic
End With
Selection.MoveRight Unit:=wdCharacter,Count:=1
Next j
End Sub
一、在一页A4纸上打印多张高清照片
以建立学籍为例，照片放在桌面新建文件夹内，本例以36张照片为例，2000张的一样可以一次全部导入，方法完全相同。
第一步：修改宏文件。工具→宏→宏“自动排版”，改变照片宽度和高度，其他不变，
第二步：Word。插入→图片→来自文件，可用快捷键“Ctrl+A”全选学籍库所有图片，插入。
第三步：word。工具—→宏—→宏，选择宏“自动排版”，运行。效果如下：
第四步：word。文件→页面设置→上下左右边距可调为2cm。全选文档（ctrl+A），点居中图标。
第五步：word。添加加文件名（学籍号）。首先在第一行照片后面击两次回车键，空出一行，插入表格（1行×6列），调整表格端线，使得空格对应每张照片下面。如下图：
然后选中表格左上角的十字全选表格，击右键，表格属性→边框和底纹→边框→设置为“无”→确定。
再次全选表格，格式→项目和符号→编号→选中左起第2各编号→自定义→编号格式在灰色闪动的“1”前添加“20103725000”，再把灰色“1”后面的黑点删掉。
第六步：word。自动填充学籍号。全选中刚才自动填充好表格，复制→在每行照片后面粘贴。由于word只支持1—9999四位数字，当遇到更位时，即学籍尾号为“10”、“100”、“1000”时要重新设定。如出现“00010”需改为“0010”，则选中该生下方的编号→格式或右键→项目符号和编号→自定义编号→编号格式减去一个0→起始编号改为10→确定，同理出现100、1000时也要改两次。另外出现断码时按同样的方法操作。
二、在一页A4纸上打印8张ppt幻灯片
常常需要将PPT的内容以讲义形式打印出来，但PPT打
印设置里只支持一页纸上打印1,2,3,4,6,9页幻灯片几种形式,
而且格式几乎无法调整而且格式几乎无法调整。笔者尝试打
开ppt文件后，执行：文件→打印→对话框“打印内容”→
选择“讲义”→“每页幻灯片数”选择9→预览结果很不理想，
幻灯片之间的间距过大，从而使得幻灯片内容太小且不清晰。
本法仍然采取宏命令进行操作。
第一步：Powerpoint：文件→另存为→windows图元文件，如果
PPT有背景，可先将背景模板改为白版形式，为方便阅读，可先
在ppt中添加幻灯片编号后再另存为图片元件。
第二步：Word：插入→图片→来自文件，用快捷键“Ctrl+A”全选
刚才产生的所有图片，插入。
第三步：Word：工具→宏→宏“自动排版”，运行，如右图。
第五步：可以调整页边距，如果想一页上有更多幻灯片可以适当
编辑宏命令中的图片大小（工具→宏→宏→编辑→修改图片参数→关
闭Visual Basic编辑器），重新运行宏即可观察效果，可尝试反复调整。
总之，只要你善于运用该宏命令，即可做到对照片的自由打印。
要做演讲的童鞋有福了，教你如何设计一份令人惊艳的PPT，绝对获益匪浅...【Written by Joshua Johnson】来源：冯华刚的日志 在它冒出来的日子里，PPT制造出来的糟糕设计比历史上任何其他数字工具都要多，可能只有微软的paint是个例外。 在本文我们将用10个超级技巧来解决糟糕的演示设计肆虐横行的问题，让你可以设计出更好看、更专业的演示。此间你会看到Note & Point上的一些出色的幻灯片设计，还有一些就是你们自己的作品。让我们开始吧！ 不是设计师？ 这个网站的大部分内容主要针对专业设计师和开发人员，或者是起码对涉足这一领域感兴趣的人。不过本文是写给做过PPT的人的。无论你是学生、领导，还是自助团体，或者是薪水达6位数的企业高管，不管你喜欢与否，从你打开Powerpoint或Keynote的那一刻起，你就成为了一名设计师。 你已经选择了一个可视化的沟通工具，因此你应当花点时间了解可视化沟通的一二件事。其主要原因之一，尤其对于那些身处商业世界的人来说，是你的同事会下意识地根据你PPT 的视觉吸引力来对你本人做出判断。 如何培养出色的演示设计技巧？如果你还没得到建议的话，学学下面的十项技巧看看。等着瞧，如果你的同事注意到你的幻灯片开始变好，他们很可能会开始请你帮帮他们改进一下自己的片子！ #1 不要用内置样式 为了说明这一点，我打开Powerpoint，随手抓起一个实际的缺省样式然后随便在上面写点文字。这个流程跟无数PPT设计师的工作流程几乎完全一致，其结果就是我读书和工作时看过无数遍的一个典型的幻灯片。
（图中文字：最伟大的幻灯片是不是很震撼！？） 这就是一个设计秘密，这个片子太恶心了；跟你在Powerpoint里面发现的许多缺省样式一样的恶心。诚然，近些年来他们的货色已经有了明显的改善，而Keynote（苹果的演示工具）还有一些不错的模板，但是，你不该把这些视为核心手段，只能在时间紧迫万不得已时才用它们。 此处的关键点是定制发出的声音更有力。你的同事了解也使用那些Powerpoint的模板，如果你不在幻灯片的美感上下点功夫，你的同事马上就能觉察出来。 我知道，让非设计人员抛开模板似乎有些激进，但是你可以的！只要你开始动手前把本文的其他技巧也读完。否则的话其结果可能会比微软的设计师做出来的东西还要糟糕。 #2 使用有质量的照片 照片是独自就能令你的演示出彩的最佳手段之一。它同时也是孤身就能把你的演示搞砸的最佳手段之一。“白色背景下的商业人士”看起来不错，但有点夸张了，显得有点呆板老套。 还有，在白色背景下光溜溜地放一张照片并不意味着它就是好照片。不要为了放照片而把难看和不合适的照片放上去。记住，没有照片好过糟糕照片。