SubResizeImagesToPageWidth()Application.ScreenUpdating=True'获取当前文档Setdoc=ActiveDocument'获取页面宽度并减去页边距Withdoc.PageSetuppgWidth=.PageWidth-.LeftMargin-.RightMarginEndWith'