本文及其所涉及的宏代碼僅適用于標(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