[Alex7]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

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;

[Alex7]

Проблемы в этой строке:

Код:

1	msword.Selection.Find.Execute(Replace:=wdReplaceAll);

столько перечитал и не нашёл что не так, помогите

[Alex7]

Разобрался, проблема не в коде, проблема в том, что word 2013 открывает файл в режиме безопасного просмотра и никак не могу с этим ничего сделать. Подскажите куда копать.