万智牌等TCG打印格式设置宏

本文及其所涉及的宏代码仅适用于标准大小(standard size)即卡牌尺寸在88mm*63mm的TCG卡牌，用作其他尺寸卡牌打印时请自行调整相关参数

使用方法：

①：新建word文档，并插入卡图

②：使用alt+F8快捷键打开宏管理面板

③：在上方宏名中输入宏的名称，并创建宏，全选代码并粘贴代码（代码后附）

④：保存退出，alt+F8运行你刚刚保存的宏，效果如图

附录，宏代码

Sub 万智大小()

On Error Resume Next '忽略错误

ActiveDocument.PageSetup.TopMargin = 1.5 * 28.35 '设置上侧页边距ActiveDocument.PageSetup.BottomMargin = 1.5 * 28.35 '设置下侧页边距ActiveDocument.PageSetup.LeftMargin = 1 * 28.35 '设置左侧页边距ActiveDocument.PageSetup.RightMargin = 1 * 28.35 '设置右侧页边距

Dim n '图片个数

For n = 1 To ActiveDocument.InlineShapes.Count

ActiveDocument.InlineShapes(n).Height = 8.8 * 28.35 '设置图片高度为8.8cmActiveDocument.InlineShapes(n).Width = 6.3 * 28.35 '设置图片宽度6.3cm

Next n

End Sub