Hi!
I want to find "UK" or "U.K." within selection <AFF>...</AFF>, and replace it to "United Kingdom". More than that, I want to insert a comment "Country name changed. Please check" only if replacement done.



<AFF>Department of Physics and Astronomy and National Center for Physical Acoustics, University of Mississippi, P.O. Box 1848, 1 Chucky Mullins Drive, University, Mississippi 38677</AFF>

I have recorded a macro, except inserting comment.

Please help. Thanks in advance.

CODE:
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 3/3/2015 by alexandarr
'
Selection.Find.ClearFormatting
With Selection.Find
.Text = "\<AFF\>*\<\/AFF\>"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute
Selection.Copy
Documents.Add DocumentType:=wdNewBlankDocument
Application.Run MacroName:="MathTypeCommands.UIWrappers2003.EditPa ste"
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "UK"
.Replacement.Text = "United Kingdom"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "U.K."
.Replacement.Text = "United Kingdom"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.WholeStory
Selection.Copy
Windows("AI-JAS#150100_ed.doc").Activate
Application.Run MacroName:="MathTypeCommands.UIWrappers2003.EditPa ste"
End Sub

It is not clear what your original macro is about with respect to calls to an unidentified macro, an added document and a named document, but the following will look in each text string marked <AFF>...</AFF>, and replace UK or U.K with "United Kingdom" and add a comment to that effect. UK or U.K not tagged with <AFF>...</AFF> are ignored.

__________________
Graham Mayor - MS MVP (Word) (2002-2019)
Visit my web site for more programming tips and ready made processes www.gmayor.com

It works excellent!!!

Thank you very much!!!

Hi! This Alex again!

I have modified the code slightly, to change the colour and not to replace anything.

code:

Sub z_Abstract()
Dim vFindText As Variant
Dim sReplaceText As String
Dim oRng As Range
Dim oSearch As Range
Dim oFound As Range
Dim i As Long
Dim sAsk As String
Options.DefaultHighlightColorIndex = wdTurquoise
vFindText = Array("I", "we", "us", "our")
sReplaceText = "zzzzz"
Set oRng = ActiveDocument.Range
With oRng.Find
Do While .Execute(FindText:="\<ABS\>*\<\/ABS\>", MatchWildcards:=True)
Set oSearch = oRng
For i = 0 To UBound(vFindText)
Set oFound = oSearch
With oFound.Find
Selection.Font.Color = wdColorPink
.ClearFormatting
.Replacement.ClearFormatting
.MatchWholeWord = True
Do While .Execute(FindText:=vFindText(i), _
MatchWholeWord:=True, _
MatchWildcards:=True, _
Forward:=True, _
Wrap:=wdFindStop) = True
'oFound.Text = sReplaceText

oFound.HighlightColorIndex = wdTurquoise
oFound.Font.Color = wdColorPink
oFound.Comments.Add oFound, "CE: The use of personal pronouns (I, we, us, our) is not permitted in the abstract."
oFound.Collapse wdCollapseEnd
If oFound.End >= oSearch.End Then Exit Do
Loop
End With
Next i
Loop
End With
lbl_Exit:
Exit Sub
End Sub

That code finds in order of the array only. i.e. In the following text, the macro finds the text in array only in the same order and it finds a text once only.

<ABS>The use of personal pronouns (our, us, I, we) is not permitted in the abstract. The use of personal pronouns (I, we, us, our) is not permitted in the abstract.

I need to find all occurrences of a [whole] word irrespective of the order, within the coded text.

Please help.

Thanks!

You can't use '.MatchWholeWord = True' when you're also using 'MatchWildcards:=True'; the latter overrides the former. You need to either:
(a) set 'MatchWildcards:=False'; or
(b) delete '.MatchWholeWord = True' and enclose each of the find expressions in a pair of chevrons (e.g. <I>).

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