Sub PasteWithEmphasis()
' Paul Beverley - Version 30.12.10
' Paste with emphasis

Selection.PasteAndFormat (wdFormatSurroundingFormattingWithEmphasis)
End Sub