Document.SnapToShapes (Word)

True if Microsoft Word automatically aligns AutoShapes or East Asian characters with invisible gridlines that go through the vertical and horizontal edges of other AutoShapes or East Asian characters in the specified document.

This property creates additional invisible gridlines for each AutoShape. SnapToShapes works independently of the SnapToGrid property.

ActiveDocument.SnapToShapes = True