Работа с word

joker777

Ефрейтор
Сообщения
9
Реакции
0
Здравствуйте, подскажите почему данный код работает с 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;

Ответить с цитированием