Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim strFind() As String
Dim i As Long
Dim oRng As Word.Range
strFind = Split("this student|a student|my student|student", "|")
For i = 0 To UBound(strFind)
Set oRng = ActiveDocument.Range
With oRng.Find
.ClearFormatting
.Text = strFind(i)
.MatchWholeWord = True
.MatchCase = False
While .Execute
oRng.Select
If MsgBox("Process this instance", vbYesNo, "Process?") = vbYes Then
oRng.Text = "whatever"
End If
Wend
End With
Next i
End Sub
|