Должно быть что то вроде этого:
Selection.Find.ClearFormatting();
Selection.Find.Replacement.ClearFormatting();
Selection.Find.Text = "создание";
Selection.Find.Replacement.Text = "Ликвидация";
Selection.Find.Forward = -1;
Selection.Find.Wrap = wdFindContinue;
Selection.Find.Format = 0;
Selection.Find.MatchCase = 0;
Selection.Find.MatchWholeWord = 0;
Selection.Find.MatchWildcards = 0;
Selection.Find.MatchSoundsLike = 0;
Selection.Find.MatchAllWordForms = 0;
Selection.Find.Execute(wdReplaceAll);

wdFindContinue и wdReplaceAll - перевести не могу, но им обязательно должно соответствовать либо 16-ричное, либо 10-ричное представление, например как xlCenter = -4108 - это в десятиричном виде или = &HFFFFEFF4 - это в шестнадцатиричном!