Export Mathematica code to Word, preserving all formatting

The user Szabolcs gave the answer.

Here are the steps:

1. Open your Mathematica Notebook
2. Ctrl+A, if you want to selct all your cells or simply select your desired cells
3. Go to: Edit -> Copy as -> Metafile
4. Open Word: Ctrl+V (paste)

:)

You can copy-as-MathML from Mathematica directly into Word. Have fun! Edit

To address your comment. This is a fragment of my Mathematica notebook:

These are the corresponding formulas inserted into the Formel Editor of Word 2013

It works for me.