>>408
考えてみた
レイアウトオプションの「文字列と一緒に移動する」チェックボックスを外すマクロ

For n = 1 To ActiveDocument.Shapes.Count
ActiveDocument.Shapes(n).RelativeVerticalPosition = wdRelativeVerticalPositionPage
Next n