VBA Code

Move shape anchors away from heading paragraphs

When shape anchors are located in heading paragraphs, the table of contents in unable to display heading numbers.
This routine works even on shapes whose anchors are locked.
It preserves the location of a shape even if the shape is positioned relative to paragraph

wdSelectionType.wdSelectionFrame 
wdInformation.wdFrameIsSelected