I believe the only thing you'd need to change is from:
strFile = Dir(StrFolder & "*.docx")
to:
strFile = Dir(StrFolder & "*.dotx")
However, given that templates in Word 2007 & later are often macro-enabled, you might do better to use:
strFile = Dir(StrFolder & "*.dot")
This will open .dotx, .dotm and .dot templates.

PS: Please don't quote previous posts in your replies unless there's something specific you need to refer to - and then include only the relevant portion(s). Anything more just adds clutter.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]