(************** Content-type: application/mathematica ************** CreatedBy='Mathematica 4.2' Mathematica-Compatible Notebook This notebook can be used with any Mathematica-compatible application, such as Mathematica, MathReader or Publicon. The data for the notebook starts with the line containing stars above. To get the notebook into a Mathematica-compatible application, do one of the following: * Save the data starting with the line of stars above into a file with a name ending in .nb, then open the file inside the application; * Copy the data starting with the line of stars above to the clipboard, then use the Paste menu command inside the application. Data for notebooks contains only printable 7-bit ASCII and can be sent directly in email or through ftp in text mode. Newlines can be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). NOTE: If you modify the data for this notebook not in a Mathematica- compatible application, you must delete the line below containing the word CacheID, otherwise Mathematica-compatible applications may try to use invalid cache data. For more information on notebooks and Mathematica-compatible applications, contact Wolfram Research: web: http://www.wolfram.com email: info@wolfram.com phone: +1-217-398-0700 (U.S.) Notebook reader applications are available free of charge from Wolfram Research. *******************************************************************) (*CacheID: 232*) (*NotebookFileLineBreakTest NotebookFileLineBreakTest*) (*NotebookOptionsPosition[ 51620, 1656]*) (*NotebookOutlinePosition[ 52332, 1681]*) (* CellTagsIndexPosition[ 52288, 1677]*) (*WindowFrame->Normal*) Notebook[{ Cell["CopyPasteTools", "Title"], Cell[TextData[{ "Simple copy and paste between ", StyleBox["Mathematica", FontSlant->"Italic"], " and Excel, and other applications." }], "Subtitle"], Cell["ver 1.0 June 30, 2003", "Subsubtitle"], Cell["\<\ Ken Kikuchi kikuchi@neti.com\ \>", "Author"], Cell[TextData[{ Cell[GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgeQW0:fh_P3emOD0mOGe0=SMg`1VOHP201m1DP0609n//`3emOD0mOGe09n//`0] C5`07d5B0P3emOD0101VOHP0mOGe0<[Ae00]C5`201m1DP80mOGe00<0i^WZ01m1DP0O@E800P3emOD6 01m1DP0307B9T`3emOD0Wjbc0080mOGe01007d5B04UTLP3VjNX0mOGe0>KYjP19I7807d5B07B9T`3e mOD0i^WZ01m1DP0]C5`0b]7D0?Gem@3VjNX0BFAb100O@E801@3emOD07d5B01m1DP0O@E80M8VC00<0 mOGe00<0M8VC01m1DP1dRI<00`3emOD02@1dRI<07d5B0?Gem@0O@E80BFAb0>KYjP3emOD0i^WZ06Im R00701m1DP001P0O@E800`0]C5`0i^WZ0?Gem@040?Gem@0306ImR02AX:P0mOGe00<0mOGe00<0Wjbc 01m1DP3emOD0103emOD00`2]^;h07d5B04UTLP030?Gem@807d5B0P3emOD601m1DP80mOGe00X0BFAb 0?Gem@3emOD07d5B0;_4b@3emOD0>eQW0?Gem@3VjNX07d5B0`3emOD01P0O@E80[KRn0?Gem@1HLGd0 mOGe0=SMg`@07d5B01L0mOGe01m1DP0O@E807d5B0?Gem@1dRI<07d5B07B9T`3emOD07d5B0?Gem@1d RI<07d5B07B9T`3emOD07d5B0?Gem@0O@E80i^WZ06ImR00O@E80F75m0?Gem@0701m1DP001P0O@E80 1`2AX:P0mOGe0=SMg`0kF6L0;DaL0;_4b@3emOD00P3VjNX00`3emOD0F75m04UTLP020?Gem@0301m1 DP3emOD0mOGe0080F75m0P3emOD01`0O@E80IWf80?Gem@3:dM@0mOGe05QaO@0O@E800P3emOD601m1 DP030>KYjP3emOD0F75m0080mOGe0P0O@E801@0kF6L0PYFN0>KYjP3emOD07d5B0080mOGe00@0;DaL 01m1DP3emOD0mOGe1`0O@E801@3emOD07d5B01m1DP0O@E80mOGe00<07d5B00<0mOGe01m1DP3emOD0 0`0O@E800`3emOD07d5B0?Gem@0401m1DP0305QaO@3emOD07d5B00H07d5B000601m1DP030>KYjP3e mOD0BFAb00807d5B00<0>eQW0<[Ae01HLGd00P3emOD201m1DP80mOGe00<07d5B0?Gem@3emOD00P0O @E820?Gem@0701m1DP2AX:P0mOGe09n//`3emOD0M8VC01m1DP020?Gem@H07d5B00<0>eQW09n//`3H gMl00P3emOD00`0O@E80Wjbc0?Gem@020?Gem@040<[Ae00O@E80mOGe0?Gem@807d5B1@3emOD401m1 DP050?Gem@0O@E807d5B01m1DP3emOD00`0O@E800`3emOD07d5B0?Gem@0301m1DP090?Gem@0O@E80 mOGe01m1DP0kF6L0[KRn0>KYjP3HgMl0IWf800L07d5B000601m1DP80mOGe1P0O@E80103VjNX0mOGe 05QaO@19I7820?Gem@0301m1DP3emOD0mOGe0080F75m0P3emOD01`0O@E80[KRn0?Gem@2AX:P0mOGe 09n//`0O@E80103emOD00`3HgMl0BFAb01m1DP0401m1DP80mOGe00D07d5B0?Gem@3emOD0M8VC04UT LP0201m1DP80mOGe0P0O@E820?Gem@0303]HI`3emOD0mOGe00@07d5B00D0mOGe01m1DP0O@E807d5B 0?Gem@0301m1DP030?Gem@0O@E80mOGe00<07d5B00L0mOGe01m1DP3emOD07d5B0>KYjP22UIh0;DaL 00T07d5B000601m1DP80mOGe1P0O@E800`2AX:P0mOGe0?Gem@020?Gem@0309n//`0O@E80mOGe00@0 mOGe00P0[KRn01m1DP3:dM@0mOGe06ImR03emOD0b]7D01m1DPD0mOGe00H0^lC901m1DP0O@E80i^WZ 0?Gem@19I7820?Gem@0601m1DP3VjNX0mOGe03]HI`3emOD0^lC9103emOD00`0O@E80[KRn0?Gem@02 0?Gem@030:fh_P0O@E807d5B00807d5B01L0mOGe01m1DP0O@E807d5B0?Gem@1dRI<07d5B07B9T`3e mOD07d5B0?Gem@1dRI<07d5B07B9T`3emOD07d5B0?Gem@0O@E80mOGe05QaO@0O@E80F75m0>KYjP07 01m1DP001P0O@E800`3HgMl0mOGe04UTLP0201m1DP0503]HI`3emOD0i^WZ01m1DP2O[;<00P3emOD0 0`2]^;h0;DaL01m1DP020?Gem@0507B9T`3emOD0b]7D02eKYjP3emOD0mOGe07B9T`0O@E80 F75m0>KYjP3emOD0i^WZ07B9T`040?Gem@0601m1DP0]C5`0b]7D0?Gem@3:dM@0;DaL100O@E801@3e mOD07d5B01m1DP0O@E80M8VC00<0mOGe00<0M8VC01m1DP1dRI<00`3emOD02@1dRI<07d5B0?Gem@0O @E80IWf80>KYjP3emOD0i^WZ04UTLP0701m1DP001P0O@E80202AX:P0mOGe0=SMg`0kF6L0;DaL0;_4 b@3emOD0[KRn500O@E820?Gem@0401m1DP19I780mOGe0?Gem@h07d5B0P3emOD;01m1DP030?Gem@0O @E807d5B00d07d5B00<0mOGe01m1DP0O@E802`0O@E8000H07d5B00<0;DaL0=SMg`3emOD0103emOD0 0`0kF6L07d5B01m1DP0B01m1DPD0mOGe00<0^lC901m1DP0O@E80300O@E820?Gem@/07d5B00<0mOGe 01m1DP0O@E803@0O@E800`3emOD07d5B01m1DP0;01m1DP001`0O@E801P0]C5`0[KRn0?Gem@3emOD0 b]7D04UTLQD07d5B103emOD00`3:dM@0BFAb01m1DP0=01m1DP0302e"], "Graphics", Editable->False, Selectable->False, CellFrame->{{0, 0}, {2, 0}}, ShowCellBracket->False, CellMargins->{{4, 4}, {0, 6}}, Active->False, Evaluatable->False, CellFrameMargins->False, ImageSize->{97, 20}, ImageMargins->{{0, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, CellTags->"ShortTab"], "\n", Cell[BoxData[ StyleBox[GridBox[{ { StyleBox[\(\(CopyAsPlainText\)\(\ \)\), FontFamily->"Helvetica", FontWeight->"Bold", FontColor->GrayLevel[1], Background->RGBColor[0.329412, 0.584314, 0.694118]]}, { StyleBox[\(\(PasteAsPlainText\)\(\ \)\), FontFamily->"Helvetica", FontWeight->"Bold", FontColor->GrayLevel[1], Background->RGBColor[0.329412, 0.584314, 0.694118]]}, { StyleBox[\(\({}\)\(\ \)\(\[DoubleRightArrow]\)\(\ \)\(Excel\)\(\ \ \)\), FontFamily->"Helvetica", FontWeight->"Bold", FontColor->GrayLevel[1], Background->RGBColor[0.329412, 0.584314, 0.694118]]}, { StyleBox[\(\({}\)\(\ \)\(\[DoubleLeftArrow]\)\(\ \)\(Excel\)\(\ \ \)\), FontFamily->"Helvetica", FontWeight->"Bold", FontColor->GrayLevel[1], Background->RGBColor[0.329412, 0.584314, 0.694118]]}, { StyleBox[\(\(List\)\(\[DoubleRightArrow]\)\(Excel\)\(\ \)\), FontFamily->"Helvetica", FontWeight->"Bold", FontColor->GrayLevel[1], Background->RGBColor[0.329412, 0.584314, 0.694118]]} }, GridFrame->True, RowLines->True, ColumnLines->True], Background->RGBColor[0.329412, 0.584314, 0.694118]]]] }], "Text"], Cell[CellGroupData[{ Cell["Description", "Section"], Cell[TextData[{ StyleBox[" ", FontColor->GrayLevel[1], Background->RGBColor[0.160784, 0.294118, 0.360784]], StyleBox["CopyPaste", FontFamily->"Helvetica", FontWeight->"Bold", FontColor->GrayLevel[1], Background->RGBColor[0.160784, 0.294118, 0.360784]], StyleBox["Tools ", FontFamily->"Helvetica", FontColor->GrayLevel[1], Background->RGBColor[0.160784, 0.294118, 0.360784]], " is an add-on palette that provides a simple copying and pasting data \ between ", StyleBox["Mathematica", FontSlant->"Italic"], " and other applications such as Microsoft Excel. The palette contains five \ buttons that helps you move data back and forth with specified format. The \ file (CopyPasteTools.nb) is the palette, and additional documentation is \ provided in (AboutCopyPasteTools.nb). \n", Cell[BoxData[ StyleBox[GridBox[{ { StyleBox[\(\(CopyAsPlainText\)\(\ \)\), FontFamily->"Helvetica", FontWeight->"Bold", FontColor->GrayLevel[1], Background->RGBColor[0.329412, 0.584314, 0.694118]]} }, RowSpacings->0.1, ColumnSpacings->0.1, GridFrame->True, RowLines->True, ColumnLines->True], Background->RGBColor[0.329412, 0.584314, 0.694118]]]], " button gives you copy the text on ", StyleBox["Mathematica", FontSlant->"Italic"], " to other applications in plain text format. \n", Cell[BoxData[ StyleBox[GridBox[{ { StyleBox[\(\(PasteAsPlainText\)\(\ \)\), FontFamily->"Helvetica", FontWeight->"Bold", FontColor->GrayLevel[1], Background->RGBColor[0.329412, 0.584314, 0.694118]]} }, RowSpacings->0.1, ColumnSpacings->0.1, GridFrame->True, RowLines->True, ColumnLines->True], Background->RGBColor[0.329412, 0.584314, 0.694118]]]], " button gives you paste the text on ", StyleBox["Mathematica", FontSlant->"Italic"], " without style information.\n", Cell[BoxData[ StyleBox[GridBox[{ { StyleBox[\(\({}\)\(\ \)\(\[DoubleRightArrow]\)\(\ \)\(Excel\)\(\ \ \)\), FontFamily->"Helvetica", FontWeight->"Bold", FontColor->GrayLevel[1], Background->RGBColor[0.329412, 0.584314, 0.694118]]} }, RowSpacings->0.1, ColumnSpacings->0.1, GridFrame->True, RowLines->True, ColumnLines->True], Background->RGBColor[0.329412, 0.584314, 0.694118]]]], " CopyToExcel button gives you copy the contents in List format (eg. \ {{a,b},{c,d}} on ", StyleBox["Mathematica", FontSlant->"Italic"], " to tab-delimited table on Excel.\n", Cell[BoxData[ StyleBox[GridBox[{ { StyleBox[\(\({}\)\(\ \)\(\[DoubleLeftArrow]\)\(\ \)\(Excel\)\(\ \ \)\), FontFamily->"Helvetica", FontWeight->"Bold", FontColor->GrayLevel[1], Background->RGBColor[0.329412, 0.584314, 0.694118]]} }, RowSpacings->0.1, ColumnSpacings->0.1, GridFrame->True, RowLines->True, ColumnLines->True], Background->RGBColor[0.329412, 0.584314, 0.694118]]]], " PasteFromExcel button gives you paste the contents in List format on ", StyleBox["Mathematica", FontSlant->"Italic"], " from cells copied on Excel.\nTo see more details at the Palette Interface \ section." }], "Text"] }, Closed]], Cell[CellGroupData[{ Cell["Installation", "Section"], Cell[CellGroupData[{ Cell["To download the necessary files", "Subsection"], Cell["\<\ You need to retrieve two files from this directory: \tAboutCopyPasteTools.nb (this file) \tCopyPasteTools.nb\ \>", "Text"] }, Closed]], Cell[CellGroupData[{ Cell["To install on your system", "Subsection"], Cell[CellGroupData[{ Cell["For once only testing", "Subsubsection"], Cell["\<\ Open (or double click) the CopyPasteTools.nb at any location. \ Please read though the Usage section in this document.\ \>", "Text"] }, Closed]], Cell[CellGroupData[{ Cell["For automatic placement when opening Mathematica", "Subsubsection"], Cell[TextData[{ "1) Place the downloaded ", "CopyPasteTools", ".nb file into the following directory.\n\\Mathematica 4.x \ Files\\Configuration\\FrontEnd\\Palette\nor\n\\Mathematica 4.x \ Files\\SystemFiles\\FrontEnd\\Palette\n\n2) Start ", StyleBox["Mathematica", FontSlant->"Italic"], ", open the palette through menu File/Palette." }], "Text"] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Palette Interface", "Section"], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ StyleBox[GridBox[{ { StyleBox[\(\(CopyAsPlainText\)\(\ \)\), FontFamily->"Helvetica", FontWeight->"Bold", FontColor->GrayLevel[1], Background->RGBColor[0.329412, 0.584314, 0.694118]]} }, RowSpacings->0.1, ColumnSpacings->0.1, GridFrame->True, RowLines->True, ColumnLines->True], Background->RGBColor[0.329412, 0.584314, 0.694118]]]]], "Subsection", TextJustification->0], Cell[CellGroupData[{ Cell["Feature", "Subsubsection"], Cell["\<\ Makes a copy of a selected characters and places them on the \ clipboard in plain-text format. It simply calls \"Copy As Plain Text\" in the \ Edit menu.\ \>", "Text"] }, Closed]], Cell[CellGroupData[{ Cell["Usage", "Subsubsection"], Cell[TextData[{ "1) Select the contents on ", StyleBox["Mathematica", FontSlant->"Italic"], ", press CopyAsPlainText button on the ", StyleBox[" ", FontColor->GrayLevel[1], Background->RGBColor[0.160784, 0.294118, 0.360784]], StyleBox["CopyPaste", FontFamily->"Helvetica", FontWeight->"Bold", FontColor->GrayLevel[1], Background->RGBColor[0.160784, 0.294118, 0.360784]], StyleBox["Tools ", FontFamily->"Helvetica", FontColor->GrayLevel[1], Background->RGBColor[0.160784, 0.294118, 0.360784]], " palette.\n2) Switch to other application such as mailer software, select \ a destination or an insertion point, and paste the contents." }], "Text"] }, Closed]], Cell[CellGroupData[{ Cell["Example", "Subsubsection"], Cell["\<\ 1) Select the following styled-format text, press CopyAsText \ button.\ \>", "Text"], Cell[TextData[{ StyleBox["This", FontFamily->"Zapf Dingbats", FontSize->24, FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontFamily->"Zapf Dingbats", FontSize->18], StyleBox["is", FontFamily->"Zapf Dingbats", FontSize->18, FontColor->RGBColor[0, 1, 0]], StyleBox[" a ", FontFamily->"Zapf Dingbats", FontSize->18], StyleBox["sample", FontFamily->"Zapf Dingbats", FontSize->36, FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], StyleBox[" of ", FontFamily->"Zapf Dingbats", FontSize->18], StyleBox["Styled", FontFamily->"Zapf Dingbats", FontSize->24, FontWeight->"Bold", FontColor->GrayLevel[0.500008], FontVariations->{"Shadow"->True}], StyleBox[" ", FontFamily->"Zapf Dingbats", FontSize->18], StyleBox["Text", FontFamily->"Zapf Dingbats", FontSize->36, FontSlant->"Italic"], StyleBox[".", FontFamily->"Zapf Dingbats", FontSize->18] }], "Text"], Cell[TextData[{ "2) Specify insertion point at anywhere on ", StyleBox["Mathematica", FontSlant->"Italic"], ", execute the ordinal paste (eg., Ctrl+V or Cmd+V). You will see the \ following in plain-text format." }], "Text"], Cell["This is a sample of Styled Text.", "Input"] }, Closed]], Cell[CellGroupData[{ Cell["Note", "Subsubsection"], Cell["\<\ 1) If you copy the Input cell, the label In[ ]:= will be copied. 2) If you copy graphics such as Plot result, the postscript code will be \ copied.\ \>", "Text"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ StyleBox[GridBox[{ { StyleBox[\(\(PasteAsPlainText\)\(\ \)\), FontFamily->"Helvetica", FontWeight->"Bold", FontColor->GrayLevel[1], Background->RGBColor[0.329412, 0.584314, 0.694118]]} }, RowSpacings->0.1, ColumnSpacings->0.1, GridFrame->True, RowLines->True, ColumnLines->True], Background->RGBColor[0.329412, 0.584314, 0.694118]]]]], "Subsection"], Cell[CellGroupData[{ Cell["Feature", "Subsubsection"], Cell["\<\ Places the contents of the clipboard at the insertion point in \ plain-text format. It calls \"Paste As Plain Text\" in the Edit menu.\ \>", \ "Text"] }, Open ]], Cell[CellGroupData[{ Cell["Usage", "Subsubsection"], Cell["\<\ 1) Open an application such as Microsoft Word. Copy the contents \ you want to copy in plain-text format. \ \>", "Text"], Cell[TextData[{ "2) Switch to ", StyleBox["Mathematica", FontSlant->"Italic"], ", select a destination or an insertion point, press PasteAsPlainText \ button on the ", StyleBox[" ", FontColor->GrayLevel[1], Background->RGBColor[0.160784, 0.294118, 0.360784]], StyleBox["CopyPaste", FontFamily->"Helvetica", FontWeight->"Bold", FontColor->GrayLevel[1], Background->RGBColor[0.160784, 0.294118, 0.360784]], StyleBox["Tools ", FontFamily->"Helvetica", FontColor->GrayLevel[1], Background->RGBColor[0.160784, 0.294118, 0.360784]], " palette" }], "Text"] }, Closed]], Cell[CellGroupData[{ Cell["Example", "Subsubsection"], Cell["\<\ 1) Select the following styled-format text, then make ordinal copy \ such as Ctrl+C or Cmd+C.\ \>", "Text"], Cell[TextData[{ StyleBox["This", FontFamily->"Zapf Dingbats", FontSize->24, FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontFamily->"Zapf Dingbats", FontSize->18], StyleBox["is", FontFamily->"Zapf Dingbats", FontSize->18, FontColor->RGBColor[0, 1, 0]], StyleBox[" a ", FontFamily->"Zapf Dingbats", FontSize->18], StyleBox["sample", FontFamily->"Zapf Dingbats", FontSize->36, FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], StyleBox[" of ", FontFamily->"Zapf Dingbats", FontSize->18], StyleBox["Styled", FontFamily->"Zapf Dingbats", FontSize->24, FontWeight->"Bold", FontColor->GrayLevel[0.500008], FontVariations->{"Shadow"->True}], StyleBox[" ", FontFamily->"Zapf Dingbats", FontSize->18], StyleBox["Text", FontFamily->"Zapf Dingbats", FontSize->36, FontSlant->"Italic"], StyleBox[".", FontFamily->"Zapf Dingbats", FontSize->18] }], "Text"], Cell[TextData[{ "2) Specify insertion point anywhere on ", StyleBox["Mathematica", FontSlant->"Italic"], ", press PasteAsPlainText button on the ", StyleBox[" ", FontColor->GrayLevel[1], Background->RGBColor[0.160784, 0.294118, 0.360784]], StyleBox["CopyPaste", FontFamily->"Helvetica", FontWeight->"Bold", FontColor->GrayLevel[1], Background->RGBColor[0.160784, 0.294118, 0.360784]], StyleBox["Tools ", FontFamily->"Helvetica", FontColor->GrayLevel[1], Background->RGBColor[0.160784, 0.294118, 0.360784]], " palette. You will see the following in plain-text format." }], "Text"], Cell["This is a sample of Styled Text.", "Input"] }, Closed]], Cell[CellGroupData[{ Cell["Note", "Subsubsection"], Cell["N/A", "Text"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ StyleBox[GridBox[{ { StyleBox[\(\({\ }\)\(\ \)\(\[DoubleRightArrow]\)\(\ \)\(Excel\)\ \(\ \)\), FontFamily->"Helvetica", FontWeight->"Bold", FontColor->GrayLevel[1], Background->RGBColor[0.329412, 0.584314, 0.694118]]} }, RowSpacings->0.1, ColumnSpacings->0.1, GridFrame->True, RowLines->True, ColumnLines->True], Background->RGBColor[0.329412, 0.584314, 0.694118]]]], " CopyToExcel" }], "Subsection"], Cell[CellGroupData[{ Cell["Feature", "Subsubsection"], Cell["\<\ Makes a copy of a data set in List ({...}) format and place them on \ the clipboard in tab-delimited table. Functionally, it may call \ CopyAsTabDelimitedText.\ \>", "Text"] }, Closed]], Cell[CellGroupData[{ Cell["Usage", "Subsubsection"], Cell[TextData[{ "1) Select the contents in List {{...}) format on ", StyleBox["Mathematica,", FontSlant->"Italic"], " press CopyToExcel button on the ", StyleBox[" ", FontColor->GrayLevel[1], Background->RGBColor[0.160784, 0.294118, 0.360784]], StyleBox["CopyPaste", FontFamily->"Helvetica", FontWeight->"Bold", FontColor->GrayLevel[1], Background->RGBColor[0.160784, 0.294118, 0.360784]], StyleBox["Tools ", FontFamily->"Helvetica", FontColor->GrayLevel[1], Background->RGBColor[0.160784, 0.294118, 0.360784]], " palette.\n2) Switch to Excel (or other application), select a destination \ or an insertion point, and paste the contents." }], "Text"] }, Closed]], Cell[CellGroupData[{ Cell["Example", "Subsubsection"], Cell[TextData[{ "Select the following data, press \"CopyToExcel\" button on the ", StyleBox[" ", FontColor->GrayLevel[1], Background->RGBColor[0.160784, 0.294118, 0.360784]], StyleBox["CopyPaste", FontFamily->"Helvetica", FontWeight->"Bold", FontColor->GrayLevel[1], Background->RGBColor[0.160784, 0.294118, 0.360784]], StyleBox["Tools ", FontFamily->"Helvetica", FontColor->GrayLevel[1], Background->RGBColor[0.160784, 0.294118, 0.360784]], " palette." }], "Text"], Cell["{{aa,bb},{cc,dd}}", "Input"], Cell["\<\ Switch to Excel, select a destination cell, and paste. You will see \ the following. \ \>", "Text"], Cell[BoxData[GridBox[{ { StyleBox[ ButtonBox[" "], Background->GrayLevel[0.333333]], StyleBox[ ButtonBox[\(\(\ \)\(A\)\(\ \)\)], Background->GrayLevel[0.333333]], StyleBox[ ButtonBox["B"], Background->GrayLevel[0.333333]], StyleBox[ ButtonBox["C"], Background->GrayLevel[0.333333]]}, { StyleBox[ ButtonBox["1"], Background->GrayLevel[0.333333]], StyleBox[ ButtonBox[\(\(aa\)\(\ \ \ \ \ \ \ \ \ \ \ \ \ \ \)\)], CellFrame->True, FontWeight->"Plain", Background->RGBColor[1, 1, 0], FontVariations->{"CompatibilityType"->0}], StyleBox[ ButtonBox[\(\(bb\)\(\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \)\)], CellFrame->True, FontWeight->"Plain", Background->RGBColor[1, 1, 0], FontVariations->{"CompatibilityType"->0}], StyleBox[ ButtonBox[" "], FontWeight->"Plain", FontSlant->"Plain", FontTracking->"Plain", FontVariations->{"Underline"->False, "Outline"->False, "Shadow"->False, "StrikeThrough"->False, "Masked"->False, "CompatibilityType"->0, "RotationAngle"->0}]}, { StyleBox[ ButtonBox["2"], Background->GrayLevel[0.333333]], StyleBox[ ButtonBox[\(\(cc\)\(\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \)\)], CellFrame->True, FontWeight->"Plain", Background->RGBColor[1, 1, 0], FontVariations->{"CompatibilityType"->0}], StyleBox[ ButtonBox[\(\(dd\)\(\ \ \ \ \ \ \ \ \ \ \ \ \ \ \)\)], CellFrame->True, FontWeight->"Plain", Background->RGBColor[1, 1, 0], FontVariations->{"CompatibilityType"->0}], StyleBox[ ButtonBox[" "], FontWeight->"Plain", FontSlant->"Plain", FontTracking->"Plain", FontVariations->{"Underline"->False, "Outline"->False, "Shadow"->False, "StrikeThrough"->False, "Masked"->False, "CompatibilityType"->0, "RotationAngle"->0}]}, { StyleBox[ ButtonBox["3"], Background->GrayLevel[0.333333]], StyleBox[ ButtonBox[" "], FontWeight->"Plain", FontSlant->"Plain", FontTracking->"Plain", FontVariations->{"Underline"->False, "Outline"->False, "Shadow"->False, "StrikeThrough"->False, "Masked"->False, "CompatibilityType"->0, "RotationAngle"->0}], StyleBox[ ButtonBox[" "], FontWeight->"Plain", FontSlant->"Plain", FontTracking->"Plain", FontVariations->{"Underline"->False, "Outline"->False, "Shadow"->False, "StrikeThrough"->False, "Masked"->False, "CompatibilityType"->0, "RotationAngle"->0}], StyleBox[ ButtonBox[" "], FontWeight->"Plain", FontSlant->"Plain", FontTracking->"Plain", FontVariations->{"Underline"->False, "Outline"->False, "Shadow"->False, "StrikeThrough"->False, "Masked"->False, "CompatibilityType"->0, "RotationAngle"->0}]} }, RowSpacings->0, ColumnSpacings->0, GridDefaultElement:>ButtonBox[ "\\[Placeholder]"]]], "Input", Evaluatable->False], Cell["\<\ Or, if you paste on Mathematica, you will see the following \ tab-delimited text.\ \>", "Text"], Cell["\<\ aa\tbb cc\tdd\ \>", "Input"] }, Closed]], Cell[CellGroupData[{ Cell["Note", "Subsubsection"], Cell["\<\ 1) More than two dimensions (example below) will be converted in \ two dimensions. \ \>", "Text"], Cell["{{{x,y,z},111},{yyy,222}}", "Input"], Cell["\<\ Excel will show the following when you execute CopyToExcel for the \ above.\ \>", "Text"], Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[" "], ButtonBox["A"], ButtonBox["B"], ButtonBox["C"], ButtonBox["D"]}, { ButtonBox["1"], StyleBox[ ButtonBox[\(\(x\)\(\ \ \ \ \ \ \ \ \ \ \ \ \ \)\)], FontWeight->"Plain", FontSlant->"Plain", FontTracking->"Plain", FontVariations->{"Underline"->False, "Outline"->False, "Shadow"->False, "StrikeThrough"->False, "Masked"->False, "CompatibilityType"->0, "RotationAngle"->0}], StyleBox[ ButtonBox[\(\(y\)\(\ \ \ \ \ \ \ \ \ \ \ \ \ \)\)], FontWeight->"Plain", FontSlant->"Plain", FontTracking->"Plain", FontVariations->{"Underline"->False, "Outline"->False, "Shadow"->False, "StrikeThrough"->False, "Masked"->False, "CompatibilityType"->0, "RotationAngle"->0}], StyleBox[ ButtonBox[\(\(z\)\(\ \ \ \ \ \ \ \ \ \ \ \ \ \)\)], FontWeight->"Plain", FontSlant->"Plain", FontTracking->"Plain", FontVariations->{"Underline"->False, "Outline"->False, "Shadow"->False, "StrikeThrough"->False, "Masked"->False, "CompatibilityType"->0, "RotationAngle"->0}], StyleBox[ ButtonBox[\(\(\ \ \ \ \ \ \ \ \ \)\(111\)\)], FontWeight->"Plain", FontSlant->"Plain", FontTracking->"Plain", FontVariations->{"Underline"->False, "Outline"->False, "Shadow"->False, "StrikeThrough"->False, "Masked"->False, "CompatibilityType"->0, "RotationAngle"->0}]}, { ButtonBox["2"], StyleBox[ ButtonBox[\(\(yyy\)\(\ \ \ \ \ \ \ \ \ \)\)], FontWeight->"Plain", FontSlant->"Plain", FontTracking->"Plain", FontVariations->{"Underline"->False, "Outline"->False, "Shadow"->False, "StrikeThrough"->False, "Masked"->False, "CompatibilityType"->0, "RotationAngle"->0}], StyleBox[ ButtonBox[\(\(\ \ \ \ \ \ \ \ \)\(222\)\)], FontWeight->"Plain", FontSlant->"Plain", FontTracking->"Plain", FontVariations->{"Underline"->False, "Outline"->False, "Shadow"->False, "StrikeThrough"->False, "Masked"->False, "CompatibilityType"->0, "RotationAngle"->0}], StyleBox[ ButtonBox[" "], FontWeight->"Plain", FontSlant->"Plain", FontTracking->"Plain", FontVariations->{"Underline"->False, "Outline"->False, "Shadow"->False, "StrikeThrough"->False, "Masked"->False, "CompatibilityType"->0, "RotationAngle"->0}], StyleBox[ ButtonBox[" "], FontWeight->"Plain", FontSlant->"Plain", FontTracking->"Plain", FontVariations->{"Underline"->False, "Outline"->False, "Shadow"->False, "StrikeThrough"->False, "Masked"->False, "CompatibilityType"->0, "RotationAngle"->0}]}, { ButtonBox["3"], StyleBox[ ButtonBox[" "], FontWeight->"Plain", FontSlant->"Plain", FontTracking->"Plain", FontVariations->{"Underline"->False, "Outline"->False, "Shadow"->False, "StrikeThrough"->False, "Masked"->False, "CompatibilityType"->0, "RotationAngle"->0}], StyleBox[ ButtonBox[" "], FontWeight->"Plain", FontSlant->"Plain", FontTracking->"Plain", FontVariations->{"Underline"->False, "Outline"->False, "Shadow"->False, "StrikeThrough"->False, "Masked"->False, "CompatibilityType"->0, "RotationAngle"->0}], StyleBox[ ButtonBox[" "], FontWeight->"Plain", FontSlant->"Plain", FontTracking->"Plain", FontVariations->{"Underline"->False, "Outline"->False, "Shadow"->False, "StrikeThrough"->False, "Masked"->False, "CompatibilityType"->0, "RotationAngle"->0}], StyleBox[ ButtonBox[" "], FontWeight->"Plain", FontSlant->"Plain", FontTracking->"Plain", FontVariations->{"Underline"->False, "Outline"->False, "Shadow"->False, "StrikeThrough"->False, "Masked"->False, "CompatibilityType"->0, "RotationAngle"->0}]} }, RowSpacings->0, ColumnSpacings->0, GridDefaultElement:>ButtonBox[ "\\[Placeholder]"]]]]], "Input", Evaluatable->False], Cell[TextData[{ "Or, if you paste the contents on ", StyleBox["Mathematica", FontSlant->"Italic"], ", you will see the following as tab-separated text." }], "Text"], Cell["\<\ x\ty\tz\t111 yyy\t222\ \>", "Input"], Cell["\<\ 2) CopyToExcel does not work for data if wrapped by MatrixForm or \ TableForm. Please convert them in List format by InputForm prior to use \ CopyToExcel.\ \>", "Text"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ StyleBox[GridBox[{ { StyleBox[\(\({\ }\)\(\ \)\(\[DoubleLeftArrow]\)\(\ \ \)\(Excel\)\(\ \)\), FontFamily->"Helvetica", FontWeight->"Bold", FontColor->GrayLevel[1], Background->RGBColor[0.329412, 0.584314, 0.694118]]} }, RowSpacings->0.1, ColumnSpacings->0.1, GridFrame->True, RowLines->True, ColumnLines->True], Background->RGBColor[0.329412, 0.584314, 0.694118]]]], " PasteFromExcel" }], "Subsection"], Cell[CellGroupData[{ Cell["Feature", "Subsubsection"], Cell["\<\ Places the contents of the clipboard at the insertion point in List \ ({}) format after the conversion from tab-delimited text on the clipboard. \ Functionally it may call PasteFromCommaDelimitedText.\ \>", "Text"] }, Closed]], Cell[CellGroupData[{ Cell["Usage", "Subsubsection"], Cell[TextData[{ "1) Open Microsoft Excel or other application. Copy cells (or any \ tab-delimited text) you want to duplicate in List ({}) format on ", StyleBox["Mathematica", FontSlant->"Italic"], ".\n2) Switch to ", StyleBox["Mathematica", FontSlant->"Italic"], ", select a destination or an insertion point, press PasteFromExcel button \ on the ", StyleBox[" ", FontColor->GrayLevel[1], Background->RGBColor[0.160784, 0.294118, 0.360784]], StyleBox["CopyPaste", FontFamily->"Helvetica", FontWeight->"Bold", FontColor->GrayLevel[1], Background->RGBColor[0.160784, 0.294118, 0.360784]], StyleBox["Tools ", FontFamily->"Helvetica", FontColor->GrayLevel[1], Background->RGBColor[0.160784, 0.294118, 0.360784]], " palette" }], "Text"] }, Closed]], Cell[CellGroupData[{ Cell["Example", "Subsubsection"], Cell["\<\ Open Excel and select the cells, copy them on Excel. The screen \ image is the following.\ \>", "Text"], Cell[BoxData[GridBox[{ { StyleBox[ ButtonBox[" "], Background->GrayLevel[0.333333]], StyleBox[ ButtonBox[\(\(\ \)\(A\)\(\ \)\)], Background->GrayLevel[0.333333]], StyleBox[ ButtonBox["B"], Background->GrayLevel[0.333333]], StyleBox[ ButtonBox["C"], Background->GrayLevel[0.333333]]}, { StyleBox[ ButtonBox["1"], Background->GrayLevel[0.333333]], StyleBox[ ButtonBox[\(\(aaa\)\(\ \ \ \ \ \ \ \ \ \ \ \ \ \ \)\)], CellFrame->True, FontWeight->"Plain", Background->RGBColor[1, 1, 0], FontVariations->{"CompatibilityType"->0}], StyleBox[ ButtonBox[\(\(\ \ \ \ \ \ \ \ \ \ \ \ \)\(111\)\)], CellFrame->True, FontWeight->"Plain", Background->RGBColor[1, 1, 0], FontVariations->{"CompatibilityType"->0}], StyleBox[ ButtonBox[" "], FontWeight->"Plain", FontSlant->"Plain", FontTracking->"Plain", FontVariations->{"Underline"->False, "Outline"->False, "Shadow"->False, "StrikeThrough"->False, "Masked"->False, "CompatibilityType"->0, "RotationAngle"->0}]}, { StyleBox[ ButtonBox["2"], Background->GrayLevel[0.333333]], StyleBox[ ButtonBox[\(\(bbb\)\(\ \ \ \ \ \ \ \ \ \ \ \ \ \ \)\)], CellFrame->True, FontWeight->"Plain", Background->RGBColor[1, 1, 0], FontVariations->{"CompatibilityType"->0}], StyleBox[ ButtonBox[\(\(\ \ \ \ \ \ \ \ \ \ \ \ \)\(222\)\)], CellFrame->True, FontWeight->"Plain", Background->RGBColor[1, 1, 0], FontVariations->{"CompatibilityType"->0}], StyleBox[ ButtonBox[" "], FontWeight->"Plain", FontSlant->"Plain", FontTracking->"Plain", FontVariations->{"Underline"->False, "Outline"->False, "Shadow"->False, "StrikeThrough"->False, "Masked"->False, "CompatibilityType"->0, "RotationAngle"->0}]}, { StyleBox[ ButtonBox["3"], Background->GrayLevel[0.333333]], StyleBox[ ButtonBox[" "], FontWeight->"Plain", FontSlant->"Plain", FontTracking->"Plain", FontVariations->{"Underline"->False, "Outline"->False, "Shadow"->False, "StrikeThrough"->False, "Masked"->False, "CompatibilityType"->0, "RotationAngle"->0}], StyleBox[ ButtonBox[" "], FontWeight->"Plain", FontSlant->"Plain", FontTracking->"Plain", FontVariations->{"Underline"->False, "Outline"->False, "Shadow"->False, "StrikeThrough"->False, "Masked"->False, "CompatibilityType"->0, "RotationAngle"->0}], StyleBox[ ButtonBox[" "], FontWeight->"Plain", FontSlant->"Plain", FontTracking->"Plain", FontVariations->{"Underline"->False, "Outline"->False, "Shadow"->False, "StrikeThrough"->False, "Masked"->False, "CompatibilityType"->0, "RotationAngle"->0}]} }, RowSpacings->0, ColumnSpacings->0, GridDefaultElement:>ButtonBox[ "\\[Placeholder]"]]], "Input", Evaluatable->False], Cell[TextData[{ "Switch to ", StyleBox["Mathematica,", FontSlant->"Italic"], " select a destination or an insertion point, press PasteFromExcel button \ on the ", StyleBox[" ", FontColor->GrayLevel[1], Background->RGBColor[0.160784, 0.294118, 0.360784]], StyleBox["CopyPaste", FontFamily->"Helvetica", FontWeight->"Bold", FontColor->GrayLevel[1], Background->RGBColor[0.160784, 0.294118, 0.360784]], StyleBox["Tools ", FontFamily->"Helvetica", FontColor->GrayLevel[1], Background->RGBColor[0.160784, 0.294118, 0.360784]], " palette. You will see the following List formatted contents." }], "Text"], Cell["{{aaa,111},{bbb,222}}", "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ StyleBox[GridBox[{ { StyleBox[\(\(List\)\(\[DoubleRightArrow]\)\(Excel\)\(\ \)\), FontFamily->"Helvetica", FontWeight->"Bold", FontColor->GrayLevel[1], Background->RGBColor[0.329412, 0.584314, 0.694118]]} }, RowSpacings->0.1, ColumnSpacings->0.1, GridFrame->True, RowLines->True, ColumnLines->True], Background->RGBColor[0.329412, 0.584314, 0.694118]]]], Cell[BoxData[ \(\ \)]], "CopyListToExcel" }], "Subsection"], Cell[CellGroupData[{ Cell["Feature", "Subsubsection"], Cell["\<\ Makes a copy of a data set with the following List command (instead \ of List {} format) and place them on the clipboard in tab-delimited table. List[ List[ a, b], List[ c, d] ]\ \>", "Text"] }, Closed]], Cell[CellGroupData[{ Cell["Usage", "Subsubsection"], Cell[TextData[{ "1) Select the contents written by List command (instead of List {} format) \ on ", StyleBox["Mathematica,", FontSlant->"Italic"], " press CopyListToExcel button on the ", StyleBox[" ", FontColor->GrayLevel[1], Background->RGBColor[0.160784, 0.294118, 0.360784]], StyleBox["CopyPaste", FontFamily->"Helvetica", FontWeight->"Bold", FontColor->GrayLevel[1], Background->RGBColor[0.160784, 0.294118, 0.360784]], StyleBox["Tools ", FontFamily->"Helvetica", FontColor->GrayLevel[1], Background->RGBColor[0.160784, 0.294118, 0.360784]], " palette.\n2) Switch to Excel (or other application) and paste." }], "Text"] }, Closed]], Cell[CellGroupData[{ Cell["Example", "Subsubsection"], Cell[TextData[{ "Select the following contents, press CopyListToExcel button on the ", StyleBox[" ", FontColor->GrayLevel[1], Background->RGBColor[0.160784, 0.294118, 0.360784]], StyleBox["CopyPaste", FontFamily->"Helvetica", FontWeight->"Bold", FontColor->GrayLevel[1], Background->RGBColor[0.160784, 0.294118, 0.360784]], StyleBox["Tools ", FontFamily->"Helvetica", FontColor->GrayLevel[1], Background->RGBColor[0.160784, 0.294118, 0.360784]], " palette." }], "Text"], Cell["List[List[xxx, 111], List[yyy, 222]]", "Input"], Cell["\<\ Switch to Excel, select a destination cell, and paste. You will see \ the following. \ \>", "Text"], Cell[BoxData[GridBox[{ { StyleBox[ ButtonBox[" "], Background->GrayLevel[0.333333]], StyleBox[ ButtonBox[\(\(\ \)\(A\)\(\ \)\)], Background->GrayLevel[0.333333]], StyleBox[ ButtonBox["B"], Background->GrayLevel[0.333333]], StyleBox[ ButtonBox["C"], Background->GrayLevel[0.333333]]}, { StyleBox[ ButtonBox["1"], Background->GrayLevel[0.333333]], StyleBox[ ButtonBox[\(\(xxx\)\(\ \ \ \ \ \ \ \ \ \ \ \ \ \ \)\)], CellFrame->True, FontWeight->"Plain", Background->RGBColor[1, 1, 0], FontVariations->{"CompatibilityType"->0}], StyleBox[ ButtonBox[\(\(\ \ \ \ \ \ \ \ \ \ \ \ \ \)\(111\)\)], CellFrame->True, FontWeight->"Plain", Background->RGBColor[1, 1, 0], FontVariations->{"CompatibilityType"->0}], StyleBox[ ButtonBox[" "], FontWeight->"Plain", FontSlant->"Plain", FontTracking->"Plain", FontVariations->{"Underline"->False, "Outline"->False, "Shadow"->False, "StrikeThrough"->False, "Masked"->False, "CompatibilityType"->0, "RotationAngle"->0}]}, { StyleBox[ ButtonBox["2"], Background->GrayLevel[0.333333]], StyleBox[ ButtonBox[\(\(yyy\)\(\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \)\)], CellFrame->True, FontWeight->"Plain", Background->RGBColor[1, 1, 0], FontVariations->{"CompatibilityType"->0}], StyleBox[ ButtonBox[\(\(\ \ \ \ \ \ \ \ \ \ \ \ \ \)\(222\)\)], CellFrame->True, FontWeight->"Plain", Background->RGBColor[1, 1, 0], FontVariations->{"CompatibilityType"->0}], StyleBox[ ButtonBox[" "], FontWeight->"Plain", FontSlant->"Plain", FontTracking->"Plain", FontVariations->{"Underline"->False, "Outline"->False, "Shadow"->False, "StrikeThrough"->False, "Masked"->False, "CompatibilityType"->0, "RotationAngle"->0}]}, { StyleBox[ ButtonBox["3"], Background->GrayLevel[0.333333]], StyleBox[ ButtonBox[" "], FontWeight->"Plain", FontSlant->"Plain", FontTracking->"Plain", FontVariations->{"Underline"->False, "Outline"->False, "Shadow"->False, "StrikeThrough"->False, "Masked"->False, "CompatibilityType"->0, "RotationAngle"->0}], StyleBox[ ButtonBox[" "], FontWeight->"Plain", FontSlant->"Plain", FontTracking->"Plain", FontVariations->{"Underline"->False, "Outline"->False, "Shadow"->False, "StrikeThrough"->False, "Masked"->False, "CompatibilityType"->0, "RotationAngle"->0}], StyleBox[ ButtonBox[" "], FontWeight->"Plain", FontSlant->"Plain", FontTracking->"Plain", FontVariations->{"Underline"->False, "Outline"->False, "Shadow"->False, "StrikeThrough"->False, "Masked"->False, "CompatibilityType"->0, "RotationAngle"->0}]} }, RowSpacings->0, ColumnSpacings->0, GridDefaultElement:>ButtonBox[ "\\[Placeholder]"]]], "Input", Evaluatable->False], Cell["\<\ Or, if you paste the contents on Mathematica, you will see the \ following tab-delimited text.\ \>", "Text"], Cell["\<\ xxx\t111 yyy\t222\ \>", "Input"] }, Closed]], Cell[CellGroupData[{ Cell["Note", "Subsubsection"], Cell["\<\ More than two dimensions list (example below) will be converted in \ two dimensions. \ \>", "Text"], Cell["List[List[List[x,y,z], 111], List[yyy, 222]]", "Input"], Cell["Excel will show the following for the above list.", "Text"], Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[" "], ButtonBox["A"], ButtonBox["B"], ButtonBox["C"], ButtonBox["D"]}, { ButtonBox["1"], StyleBox[ ButtonBox[\(\(x\)\(\ \ \ \ \ \ \ \ \ \ \ \ \ \)\)], FontWeight->"Plain", FontSlant->"Plain", FontTracking->"Plain", FontVariations->{"Underline"->False, "Outline"->False, "Shadow"->False, "StrikeThrough"->False, "Masked"->False, "CompatibilityType"->0, "RotationAngle"->0}], StyleBox[ ButtonBox[\(\(y\)\(\ \ \ \ \ \ \ \ \ \ \ \ \ \)\)], FontWeight->"Plain", FontSlant->"Plain", FontTracking->"Plain", FontVariations->{"Underline"->False, "Outline"->False, "Shadow"->False, "StrikeThrough"->False, "Masked"->False, "CompatibilityType"->0, "RotationAngle"->0}], StyleBox[ ButtonBox[\(\(z\)\(\ \ \ \ \ \ \ \ \ \ \ \ \ \)\)], FontWeight->"Plain", FontSlant->"Plain", FontTracking->"Plain", FontVariations->{"Underline"->False, "Outline"->False, "Shadow"->False, "StrikeThrough"->False, "Masked"->False, "CompatibilityType"->0, "RotationAngle"->0}], StyleBox[ ButtonBox[\(\(\ \ \ \ \ \ \ \ \ \)\(111\)\)], FontWeight->"Plain", FontSlant->"Plain", FontTracking->"Plain", FontVariations->{"Underline"->False, "Outline"->False, "Shadow"->False, "StrikeThrough"->False, "Masked"->False, "CompatibilityType"->0, "RotationAngle"->0}]}, { ButtonBox["2"], StyleBox[ ButtonBox[\(\(yyy\)\(\ \ \ \ \ \ \ \ \ \)\)], FontWeight->"Plain", FontSlant->"Plain", FontTracking->"Plain", FontVariations->{"Underline"->False, "Outline"->False, "Shadow"->False, "StrikeThrough"->False, "Masked"->False, "CompatibilityType"->0, "RotationAngle"->0}], StyleBox[ ButtonBox[\(\(\ \ \ \ \ \ \ \ \)\(222\)\)], FontWeight->"Plain", FontSlant->"Plain", FontTracking->"Plain", FontVariations->{"Underline"->False, "Outline"->False, "Shadow"->False, "StrikeThrough"->False, "Masked"->False, "CompatibilityType"->0, "RotationAngle"->0}], StyleBox[ ButtonBox[" "], FontWeight->"Plain", FontSlant->"Plain", FontTracking->"Plain", FontVariations->{"Underline"->False, "Outline"->False, "Shadow"->False, "StrikeThrough"->False, "Masked"->False, "CompatibilityType"->0, "RotationAngle"->0}], StyleBox[ ButtonBox[" "], FontWeight->"Plain", FontSlant->"Plain", FontTracking->"Plain", FontVariations->{"Underline"->False, "Outline"->False, "Shadow"->False, "StrikeThrough"->False, "Masked"->False, "CompatibilityType"->0, "RotationAngle"->0}]}, { ButtonBox["3"], StyleBox[ ButtonBox[" "], FontWeight->"Plain", FontSlant->"Plain", FontTracking->"Plain", FontVariations->{"Underline"->False, "Outline"->False, "Shadow"->False, "StrikeThrough"->False, "Masked"->False, "CompatibilityType"->0, "RotationAngle"->0}], StyleBox[ ButtonBox[" "], FontWeight->"Plain", FontSlant->"Plain", FontTracking->"Plain", FontVariations->{"Underline"->False, "Outline"->False, "Shadow"->False, "StrikeThrough"->False, "Masked"->False, "CompatibilityType"->0, "RotationAngle"->0}], StyleBox[ ButtonBox[" "], FontWeight->"Plain", FontSlant->"Plain", FontTracking->"Plain", FontVariations->{"Underline"->False, "Outline"->False, "Shadow"->False, "StrikeThrough"->False, "Masked"->False, "CompatibilityType"->0, "RotationAngle"->0}], StyleBox[ ButtonBox[" "], FontWeight->"Plain", FontSlant->"Plain", FontTracking->"Plain", FontVariations->{"Underline"->False, "Outline"->False, "Shadow"->False, "StrikeThrough"->False, "Masked"->False, "CompatibilityType"->0, "RotationAngle"->0}]} }, RowSpacings->0, ColumnSpacings->0, GridDefaultElement:>ButtonBox[ "\\[Placeholder]"]]]]], "Input", Evaluatable->False], Cell[TextData[{ "Or, if you paste within ", StyleBox["Mathematica", FontSlant->"Italic"], ", you will see the following." }], "Text"], Cell["\<\ x\ty\tz\t111 yyy\t222\ \>", "Input"] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Notes", "Section"], Cell[TextData[{ "1) Implementation of error checking are minimum. Copy of unexpected data \ or unexpected data format will cause of unexpected result.\n2) All features \ were tested on ", StyleBox["Mathematica", FontSlant->"Italic"], " 4.2 for Macintosh with Microsoft Excel for Macintosh 8.0 (a.k.a. Office \ 98) on Mac OS X 10.2.6.\n3) The unexpected beep sound with no-selection error \ (on the ClipboardNotebook), or the lack of memory error (when move contents \ to the clipboard from ClipboardNotebook) are under investigation. I some \ difficulty for workaround with Developer`ClipboardNotebook on 4.2.\n\nI am \ very pleased to have your suggestions.\nKen Kikuchi" }], "Text"] }, Closed]] }, FrontEndVersion->"4.2 for Macintosh", ScreenRectangle->{{0, 1024}, {0, 675}}, WindowToolbars->"EditBar", WindowSize->{591, 605}, WindowMargins->{{29, Automatic}, {Automatic, 8}}, Magnification->1, StyleDefinitions -> "Demo.nb" ] (******************************************************************* Cached data follows. If you edit this Notebook file directly, not using Mathematica, you must remove the line containing CacheID at the top of the file. The cache data will then be recreated when you save this file from within Mathematica. *******************************************************************) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[1754, 51, 31, 0, 51, "Title"], Cell[1788, 53, 159, 5, 21, "Subtitle"], Cell[1950, 60, 44, 0, 56, "Subsubtitle"], Cell[1997, 62, 55, 3, 72, "Author"], Cell[2055, 67, 5715, 103, 140, "Text"], Cell[CellGroupData[{ Cell[7795, 174, 30, 0, 78, "Section"], Cell[7828, 176, 3680, 103, 265, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[11545, 284, 31, 0, 47, "Section"], Cell[CellGroupData[{ Cell[11601, 288, 53, 0, 42, "Subsection"], Cell[11657, 290, 132, 4, 81, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[11826, 299, 47, 0, 36, "Subsection"], Cell[CellGroupData[{ Cell[11898, 303, 46, 0, 41, "Subsubsection"], Cell[11947, 305, 142, 3, 43, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[12126, 313, 73, 0, 41, "Subsubsection"], Cell[12202, 315, 360, 9, 159, "Text"] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[12623, 331, 36, 0, 47, "Section"], Cell[CellGroupData[{ Cell[12684, 335, 538, 15, 46, "Subsection"], Cell[CellGroupData[{ Cell[13247, 354, 32, 0, 41, "Subsubsection"], Cell[13282, 356, 177, 4, 43, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[13496, 365, 30, 0, 33, "Subsubsection"], Cell[13529, 367, 697, 19, 83, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[14263, 391, 32, 0, 33, "Subsubsection"], Cell[14298, 393, 94, 3, 29, "Text"], Cell[14395, 398, 977, 39, 50, "Text"], Cell[15375, 439, 234, 6, 43, "Text"], Cell[15612, 447, 49, 0, 31, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[15698, 452, 29, 0, 41, "Subsubsection"], Cell[15730, 454, 171, 4, 55, "Text"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[15950, 464, 515, 14, 40, "Subsection"], Cell[CellGroupData[{ Cell[16490, 482, 32, 0, 41, "Subsubsection"], Cell[16525, 484, 160, 4, 43, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[16722, 493, 30, 0, 41, "Subsubsection"], Cell[16755, 495, 130, 3, 43, "Text"], Cell[16888, 500, 603, 19, 43, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[17528, 524, 32, 0, 33, "Subsubsection"], Cell[17563, 526, 117, 3, 29, "Text"], Cell[17683, 531, 977, 39, 50, "Text"], Cell[18663, 572, 633, 18, 43, "Text"], Cell[19299, 592, 49, 0, 31, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[19385, 597, 29, 0, 33, "Subsubsection"], Cell[19417, 599, 19, 0, 29, "Text"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[19485, 605, 616, 19, 40, "Subsection"], Cell[CellGroupData[{ Cell[20126, 628, 32, 0, 41, "Subsubsection"], Cell[20161, 630, 183, 4, 43, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[20381, 639, 30, 0, 33, "Subsubsection"], Cell[20414, 641, 703, 19, 83, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[21154, 665, 32, 0, 33, "Subsubsection"], Cell[21189, 667, 511, 15, 29, "Text"], Cell[21703, 684, 34, 0, 31, "Input"], Cell[21740, 686, 109, 3, 29, "Text"], Cell[21852, 691, 3864, 114, 91, "Input", Evaluatable->False], Cell[25719, 807, 105, 3, 29, "Text"], Cell[25827, 812, 38, 3, 46, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[25902, 820, 29, 0, 33, "Subsubsection"], Cell[25934, 822, 107, 3, 29, "Text"], Cell[26044, 827, 42, 0, 31, "Input"], Cell[26089, 829, 99, 3, 29, "Text"], Cell[26191, 834, 5346, 161, 89, "Input", Evaluatable->False], Cell[31540, 997, 174, 5, 29, "Text"], Cell[31717, 1004, 46, 3, 46, "Input"], Cell[31766, 1009, 178, 4, 43, "Text"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[31993, 1019, 618, 19, 40, "Subsection"], Cell[CellGroupData[{ Cell[32636, 1042, 32, 0, 41, "Subsubsection"], Cell[32671, 1044, 224, 4, 43, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[32932, 1053, 30, 0, 33, "Subsubsection"], Cell[32965, 1055, 794, 23, 83, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[33796, 1083, 32, 0, 33, "Subsubsection"], Cell[33831, 1085, 113, 3, 29, "Text"], Cell[33947, 1090, 3856, 114, 91, "Input", Evaluatable->False], Cell[37806, 1206, 651, 19, 43, "Text"], Cell[38460, 1227, 38, 0, 31, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[38547, 1233, 622, 19, 40, "Subsection"], Cell[CellGroupData[{ Cell[39194, 1256, 32, 0, 41, "Subsubsection"], Cell[39229, 1258, 201, 4, 69, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[39467, 1267, 30, 0, 33, "Subsubsection"], Cell[39500, 1269, 678, 19, 69, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[40215, 1293, 32, 0, 41, "Subsubsection"], Cell[40250, 1295, 515, 15, 29, "Text"], Cell[40768, 1312, 53, 0, 31, "Input"], Cell[40824, 1314, 109, 3, 29, "Text"], Cell[40936, 1319, 3866, 114, 91, "Input", Evaluatable->False], Cell[44805, 1435, 118, 3, 29, "Text"], Cell[44926, 1440, 42, 3, 46, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[45005, 1448, 29, 0, 33, "Subsubsection"], Cell[45037, 1450, 109, 3, 43, "Text"], Cell[45149, 1455, 61, 0, 31, "Input"], Cell[45213, 1457, 65, 0, 29, "Text"], Cell[45281, 1459, 5346, 161, 89, "Input", Evaluatable->False], Cell[50630, 1622, 143, 5, 29, "Text"], Cell[50776, 1629, 46, 3, 46, "Input"] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[50883, 1639, 24, 0, 47, "Section"], Cell[50910, 1641, 694, 12, 215, "Text"] }, Closed]] } ] *) (******************************************************************* End of Mathematica Notebook file. *******************************************************************)