HELP!
I can insert the text, using the correct STYLE, indent, etc. (code not included), but I cannot seem to get the FIND/REPLACE logic below to work on the newly inserted text only. My SourceText Array is loaded in order of what I expect to find. e.g. run thru the list until it finds a match, replace it, then stop. The code below changes none of the newly inserted test - however it sometimes changes text later on in the doc, way past the newly inserted code.
For i = LBound(SourceText) To UBound(SourceText)
Selection.Find.ClearFormatting
Selection.Find.Text = SourceText(i)
Selection.Find.Replacement.Text = TargetText(i)
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Highlight = vbYellow
Selection.Find.MatchCase = True
Selection.Find.MatchWholeWord = True
Selection.Find.MatchWildcards = False
Selection.Find.MatchSoundsLike = False
Selection.Find.MatchAllWordForms = False
Selection.Find.Format = True
Selection.Find.Forward = True
Selection.Find.Wrap = wdFindStop ' wdFindContinue
Selection.Find.Execute Replace:=wdReplaceOnce
If Selection.Find.Found = True Then
Debug.Print "Found"
Selection.Find.Replacement.Font.Bold = True
Exit For
End If
Next i