Locate ALL CAPS in a paragraph

mackeex · #1 01-08-2016, 06:11 AM

Hi to all!

I have this macro:

Sub DeleteCap3Word()
With Selection.Find
.ClearFormatting
.Text = " ([A-Z][A-Z][A-Z]) "
.Replacement.Text = " "
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = True
.MatchWholeWord = True
.MatchWildcards = True
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute
While .Found
Selection.Find.Execute Replace:=wdReplaceAll
Wend
End With
End Sub

My problem is that it looks for all 3-letter words in all caps including those that I need (ex. MRI, PSA, USB, etc.).

Is there a way to have exceptions so that certain acronyms which I need is not deleted and only 3-letter all caps word which needs to be deleted?

Thank you in advance for your help!!!

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Powerpoint 2013 unable to locate word	bc320	PowerPoint	0	06-22-2015 08:00 AM
Cannot Locate Archived Messages	abraxis	Outlook	0	06-10-2014 03:32 PM
Microsoft Office Professional 2010 on Windows 8 problem error cannot locate pst files	CDM	Outlook	0	12-21-2013 06:36 AM
Can't find Office 2010 product key. How to locate it?	alecus	Office	1	07-24-2012 04:00 PM
Unable to locate Microsoft Office 2003 Language settings.	EzyMe	Office	0	09-28-2010 01:09 PM