Thread: [Solved] Created VBA to Find and Replace in Body, Header and Footer with Highlighting the replacement text
View Single Post
 
Old 09-23-2014, 04:40 AM
macropod's Avatar
macropod macropod is offline Windows 7 64bit Office 2010 32bit
Administrator
  
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 22,369
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default
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]
Reply With Quote