萬(wàn)智牌等TCG打印格式設(shè)置宏
本文及其所涉及的宏代碼僅適用于標(biāo)準(zhǔn)大小(standard size)即卡牌尺寸在88mm*63mm的TCG卡牌，用作其他尺寸卡牌打印時(shí)請(qǐng)自行調(diào)整相關(guān)參數(shù)
使用方法：
①：新建word文檔，并插入卡圖
②：使用alt+F8快捷鍵打開宏管理面板
③：在上方宏名中輸入宏的名稱，并創(chuàng)建宏，全選代碼并粘貼代碼（代碼后附）
④：保存退出，alt+F8運(yùn)行你剛剛保存的宏，效果如圖
附錄，宏代碼
Sub?萬(wàn)智大小()
On?Error?Resume?Next?'忽略錯(cuò)誤
ActiveDocument.PageSetup.TopMargin?=?1.5?*?28.35?'設(shè)置上側(cè)頁(yè)邊距
ActiveDocument.PageSetup.BottomMargin?=?1.5?*?28.35?'設(shè)置下側(cè)頁(yè)邊距
ActiveDocument.PageSetup.LeftMargin?=?1?*?28.35?'設(shè)置左側(cè)頁(yè)邊距
ActiveDocument.PageSetup.RightMargin?=?1?*?28.35?'設(shè)置右側(cè)頁(yè)邊距
Dim?n?'圖片個(gè)數(shù)
For?n?=?1?To?ActiveDocument.InlineShapes.Count
ActiveDocument.InlineShapes(n).Height?=?8.8?*?28.35?'設(shè)置圖片高度為8.8cm
ActiveDocument.InlineShapes(n).Width?=?6.3?*?28.35?'設(shè)置圖片寬度6.3cm
Next?n
End?Sub
