Q: How to get information from a Inline cell?
- To: mathgroup at smc.vnet.net
- Subject: [mg20317] Q: How to get information from a Inline cell?
- From: Xing Jing Li <xingjing at calvin.math.vt.edu>
- Date: Fri, 15 Oct 1999 20:20:44 -0400
- Sender: owner-wri-mathgroup at wolfram.com
Hi, all,
I want to make a information input form by using a notebook. Since some
info are very short so I want to put few boxes in the same line. First I
tried to use the regular cells but each cell is as wide as the notebook.
Next I tried to use a table but it does not look like a form. I alse tried to
use inline cells, now I can not get the information out. The CellTags I
sign to the inline cells can not be found by using "NotebookFind" and
"NotebookLocate". Anybody knows how to do this? All suggestion are
greatly welcome.
Jing
p.s. I pasted a sample cell here for your opinion:
Cell[TextData[
{"Data 1:",
Cell[" ", "Text",CellFrame->True,
CellTags->"Data1", CellSize->{50, 20},
Background->RGBColor[1,1,1]],
" Data 2:",
Cell[" ", "Text",CellFrame->True,
CellTags->"Data2", CellSize->{50, 20},
Background->RGBColor[1,1,1]],
" Data 3:",
Cell[" ", "Text",CellFrame->True,
CellTags->"Data3", CellSize->{50, 20},
Background->RGBColor[1,1,1]]}],
CellTags->"Info1",
Background->RGBColor[0.503975, 0.265995, 0.0960098],
FontSize->14,
FontColor->RGBColor[0,0,0]]//CellPrint
I tried the following to get the information out with no succeeds.
NotebookFind[InputNotebook[], "Data1", All, CellTags];
SelectionMove[SelectedNotebook[], All, CellContents];
data1=NotebookRead[SelectedNotebook[]];
If the cell with Tag "Data1" is a regular cell it works.