For your first question, your code explicitly adds two new paragraphs, via 'oDoc.Paragraphs.Add' and 'oSelection.TypeText ("E-Mail: " & strEMail & vbCrLf)', where vbCrLf = new paragraph. You choose which one you don't want to add and adjust the code accordingly.

For your second question, it's not apparent whether the picture is supposed to be the hyperlink target or origin.