After inserting the charts, you could re-set the width of all of them in a single pass with a macro like:
Code:
Sub Demo()
Dim sWdth As Single, iShp As InlineShape
With ActiveDocument
With .PageSetup
sWdth = .PageWidth - .LeftMargin - .RightMargin - .Gutter
End With
For Each iShp In ActiveDocument.InlineShapes
With iShp
If .Type = wdInlineShapeChart Then .Width = sWdth
End With
Next
End With
End Sub
For PC macro installation & usage instructions, see:
http://www.gmayor.com/installing_macro.htm
For Mac macro installation & usage instructions, see:
https://wordmvp.com/Mac/InstallMacro.html