FAST
Sub FAST2023()
'
' FAST2023 Macro
'
Selection.WholeStory
Selection.Copy
Documents.Add Template:="Normal", NewTemplate:=False, DocumentType:=0
Selection.PasteAndFormat (wdFormatOriginalFormatting)
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Bold = True
.Color = wdColorRed
End With
With Selection.Find
.Text = "I"
.Replacement.Text = "I"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = True
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Bold = True
.Color = wdColorRed
End With
With Selection.Find
.Text = "I"
.Replacement.Text = "I"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = True
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.EscapeKey
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "i"
.Replacement.Text = "( i ) ( = a missing I )"
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "myself"
.Replacement.Text = "myself"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "herself"
.Replacement.Text = "herself"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "himself"
.Replacement.Text = "himself"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "I'm"
.Replacement.Text = "I'm"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "I've"
.Replacement.Text = "I've"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "me"
.Replacement.Text = "me"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "it"
.Replacement.Text = "it"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "my"
.Replacement.Text = "my"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "you"
.Replacement.Text = "you"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "your"
.Replacement.Text = "your"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "you're"
.Replacement.Text = "you're"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "he"
.Replacement.Text = "he"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "she"
.Replacement.Text = "she"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "his"
.Replacement.Text = "his"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "her"
.Replacement.Text = "her"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "him"
.Replacement.Text = "him"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "themselves"
.Replacement.Text = "themselves"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "them"
.Replacement.Text = "them"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "they"
.Replacement.Text = "they"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "their"
.Replacement.Text = "their"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "everyone"
.Replacement.Text = "everyone"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "everybody"
.Replacement.Text = "everybody"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find.Replacement.Font
.Bold = True
.Color = wdColorRed
End With
With Selection.Find
.Text = "we"
.Replacement.Text = "WE ( forms a partnership )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = True
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "our"
.Replacement.Text = "OUR ( forms a partnership )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ours"
.Replacement.Text = "OURS"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "us"
.Replacement.Text = "US ( forms a partnership )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "lets"
.Replacement.Text = "LETS"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "let's"
.Replacement.Text = "LET'S"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Bold = True
.Italic = False
.Color = wdColorBlue
End With
With Selection.Find
.Text = "didn't"
.Replacement.Text = "didn't"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = True
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "since"
.Replacement.Text = "since ( = explainer / out-of-sequence )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "so"
.Replacement.Text = "so ( = explainer / out-of-sequence )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "as"
.Replacement.Text = "as ( = explainer / out-of-sequence )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "due to"
.Replacement.Text = "due to ( = explainer / out-of-sequence )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "leave"
.Replacement.Text = "leave ( = missing information )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "cause"
.Replacement.Text = "cause"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "because"
.Replacement.Text = "because ( = explainer / out-of-sequence )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "left"
.Replacement.Text = "LEFT ( = missing/sensitive information )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "depart"
.Replacement.Text = "depart ( = missing/sensitive information )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "departed"
.Replacement.Text = "departed ( = missing/sensitive information )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "exited"
.Replacement.Text = "exited ( = missing/sensitive information )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "leaving"
.Replacement.Text = "leaving ( = missing/sensitive information )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Bold = True
.Color = wdColorBlueGray
End With
With Selection.Find
.Text = "here"
.Replacement.Text = "here"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = True
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "there"
.Replacement.Text = "there"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "came"
.Replacement.Text = "came"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = True
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "went"
.Replacement.Text = "went"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = True
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "with"
.Replacement.Text = "with ( = separation )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "usually"
.Replacement.Text = "usually ( = not always )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "again"
.Replacement.Text = "again ( = it has happened before )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "basically"
.Replacement.Text = "basically ( = incomplete )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "eventually"
.Replacement.Text = "eventually ( = missing time )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "had to"
.Replacement.Text = "had to ( = didn't want to )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Bold = True
.Color = 10040319
End With
With Selection.Find
.Text = "after"
.Replacement.Text = "after ( unnecessary connection )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = True
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "possibly"
.Replacement.Text = "possibly ( non-committal )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "may have"
.Replacement.Text = "may have ( non-committal )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "never"
.Replacement.Text = "never ( = weak denial )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "no recollection"
.Replacement.Text = "no recollection ( non-committal )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "don't recall"
.Replacement.Text = "don't recall ( non-committal )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "don't know"
.Replacement.Text = "don't know ( non-committal )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "didn't know"
.Replacement.Text = "didn't know ( non-committal )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "not recall"
.Replacement.Text = "not recall ( non-committal )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "don't remember"
.Replacement.Text = "don't remember ( non-committal )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "remember"
.Replacement.Text = "remember"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "not remember"
.Replacement.Text = "not remember ( non-committal )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "possible"
.Replacement.Text = "possible ( non-committal )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "finally"
.Replacement.Text = "finally ( unnecessary connection )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "later"
.Replacement.Text = "later ( unnecessary connection )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "would"
.Replacement.Text = "would ( future tense )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "could"
.Replacement.Text = "could ( future tense )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "should"
.Replacement.Text = "should ( future tense )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "sudden"
.Replacement.Text = "sudden ( = missing information )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "final"
.Replacement.Text = "final"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "from there"
.Replacement.Text = "from there ( unnecessary connection )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "next"
.Replacement.Text = "next ( unnecessary connection )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Bold = True
.Color = wdColorBrown
End With
With Selection.Find
.Text = "begin"
.Replacement.Text = "begin ( = incomplete act )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = True
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "started"
.Replacement.Text = "started ( = incomplete act )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "complete"
.Replacement.Text = "complete"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "finished"
.Replacement.Text = "finished ( = a break in the action )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "continue"
.Replacement.Text = "continue ( = a break in the action )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "continued"
.Replacement.Text = "continued ( = a break in the action )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "began"
.Replacement.Text = "began ( = incomplete act )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "finish"
.Replacement.Text = "finish"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = True
.MatchAllWordForms = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "proceed"
.Replacement.Text = "proceed"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "start"
.Replacement.Text = "start"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "proceeded"
.Replacement.Text = "proceeded ( = incomplete act )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Bold = True
.Color = 39372
End With
With Selection.Find
.Text = "explained"
.Replacement.Text = "explained"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "said"
.Replacement.Text = "said ( = soft tone )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = True
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "call"
.Replacement.Text = "call"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "called"
.Replacement.Text = "called"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = True
.MatchAllWordForms = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "page"
.Replacement.Text = "page"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "told"
.Replacement.Text = "TOLD ( = strong tone )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = True
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "scream"
.Replacement.Text = "scream"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = True
.MatchAllWordForms = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "speaking"
.Replacement.Text = "speaking ( = important conversation )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = True
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "speak"
.Replacement.Text = "speak"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ask"
.Replacement.Text = "ask ( = soft tone / a polite request )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = True
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "asked"
.Replacement.Text = "asked ( = soft tone / a polite request )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "asking"
.Replacement.Text = "asking ( = soft tone / a polite request )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "requested"
.Replacement.Text = "requested ( = soft tone )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "conversation"
.Replacement.Text = "conversation"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = True
.MatchAllWordForms = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "demanded"
.Replacement.Text = "DEMANDED ( = strong tone )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = True
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "demand"
.Replacement.Text = "DEMAND ( = strong tone )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "conversate"
.Replacement.Text = "conversate ( = important conversation )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = True
.MatchAllWordForms = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "conversated"
.Replacement.Text = "conversated ( = important conversation )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = True
.MatchAllWordForms = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "conversating"
.Replacement.Text = "conversating ( = important conversation )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = True
.MatchAllWordForms = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "talk"
.Replacement.Text = "talk"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "discussion"
.Replacement.Text = "discussion ( = disagreement )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = True
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "discuss"
.Replacement.Text = "discuss ( = disagreement )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "discussed"
.Replacement.Text = "discussed ( = disagreement )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "say"
.Replacement.Text = "say ( = soft tone )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "yell"
.Replacement.Text = "yell"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "yelled"
.Replacement.Text = "yelled"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "saying"
.Replacement.Text = "saying ( = soft tone )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "telling"
.Replacement.Text = "TELLING ( = strong tone )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "spoke"
.Replacement.Text = "spoke ( = important conversation )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "spoken"
.Replacement.Text = "spoken ( = important conversation )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "tell"
.Replacement.Text = "TELL ( = strong tone )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Bold = True
.Color = wdColorIndigo
End With
With Selection.Find
.Text = "spent"
.Replacement.Text = "spent"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = True
.MatchAllWordForms = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "spend"
.Replacement.Text = "spend"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "stayed"
.Replacement.Text = "stayed"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "decided"
.Replacement.Text = "decided ( = had other options )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "tried"
.Replacement.Text = "tried ( = failed )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = True
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "try"
.Replacement.Text = "try"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = True
.MatchAllWordForms = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "trying"
.Replacement.Text = "trying"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "attempted"
.Replacement.Text = "attempted ( = failed )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = True
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "attempt"
.Replacement.Text = "attempt"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Bold = True
.Color = wdColorBlack
End With
With Selection.Find
.Text = "now"
.Replacement.Text = "now"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "these"
.Replacement.Text = "these ( = closeness )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = True
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "those"
.Replacement.Text = "those ( = distance )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "this"
.Replacement.Text = "this ( = closeness )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = True
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "that"
.Replacement.Text = "that ( = distance )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "agree"
.Replacement.Text = "agree"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = True
.MatchAllWordForms = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "just"
.Replacement.Text = "just"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "normal"
.Replacement.Text = "normal ( = not always )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = True
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "normally"
.Replacement.Text = "normally ( = not always )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "straight"
.Replacement.Text = "straight ( = had other options )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find.Replacement.Font
.Bold = True
.Color = wdColorBlack
.Underline = wdUnderlineSingle
With Selection.Find
.Text = "this"
.Replacement.Text = "this"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "the"
.Replacement.Text = "the"
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "money"
.Replacement.Text = "MONEY"
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "monies"
.Replacement.Text = "monies"
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "cash"
.Replacement.Text = "cash"
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "deposit"
.Replacement.Text = "deposit"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = True
.MatchAllWordForms = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "a"
.Replacement.Text = "a"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = True
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "another"
.Replacement.Text = "another"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "that"
.Replacement.Text = "that"
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "these"
.Replacement.Text = "these"
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "those"
.Replacement.Text = "those"
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Bold = True
.Color = wdColorViolet
End With
With Selection.Find
.Text = "but"
.Replacement.Text = "but"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "back"
.Replacement.Text = "back ( = return / returned )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = True
.MatchAllWordForms = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "thought"
.Replacement.Text = "thought ( = mistaken )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = True
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "or"
.Replacement.Text = "or"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "guess"
.Replacement.Text = "guess ( non-committal )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "believe"
.Replacement.Text = "believe ( non-committal )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "think"
.Replacement.Text = "think ( non-committal )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "thinking"
.Replacement.Text = "thinking ( non-committal )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "like"
.Replacement.Text = "like ( = not exactly )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Bold = True
.Underline = wdUnderlineSingle
.Color = wdColorGreen
End With
With Selection.Find
.Text = "boy"
.Replacement.Text = "boy"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = True
.MatchAllWordForms = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "guy"
.Replacement.Text = "guy"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "child"
.Replacement.Text = "child"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "children"
.Replacement.Text = "children"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "someone"
.Replacement.Text = "someone"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "male"
.Replacement.Text = "male"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "female"
.Replacement.Text = "female"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "people"
.Replacement.Text = "people"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "girl"
.Replacement.Text = "girl"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "man"
.Replacement.Text = "man"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = True
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "men"
.Replacement.Text = "men"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "woman"
.Replacement.Text = "woman"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "women"
.Replacement.Text = "women"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "mom"
.Replacement.Text = "mom"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = True
.MatchAllWordForms = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "baby"
.Replacement.Text = "baby"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "husband"
.Replacement.Text = "husband"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "wife"
.Replacement.Text = "wife"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "girlfriend"
.Replacement.Text = "girlfriend"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = True
.MatchAllWordForms = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "boyfriend"
.Replacement.Text = "boyfriend"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "kid"
.Replacement.Text = "kid"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "son"
.Replacement.Text = "son"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = True
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "daughter"
.Replacement.Text = "daughter"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "mother"
.Replacement.Text = "mother"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "father"
.Replacement.Text = "father"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "stepfather"
.Replacement.Text = "stepfather"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "dad"
.Replacement.Text = "dad"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = True
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "brother"
.Replacement.Text = "brother"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = True
.MatchAllWordForms = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "sister"
.Replacement.Text = "sister"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "friend"
.Replacement.Text = "friend"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find.Replacement.Font
.Bold = True
.Underline = wdUnderlineSingle
.Color = 13369497
End With
With Selection.Find
.Text = "gun"
.Replacement.Text = "gun"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = True
.MatchAllWordForms = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "knife"
.Replacement.Text = "knife"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "handgun"
.Replacement.Text = "handgun"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "weapon"
.Replacement.Text = "weapon"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Bold = True
.Underline = wdUnderlineSingle
.Color = wdColorLime
End With
With Selection.Find
.Text = "hand"
.Replacement.Text = "hand"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = True
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "handed"
.Replacement.Text = "handed"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "pass"
.Replacement.Text = "pass"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "passed"
.Replacement.Text = "passed"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchAllWordForms = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "took"
.Replacement.Text = "took"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "take"
.Replacement.Text = "take"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "taking"
.Replacement.Text = "taking"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "grab"
.Replacement.Text = "grab"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "grabbed"
.Replacement.Text = "grabbed"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "give"
.Replacement.Text = "give"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "gave"
.Replacement.Text = "gave"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Bold = True
.Italic = False
.Color = wdColorTeal
With Selection.Find
.Text = "arrive"
.Replacement.Text = "arrive"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.WholeStory
End With
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Font.Color = wdColorBlack
With Selection.Find
.Text = "( = a missing I )"
.Replacement.Text = "( = a missing I )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "( = soft tone )"
.Replacement.Text = "( = soft tone )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "( = return / returned )"
.Replacement.Text = "( = return / returned )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "( future tense )"
.Replacement.Text = "( future tense )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "( = not exactly )"
.Replacement.Text = "( = not exactly )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "( = strong tone )"
.Replacement.Text = "( = strong tone )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "( = closeness )"
.Replacement.Text = "( = closeness )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "( = distance )"
.Replacement.Text = "( = distance )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "( = missing information )"
.Replacement.Text = "( = missing information )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "( = missing time )"
.Replacement.Text = "( = missing time )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "( = missing/sensitive information )"
.Replacement.Text = "( = missing/sensitive information )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "( = incomplete act )"
.Replacement.Text = "( = incomplete act )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "( = a break in the action )"
.Replacement.Text = "( = a break in the action )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "( = explainer / out-of-sequence )"
.Replacement.Text = "( = explainer / out-of-sequence )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "( = failed )"
.Replacement.Text = "( = failed )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "( = separation )"
.Replacement.Text = "( = separation )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "( = not always )"
.Replacement.Text = "( = not always )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "( forms a partnership )"
.Replacement.Text = "( forms a partnership )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "( = it has happened before )"
.Replacement.Text = "( = it has happened before )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "( unnecessary connection )"
.Replacement.Text = "( unnecessary connection )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "( = weak denial )"
.Replacement.Text = "( = weak denial )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "( non-committal )"
.Replacement.Text = "( non-committal )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "( = soft tone / a polite request )"
.Replacement.Text = "( = soft tone / a polite request )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "( = disagreement )"
.Replacement.Text = "( = disagreement )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "( = had other options )"
.Replacement.Text = "( = had other options )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "( = didn't want to )"
.Replacement.Text = "( = didn't want to )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "( = incomplete )"
.Replacement.Text = "( = incomplete )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "( = mistaken )"
.Replacement.Text = "( = mistaken )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "( = important conversation )"
.Replacement.Text = "( = important conversation )"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.WholeStory
With Selection.ParagraphFormat
.LeftIndent = InchesToPoints(0)
.RightIndent = InchesToPoints(0)
.SpaceBefore = 0
.SpaceBeforeAuto = False
.SpaceAfter = 0
.SpaceAfterAuto = False
.LineSpacingRule = wdLineSpace1pt5
.Alignment = wdAlignParagraphLeft
.WidowControl = True
.KeepWithNext = False
.KeepTogether = False
.PageBreakBefore = False
.NoLineNumber = True
.Hyphenation = True
.FirstLineIndent = InchesToPoints(0)
.OutlineLevel = wdOutlineLevelBodyText
.CharacterUnitLeftIndent = 0
.CharacterUnitRightIndent = 0
.CharacterUnitFirstLineIndent = 0
.LineUnitBefore = 0
Selection.Find.Replacement.ClearFormatting
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.MoveRight Unit:=wdCharacter, Count:=1
End With
End With
End Sub
Sub PT()
'
' MP2 Macro
' Macro recorded 10/21/2020 by
'
Selection.Font.Bold = wdToggle
Selection.Font.Color = wdColorBlack
Selection.TypeText Text:="( present tense ) "
Selection.Font.Color = wdColorBlack
Selection.Font.Bold = wdToggle
End Sub
Sub PV()
'
' MP2 Macro
' Macro recorded 10/21/2020 by
'
Selection.Font.Bold = wdToggle
Selection.Font.Color = wdColorBlack
Selection.TypeText Text:="( passive voice ) "
Selection.Font.Color = wdColorBlack
Selection.Font.Bold = wdToggle
End Sub