#1
|
|||
|
|||
Locate ALL CAPS in a paragraph
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!!! |
#2
|
|||
|
|||
I assume that you are aware that your code will not find three letter CAPS that start the document, end a sentence or paragraph
Code:
Sub DeleteCap3Word() Dim oRng As Word.Range Set oRng = ActiveDocument.Range With oRng.Find .ClearFormatting .Text = " [A-Z]{3} " .Replacement.Text = " " .Forward = True .Wrap = wdFindStop .Format = True .MatchCase = True .MatchWholeWord = True .MatchWildcards = True .MatchSoundsLike = False .MatchAllWordForms = False While .Execute Select Case Trim(oRng) Case "USB", "PSA" Case Else oRng.Text = " " End Select oRng.Collapse wdCollapseEnd Wend End With End Sub |
#3
|
|||
|
|||
Thanks very much! Yeah I have that problem too but those things are quite a few and doesn't affect me that much. I just need to keep those that I need. Anyways thanks a lot for your help!
|
#4
|
||||
|
||||
Alternatively, to handle the exceptions noted by Greg:
Code:
Sub DeleteCap3Word() With ActiveDocument.Range With .Find .ClearFormatting .Text = "<[A-Z]{3}>" .Replacement.Text = "" .Forward = True .Wrap = wdFindStop .Format = True .MatchWildcards = True .Execute End With Do While .Find.Found Select Case .Text Case "MRI", "USB", "PSA" Case Else: .Words.First.Delete End Select .Collapse wdCollapseEnd .Find.Execute Loop End With End Sub
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
|
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 |