How to add a scan function to Word 2013

[German edition]Whilst Microsoft OneNote 2013 provides a scan feature, Microsoft obviously omitted scan support in Word 2013. Also old VBA-solutions from Office 2007/2013 doesn't work anymore. But with a litte VBA programming, we can add a scan option to Word 2013.