Chaos in Headers/Footers

[Mavila]

Is there any reason why a line shape in the header of a page would get deleted when I insert a table in the footer of the same page?

I put the shape into the header like so:

        Set ShpLine = ActiveDocument.Sections(ActiveDocument.Sections.Count).Footers(wdHeaderFooterPrimary).Shapes.AddLine(72, 60, 568, 60)
        With ShpLine
            .Line.ForeColor.RGB = RGB(0, 0, 0) 'Black line
            .Line.Weight = 3
        End With

I use the following to insert a table into the footer and PRESTO! the header shape (line) disappears:

            Set myTable = ActiveDocument.Tables.Add(Range:=ActiveDocument.Sections(ActiveDocument.Sections.Count).Footers(wdHeaderFooterPrimary).Range.Paragraphs(ActiveDocument.Sections(ActiveDocument.Sections.Count).Footers(wdHeaderFooterPrimary).Range.Paragraphs.Count).Range, numrows:=3, numcolumns:=3, AutoFitBehavior:=wdAutoFitFixed)

[gmaxey]

Because you are killing the shape anchor when you insert the table in the same range.

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim ShpLine
Dim oRng As Range
Dim myTable
  Set ShpLine = ActiveDocument.Sections(ActiveDocument.Sections.Count).Footers(wdHeaderFooterPrimary).Shapes.AddLine(72, 60, 568, 60)
  With ShpLine
      .Line.ForeColor.RGB = RGB(0, 0, 0) 'Black line
      .Line.Weight = 3
  End With
  Set oRng = ActiveDocument.Sections(ActiveDocument.Sections.Count).Footers(wdHeaderFooterPrimary).Range.Paragraphs(ActiveDocument.Sections(ActiveDocument.Sections.Count).Footers(wdHeaderFooterPrimary).Range.Paragraphs.Count).Range
  oRng.Collapse wdCollapseStart
  Set myTable = ActiveDocument.Tables.Add(oRng, 3, 3, wdAutoFitFixed)
lbl_Exit:
  Exit Sub
End Sub

When you post code, please include variable declarations.

[Mavila]

Awesome! Thank you!