W.ActiveDocument.Range.Find.Execute('@9', EmptyParam, EmptyParam,
                EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
                EmptyParam, p9, replace);

W.Selection.HomeKey(wdLine, wdMove);
              W.Selection.Find.Execute('@3', False, True, EmptyParam,
                EmptyParam, EmptyParam, True, wdFindStop, EmptyParam,
                EmptyParam, wdReplaceNone, EmptyParam, EmptyParam, EmptyParam,
                EmptyParam);
              W.Selection.TypeText(p5);