How to export results of an analysis in table format into MS word file

Question

I'm working on a simulation study using Mathematica 8. At the end of the analysis I'll have a matrix of data containing my results (assume for three variables like x,y & z). I used these codes for integrating labels (e.g. x,y & z) into data matrix and creating a table format:

data = Table[Random[], {i, 3}, {j, 3}] (* as an example of data*)
label= {"x","y","z"}
Text@Grid[Insert[data, lab, 1], Frame -> All]

resulting in (I don't know why frames don't appear here but do in Mathematica): \begin{array}{ccc} \text{x} & \text{y} & \text{z} \\ 0.0047326 & 0.877782 & 0.924523 \\ 0.188628 & 0.171809 & 0.317739 \\ 0.775678 & 0.0886559 & 0.336866 \end{array}

I wan to how I can export this table into Ms Word as a table not an equation. Any help and idea is appreciated.

Thanks, Amin.

Answer 1

You can use Word's "Convert Text to Table" function for this.

• Select the grid in Mathematica and copy as plain text.

• Paste it into Word, select it and convert to a table

• You get this:

Answer 2

I recommend you create a List of lists (which is how you represent an array or matrix in Mathematica):

mytable = Prepend[data, label]
(* {{"x", "y", "z"}, {0.15339, 0.622021, 0.932763}, {0.804435, 0.894563, 0.0611165}, {0.786724, 0.980867, 0.766825}} *)

Then Export it to an Excel file:

Export["mytable.xls", mytable]

And then import it into Word, which should be a snap.

If you want to format the table in Mathematica instead of Excel or Word, you can Export it from Mathematica as a graphic like this:

formattedgraphic = Text@Grid[Insert[data, label, 1], Frame -> All, Spacings -> 5, ItemSize -> All]
Export["table.tiff", formattedgraphic, ImageResolution -> 300]

• ItemSize here helps to avoid spanning characters appearing in the table.

Note that there is great flexibility with Export:

• I have exported in the TIFF format here, but many formats are available (see $ExportFormats)
• You can set the options ImageResolution and ImageSize to suit your needs.