What´s the best way to COPY/PASTE Mathematica code into Word?

Question

As you can see in the image the code, with a standard copy/paste you obtain squares instead of "Return=New Line".

What´s the best way to copy and paste Mathematica code into Word?

One choice is a special PASTE, that gives me the text without colors as you can see in

Another choice is special paste as JPG/PNG.

Is possible to copy "AS TEXT" with the original colors and font?

The most usefull and simple solution I found is the Shutao TANG reply at Saving a notebook as PDF, preserving syntax highlighting

Thank you for all the replies.

save selection as png (never use jpg for text) in mathematica and import picture in word. — george2079, Dec 24, 2015 at 14:59
Related: "How to make Mathematica graphs in Microsoft Word independent from Mathematica?" Also potentially useful: "Saving a notebook as PDF, preserving syntax highlighting." — Alexey Popkov, Dec 24, 2015 at 15:26
@AlexeyPopkov thank you. The reply of Shutao TANG in the second link is the most usefull and simple SOLUTION from my point of view. — Mika Ike, Dec 24, 2015 at 15:35

Chris Degnen · Accepted Answer · 2015-12-24 14:53:45Z

8

In your code notebook go to menu Format, Edit StyleSheet

paste in the following

Cell[StyleData[All, "Printout"],
  ShowAutoStyles->True, ShowSyntaxStyles->True]

select 'with interpretation' (upon prompt). Close the stylesheet.

In the code notebook paste and evaluate

Export["eg.pdf", EvaluationNotebook[]]

Copy the colour-formatted text from the PDF and paste into Word.

answered Dec 24, 2015 at 13:54

Chris Degnen

30.8k2 gold badges53 silver badges108 bronze badges

$\begingroup$ ok, I think you give the solution. One question "where I should select 'with interpretation'?". bit.ly/1RIKC7z $\endgroup$
– Mika Ike
Dec 24, 2015 at 15:06
1

$\begingroup$ I'm not seeing that display. When I paste in the cell text Mathematica asks straightaway if I want the text interpreted. $\endgroup$
– Chris Degnen
Dec 24, 2015 at 15:27
$\begingroup$ If I do this and "copy with formatting" from acrobat pro to word there are still font issues. "take snapshot" rasterizes it and preserves the fonts, but the quality is not as sharp as saving as raster from mathermatica. ("save as" from mathematica can only do a cell at a time though ) $\endgroup$
– george2079
Dec 24, 2015 at 15:39
$\begingroup$ I can usually copy most of the output as text. $\endgroup$
– Chris Degnen
Dec 24, 2015 at 15:47

Add a comment |

1 Answer 1