Text = FullBoxes & " " & Split(ActiveDocument.Tables(1).Cell(1, 3).Range.Text, vbCr)(0) & " containing "