[Alex7]

Здравствуйте, подскажите почему данный код работает с word 2007, 2010, а в 2013 отказывается работать, вылетает предупреждение: "Данная команда недоступна" и открывается незаполненный документ.

Код:

procedure TFormGF.repl(stroke:string;rpl:string);
const
  wdFindContinue = 1;
  wdReplaceOne = 1;
  wdReplaceAll = 2;
  wdDoNotSaveChanges = 0;
var   pth,fnn:string;
begin
 msword.Selection.Find.ClearFormatting;
        msword.Selection.Find.Text:=stroke;
        msword.Selection.Find.Replacement.Text:=rpl;
        msword.Selection.Find.Forward:=True;
        msword.Selection.Find.Wrap:=wdFindContinue;
        msword.Selection.Find.Format:=False;
        msword.Selection.Find.MatchCase:=False;
        msword.Selection.Find.MatchWholeWord:=True; //искать слово целиком
        msword.Selection.Find.MatchWildcards:=False;
        msword.Selection.Find.MatchSoundsLike:=False;
        msword.Selection.Find.MatchAllWordForms:=False;
        msword.Selection.Find.Execute(Replace:=wdReplaceAll);
end;