用宏你愿意吗？先选中这些表格，右键，设置属性，选项，上下左右边距都设置为0cm。同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴如下代码：Sub test()Dim pic As InlineShapeFor Each pic In ThisDocument.InlineShapesIf pic.Type = 3 Thenpic.LockAspectRatio = msoFalsepic.Width = pic.Range.Cells.Widthpic.Height = pic.Range.Cells.HeightEnd IfNextEnd Sub在此界面直接按F5运行此宏，图片大小自动填充到整个表格。这个可以将所有表格里的图片一次性填充好。
