Sub Demo()
Dim Shp As Shape, Rng As Range
With ActiveDocument
    Set Rng = .Tables(1).Cell(2, 2).Range
    Rng.Collapse wdCollapseStart
    Set Shp = ActiveDocument.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, _
      Left:=0, Top:=0, Width:=72, Height:=12, Anchor:=Rng)
  With Shp
    .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
    .RelativeVerticalPosition = wdRelativeVerticalPositionPage
  End With
End With
End Sub