chart1 = BarChart[
  Join[Table[{0, 0}, {7}], {{1, 3}}],
  ChartLabels -> {Placed[Append[Table["", {7}], "word"], Below], None},
  ChartLegends -> {None, {"top", "bottom"}},
  ChartLayout -> "Stacked",
  ImagePadding -> 10
  ]
chart2 = BarChart[
  Append[Range[7], 0],
  ChartLabels -> Append[Range[7], ""],
  ImagePadding -> 10
  ]
Overlay[{chart1, chart2}]