スクリプトでWordの余白を変更

Script Word 
	Set objDoc = objWord.Documents.Open(strFileName)
	'余白
	'上19mm
	objDoc.PageSetUp.TopMargin = objWord.MillimetersToPoints(19)
	'下19mm
	objDoc.PageSetUp.BottomMargin = objWord.MillimetersToPoints(19)
	'左16mm
	objDoc.PageSetUp.LeftMargin = objWord.MillimetersToPoints(16)
	'右16mm
	objDoc.PageSetUp.RightMargin = objWord.MillimetersToPoints(16)

	Set objDoc = objWord.Documents.Open(strFileName)
	'用紙の上端からヘッダーの上部までの距離
	objDoc.PageSetUp.HeaderDistance = objWord.MillimetersToPoints(15)
	'用紙の下端からフッターまでの距離
	objDoc.PageSetUp.FooterDistance = objWord.MillimetersToPoints(17.5)