Extracting code from an ExpressionCell from WLD

Questions
1

Been exploring more WolframMathematicaData…hit a speed bump…

So, I can grab this:

WolframLanguageData["Button"][
     "DocumentationExampleInputs"][[2]][[2]][[1]][[1]]

which gives me an ExpressionCell thats this:

Table[Button[
  a], {a, {Style["\[MathematicaIcon]", Large], "string", 
   Framed[x + y], Graphics[Rectangle[], ImageSize -> 20]}}]

or better to understand:

ExpressionCell[
 Table[Button[a], {a, {Style["\[MathematicaIcon]", Large], "string", 
         Framed[x + y], 
    Graphics[Rectangle[], ImageSize -> 20]}}], "Input", 
   ShowStringCharacters -> True]

So how to I pull the code out of the ExpressionCell?
Thanks.

2

Hi, Did I confuse anyone? Yes, I can manually grab the code from once I show its an ExpressionCell; thats easy. The code is wrapped in an ExpressionCell; so, how do I pull out the code by using code??
I assume it might mean to use Boxes and HoldForm?
Thanks.