Move shape anchors away from heading paragraphs

Article contributed by Bill Coan

Problem
When shape anchors are located in heading paragraphs, the table of contents is 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!

Solution
Cut offending shapes out of the document and paste them back into the document with their anchors at a new location, immediately below the heading paragraph. Do this without affecting the location of the shape on the page.

Sub MoveAnchorsOutOfHeadings()

Dim oShape As Shape

For Each oShape In ActiveDocument.Shapes
    If Left$(oShape.Anchor.Style, 7) = "Heading" Then
        oShape.Select
        Selection.Cut
        Selection.MoveDown unit:=wdParagraph, Count:=1
        Selection.Paste
    End If
Next oShape

End Sub


Click to view Terms of Use page

Click to view Disclaimer page