Menu object in a notebook that will print text in a new cell

Question

I would like to get an output text when I select every option of popup menu, the input below print me the option but outside the cell displaying panel generated with Manipulate. I have been trying other options without results, there is a way to print inside the cell displaying panel like an output text while you change the option of the popup menu?

Manipulate[
  ActionMenu["Text", 
    {"a" :> Print["a"], b :> Print["b"], c :> Print["c"],d :> Print["d"]}]]

With another example I tried to use Dynamic Panel with the same result.

Manipulate[
  Dynamic @ 
    Panel[
      ActionMenu["Text", 
        {"a" :> Print["a"], b :> Print["b"], c :> Print["c"], d :> Print["d"]}]]]

I need something like (I used "Paint" to do this idea):

Answer 1

I think you trying too hard. I believe all you need is the action menu. I can think of two version you might consider. The 1st produces print cells because it uses Print; the 2nd produces text cells like those created by selecting Style > Text in the Format menu.

ActionMenu["Text", # :> Print[#] & /@ {"a", "b", "c", "d"}]

ActionMenu["Text", # :> CellPrint[TextCell[#, "Text"]] & /@ {"a", "b", "c", "d"}]

Which one you should choose will depend on what kind of look and feel you want from the created cells.

Update

On basis of additional information supplied by the OP, I have concluded the OP is looking for a fancy version of a Manipulate panel that will put text selected from the popup menu into a field from which it can cut and pasted into other windows on his screen. If I'm right, then perhaps something like this will work for him.

Framed[
  Manipulate[
    InputField[Style[txt, "SR", 14, "Output"], FieldSize -> Small],
    Pane[Style["Chose a word", "SB", 12], ImageMargins -> {{45, 45}, {0, 5}}],
    {{values, StringSplit["the quick brown fox jumped over the lazy dog"]}, None},
    {{txt, Dynamic @ values[[1]], Style["     Text", Bold, 11]}, values, PopupMenu},
    AppearanceElements -> None,
    Paneled -> False,
    TrackedSymbols :> {txt}],
  RoundingRadius -> 10,
  Background -> GrayLevel[.9]]

This interactive panel initially looks like this:

After making a choice, it might look like this: